add support for an ALL page.

git-svn-id: svn://10.0.0.236/trunk@109534 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
kestes%walrus.com
2001-12-03 19:46:04 +00:00
parent 4d536e38db
commit ffda9dbeeb

View File

@@ -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/befator/cvs/jail/cvsroot/mozilla/webtools/tinderbox2/src/default_conf/ReqData.pm,v $
# $Name: not supported by cvs2svn $
@@ -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;
}