Bommels05/Mozilla
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pass in autoscale, days for browsing urls

Browse Source 
git-svn-id: svn://10.0.0.236/trunk@110419 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
mcafee%netscape.com
2001-12-13 06:32:17 +00:00
parent 1d82bd06ae
commit 5ce9ed85a6
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
mozilla/webtools/graph/query.cgi
View File

@@ -40,7 +40,7 @@ sub make_filenames_list {
# Print out a list of testnames in db directory
sub print_testnames {
my ($tbox) = @_;
my ($tbox, $autoscale, $days) = @_;
# HTTP header
print "Content-type: text/html\n\n<HTML>\n";
@@ -55,7 +55,7 @@ sub print_testnames {
my $machines_string = join(" ", @machines);
foreach (@machines) {
print "<li><a href=query.cgi?&testname=$_$testname&tbox=$tbox>$_</a>\n";
print "<li><a href=query.cgi?&testname=$_$testname&tbox=$tbox&autoscale=$autoscale&days=$days>$_</a>\n";
}
print "</ul></td></tr></table></td></tr></table>";
@@ -64,7 +64,7 @@ sub print_testnames {
# Print out a list of machines in db/<testname> directory, with links.
sub print_machines {
my ($testname) = @_;
my ($testname, $autoscale, $days) = @_;
# HTTP header
print "Content-type: text/html\n\n<HTML>\n";
@@ -79,7 +79,7 @@ sub print_machines {
my $machines_string = join(" ", @machines);
foreach (@machines) {
print "<li><a href=query.cgi?tbox=$_&testname=$testname&autoscale=0&days=0>$_</a>\n";
print "<li><a href=query.cgi?tbox=$_&testname=$testname&autoscale=$autoscale&days=$days>$_</a>\n";
}
print "</ul></td></tr></table></td></tr></table>";
@@ -156,9 +156,9 @@ sub show_graph {
}
if(!$TESTNAME) {
print_testnames($TBOX);
print_testnames($TBOX, $AUTOSCALE, $DAYS);
} elsif(!$TBOX) {
print_machines($TESTNAME);
print_machines($TESTNAME, $AUTOSCALE, $DAYS);
} else {
show_graph();
}