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:
@@ -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;
|
||||
}
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user