Apply this changes for the millionth time. The last tinderbox outage was happened because a mail server went down. This turns on warnings updating.

This commit is contained in:
slamm%netscape.com 1999-08-26 17:13:21 +00:00
parent a6cc89fba6
commit 6d5fc86c44

View File

@ -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
######################################################################