Get it running

git-svn-id: svn://10.0.0.236/trunk@36596 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
slamm%netscape.com
1999-06-23 20:38:23 +00:00
parent d27727c637
commit 8194604dd9

View File

@@ -8,14 +8,13 @@ $cvsroot = '/u/slamm/tt/cvsroot/mozilla';
@ignore = ( 'long long', '__cmsg_data' );
$ignore_pat = "(?:".join('|',@ignore).")";
for $build_record (last_successful_builds($tree)) {
print "hey\n";
next unless $build_record->{errorparser} eq 'unix';
next unless $build_record->{buildname} =~ /\b(Clobber|Clbr)\b/;
for $br (last_successful_builds($tree)) {
next unless $br->{errorparser} eq 'unix';
next unless $br->{buildname} =~ /\b(Clobber|Clbr)\b/;
print "log is $tree/$builld_record->{logfile}\n";
exit;
$fh = new FileHandle "gunzip $tree/$builld_record->{logfile} |";
print "log is $tree/$br->{logfile}\n";
$fh = new FileHandle "gunzip -c ../tinderbox/$tree/$br->{logfile} |";
&gcc_parser($fh, $tree);
last;
@@ -40,7 +39,7 @@ sub last_successful_builds {
$mindate = $maxdate - 8*60*60; # Go back 8 hours
print STDERR "Loading build data...";
use Cwd
chdir '../tinderbox';
require 'globals.pl';
&load_data;
@@ -49,9 +48,10 @@ sub last_successful_builds {
for (my $ii=1; $ii <= $name_count; $ii++) {
for (my $tt=1; $tt <= $time_count; $tt++) {
if (defined($br = $build_table->[$tt][$build_index])
if (defined($br = $build_table->[$tt][$ii])
and $br->{buildstatus} eq 'success') {
push @build_records, $br;
last;
} } }
return @build_records;
}
@@ -62,7 +62,6 @@ sub gcc_parser {
my $find = new FileNameFind;
$find->open($tree);
while (<$fh>) {
# Directory
#
@@ -95,8 +94,8 @@ sub gcc_parser {
}
$warnings{"$file:$line"}->{count}++;
push @{$warnings_per_file{$file}}, $line;
$ii++;
last if $ii > 20;
# $ii++;
# last if $ii > 20;
}
}