diff --git a/webtools/tinderbox/processbuild.pl b/webtools/tinderbox/processbuild.pl index 7e9a60657b12..ad2fdb8b9271 100755 --- a/webtools/tinderbox/processbuild.pl +++ b/webtools/tinderbox/processbuild.pl @@ -29,18 +29,20 @@ $DONE = 0; $building = 0; $endsection = 0; -open( LOG, "<$ARGV[0]") || die "cant open $!"; +open LOG, "<$ARGV[0]" or die "Can't open $!"; &parse_mail_header; %tbx = (); &get_variables; # run thru if EOF and we haven't hit our section end marker - + &check_required_vars; -$tree = $tbx{'tree'} if (!defined($tree)); -$logfile = "$builddate.$$.gz" if (!defined($logfile)); -$building++ if ($tbx{'status'} =~ m/building/); + +$tree = $tbx{tree} unless defined $tree; +$logfile = "$builddate.$$.gz" unless defined $logfile; + +$building++ if $tbx{status} =~ /building/; &lock; &write_build_data; &unlock; @@ -57,10 +59,9 @@ $ENV{QUERY_STRING}="tree=$tree&static=1"; system './showbuilds.cgi'; # Generate build warnings (only for a successful shrike clobber build) -#if ($tbx{build} =~ /shrike.*\b(Clobber|Clbr)\b/ and -# $tbx{status} eq 'success') { -# system './warnings.pl'; -#} +if ($tbx{build} eq 'shrike Linux Clobber' and $tbx{status} eq 'success') { + system './warnings.pl'; +} # end of main ######################################################################