Re: TS

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Op een druilerige winterdag (Tuesday 20 January 2004 15:07), schreef H.Merijn 
Brand:

> can we get an option to overrule the smoke time limit?
>
> the configuration now has an alarm set to 23 hours, but I'd
> like to be able to do something
>
> # perlsmoke-56.sh --nolimit

Will this do?

	# ./smoke58x.sh --killtime ''


[   592] By: abeltje                          on 2004-01-20 15:47:39 +0100
        Log: * [FIX] again found by Merijn
               * --killtime option wasn't being progated from the
                   commandline
               * report generation on timed-out smokes wasn't called
                 correctly
        Url: http://www.Test-Smoke.org/svn/Test-Smoke
           ! /Test-Smoke/smokeperl.pl
Index: smokeperl.pl
===================================================================
- --- smokeperl.pl        (revision 591)
+++ smokeperl.pl        (revision 592)
@@ -25,7 +25,7 @@
 Getopt::Long::Configure( 'pass_through' );
 my %options = ( config => 'smokecurrent_config', run => 1,
                 fetch => 1, patch => 1, mail => undef, archive => undef,
- -                continue => 0, ccp5p_onfail => undef,
+                continue => 0, ccp5p_onfail => undef, killtime => undef,
                 is56x => undef, defaultenv => undef, smartsmoke => undef );

 my $myusage = "Usage: $0 [-c configname]";
@@ -42,6 +42,7 @@
     'continue',
     'smartsmoke!',
     'snapshot|s=i',
+    'killtime=s',

     'help|h', 'man',
 ) or do_pod2usage(  verbose => 1, myusage => $myusage );
@@ -79,6 +80,7 @@
   --defaultenv             Run a smoke in the default environment
   --[no]smartsmoke         Don't smoke unless patchlevel changed
   --snapshot <patchlevel>  Set a new patchlevel for snapshot smokes
+  --killtime (+)hh::mm     (Re)set the guard-time for this smoke

 All other arguments are passed to F<Configure>!

@@ -103,7 +105,7 @@
     for qw( run fetch patch mail archive );
 # Make command-line options override configfile
 defined $options{ $_ } and $conf->{ $_ } = $options{ $_ }
- -    for qw( is56x defaultenv continue
+    for qw( is56x defaultenv continue killtime
             smartsmoke run fetch patch mail ccp5p_onfail archive );

 if ( $options{continue} ) {
@@ -182,7 +184,7 @@
     }
     $timeout and local $SIG{ALRM} = sub {
         warn "This smoke is aborted ($conf->{killtime})\n";
- -        call_mkovz();
+        genrpt();
         mailrpt();
         exit(42);
     };



thanks for finding this...

good luck,

Abe
- -- 
Amsterdam Perl Mongers http://amsterdam.pm.org
perl -wl 
%_ = reverse (tsuJ=>0, rehtona=>1, lreP=>2, rekcah=>3);
@_ = reverse map { ($_{$_}, $_) } sort keys %_;
$_ = reverse join " ", map $_[$_] => grep $_%2 => 0..$#_; print;
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: For info see http://www.gnupg.org

iD8DBQFADUXuxqqoeg1/sS8RAmwbAJ9kGx3qSjTILTjxS5KBWq2po3VjxwCdHElu
hxHChi0f39jeRFKawwMLNRs=
=DFGj
-----END PGP SIGNATURE-----