Generate warnings

This commit is contained in:
slamm%netscape.com 1999-07-22 17:48:29 +00:00
parent 30456210d0
commit ec7f95746f

View File

@ -31,26 +31,24 @@ $endsection = 0;
open( LOG, "<$ARGV[0]") || die "cant open $!";
&parse_mail_header;
while ($DONE == 0) {
%tbx = ();
&get_variables;
# run thru if EOF and we haven't hit our section end marker
%tbx = ();
&get_variables;
# run thru if EOF and we haven't hit our section end marker
if ( !$DONE || !$endsection) {
&check_required_vars;
$tree = $tbx{'tree'} if (!defined($tree));
$logfile = "$builddate.$$.gz" if (!defined($logfile));
$building++ if ($tbx{'status'} =~ m/building/);
&lock;
&write_build_data;
&unlock;
}
}
&check_required_vars;
$tree = $tbx{'tree'} if (!defined($tree));
$logfile = "$builddate.$$.gz" if (!defined($logfile));
$building++ if ($tbx{'status'} =~ m/building/);
&lock;
&write_build_data;
&unlock;
close(LOG);
&compress_log_file;
&unlink_log_file;
unlink $ARGV[0];
system "./buildwho.pl $tree";
@ -58,6 +56,12 @@ system "./buildwho.pl $tree";
$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';
}
# end of main
######################################################################
@ -235,7 +239,3 @@ sub compress_log_file {
system("/tools/ns/bin/uudecode --output-file=$bin_dir/$tbx{binaryname} < $ARGV[0]");
}
}
sub unlink_log_file {
unlink( $ARGV[0] );
}