This commit is contained in:
kestes%walrus.com 2001-12-03 19:46:04 +00:00
Родитель 4fc42ad4a7
Коммит 8520facc07
1 изменённых файлов: 13 добавлений и 6 удалений

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

@ -6,8 +6,8 @@
# tinderbox trees.
# $Revision: 1.1 $
# $Date: 2001-11-16 20:43:27 $
# $Revision: 1.2 $
# $Date: 2001-12-03 19:46:04 $
# $Author: kestes%walrus.com $
# $Source: /home/jrmuizel/cvs-mirror/mozilla/webtools/tinderbox2/src/default_conf/ReqData.pm,v $
# $Name: $
@ -145,13 +145,20 @@ sub tree2queue {
# turn a tree name into the name of a its file.
sub tree2logfile {
sub tree2logfiles {
my ($tree_name) = @_;
my $queue_name = tree2queue($tree_name);
my $req_log = "$REQ_HOME/releng-${queue_name}/etc/req-log";
return $req_log;
my @req_logs;
if ($tree_name eq 'ALL') {
@req_logs = glob "$REQ_HOME/releng-*/etc/req-log";
@req_logs = map { main::extract_filename_chars($_) } @req_logs;
}else{
@req_logs = ("$REQ_HOME/releng-${queue_name}/etc/req-log");
}
return @req_logs;
}