Print out last good know logfile name. (Useful to pass to other script when testing).

This commit is contained in:
slamm%netscape.com 2000-02-17 22:27:00 +00:00
Родитель 33a0e2ad51
Коммит 295c89aabf
1 изменённых файлов: 4 добавлений и 2 удалений

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

@ -6,12 +6,14 @@ for $br (last_successful_builds($tree)) {
next unless $br->{buildname} =~ /^$warning_buildnames_pat$/;
my $logfile = "$tree/$br->{logfile}";
unless (-e $logfile) {
if (-e $logfile) {
print "Log previously copied for $br->{buildname}, $logfile\n";
} else {
chdir "$tree";
system "wget http://tinderbox.mozilla.org/$logfile";
chdir '..';
print "Log copied for $br->{buildname}, $logfile\n";
}
last;
}
sub last_successful_builds {