Don't put builds into quickparse that we have marked as "ignore".

This commit is contained in:
terry%netscape.com 1999-02-09 18:40:56 +00:00
Родитель c9025637bf
Коммит 1eec21030e
1 изменённых файлов: 9 добавлений и 2 удалений

Просмотреть файл

@ -698,15 +698,22 @@ sub do_quickparse {
}
}
close( BUILDLOG );
if( -r "$tree/ignorebuilds.pl" ){
require "$tree/ignorebuilds.pl";
}
foreach my $z (keys(%$ignore_builds)) {
delete $build{$z}; # We're supposed to ignore this build entirely.
}
my @keys = sort keys %build;
my $keycount = @keys;
my $maxtime = 0;
for my $buildname (@keys) {
if ($maxtime < $times{$buildname}) {
$maxtime = $times{$buildname};
}
}
for my $buildname (@keys ){
if ($times{$buildname} < $maxtime - 12*60*60) {
# This build is more than 12 hours old. Ignore it.