Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-11-05 08:35:26 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity
ab643bf607
gecko-dev/webtools/graph/query.cgi

378 lines
12 KiB
Plaintext
Raw Normal View History

query wrapper for graph.cgi
2001-12-07 10:02:32 +00:00
#!/usr/bin/perl
Add perl emacs header
2001-12-15 10:33:05 +00:00
# -*- Mode: perl; indent-tabs-mode: nil -*-
Adding MPL license. r=jrgm@liveops.com, sr=gerv
2004-10-26 21:41:41 +00:00
#
# The contents of this file are subject to the Mozilla Public License Version
# 1.1 (the "License"); you may not use this file except in compliance with
# the License. You may obtain a copy of the License at
# http://www.mozilla.org/MPL/
#
# Software distributed under the License is distributed on an "AS IS" basis,
# WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
# for the specific language governing rights and limitations under the
# License.
#
# The Original Code is the Mozilla graph tool.
#
# The Initial Developer of the Original Code is AOL Time Warner, Inc.
#
# Portions created by AOL Time Warner, Inc. are Copyright (C) 2001
# AOL Time Warner, Inc. All Rights Reserved.
#
# Contributor(s):
# Chris McAfee <mcafee@mocha.com>
# John Morrison <jrgm@liveops.com>
#
query wrapper for graph.cgi
2001-12-07 10:02:32 +00:00
use CGI::Carp qw(fatalsToBrowser);
use CGI::Request;
use Date::Calc qw(Add_Delta_Days); # http://www.engelschall.com/u/sb/download/Date-Calc/
my $req = new CGI::Request;
my $TESTNAME = lc($req->param('testname'));
my $UNITS = lc($req->param('units'));
my $TBOX = lc($req->param('tbox'));
my $AUTOSCALE = lc($req->param('autoscale'));
Added graph size UI. Made lead UI smaller font=-1.
2001-12-16 00:06:51 +00:00
my $SIZE = lc($req->param('size'));
query wrapper for graph.cgi
2001-12-07 10:02:32 +00:00
my $DAYS = lc($req->param('days'));
Adding line style UI
2001-12-13 07:17:48 +00:00
my $LTYPE = lc($req->param('ltype'));
splitting out separate points UI
2001-12-13 07:42:53 +00:00
my $POINTS = lc($req->param('points'));
Trying out new cgi parameter showpoint, &showpoint=2002:03:21:06:52:28,4087 will print a big point there, e.g. highlighting one of the data points
2002-05-05 08:14:00 +00:00
my $SHOWPOINT = lc($req->param('showpoint'));
Adding moving point average support.
2001-12-31 05:03:23 +00:00
my $AVG = lc($req->param('avg'));
Adding form UI for days=n argument
2001-12-13 04:53:03 +00:00
# Testing only:
#
#$TESTNAME = "testname";
#$UNITS = "units";
#$TBOX = "tbox";
#$AUTOSCALE = 1;
#$DAYS = 1;
query wrapper for graph.cgi
2001-12-07 10:02:32 +00:00
sub make_filenames_list {
my ($dir) = @_;
my @result;
if (-d "$dir") {
chdir "$dir";
while(<*>) {
if( $_ ne 'config.txt' ) {
push @result, $_;
}
}
chdir "../..";
}
return @result;
}
# Print out a list of testnames in db directory
sub print_testnames {
Adding moving point average support.
2001-12-31 05:03:23 +00:00
my ($tbox, $autoscale, $days, $units, $ltype, $points, $avg) = @_;
query wrapper for graph.cgi
2001-12-07 10:02:32 +00:00
# HTTP header
print "Content-type: text/html\n\n<HTML>\n";
Adding moving point average support.
2001-12-31 05:03:23 +00:00
query wrapper for graph.cgi
2001-12-07 10:02:32 +00:00
print "<title>testnames</title>";
print "<center><h2><b>testnames</b></h2></center>";
Adding moving point average support.
2001-12-31 05:03:23 +00:00
query wrapper for graph.cgi
2001-12-07 10:02:32 +00:00
print "<p><table width=\"100%\">";
print "<tr><td align=center>Select one of the following tests:</td></tr>";
print "<tr><td align=center>\n";
print " <table><tr><td><ul>\n";
Fixing machines array typo. showpoint arg doesn't apply in machine or test selection mode. centered the graph, added a title in bold. r=cclabaugh
2004-10-19 23:06:27 +00:00
my @tests = make_filenames_list("db");
my $tests_string = join(" ", @tests);
query wrapper for graph.cgi
2001-12-07 10:02:32 +00:00
Fixing machines array typo. showpoint arg doesn't apply in machine or test selection mode. centered the graph, added a title in bold. r=cclabaugh
2004-10-19 23:06:27 +00:00
foreach (@tests) {
# 10/13/04 cmc: set defaults to showing points and showing averages
print "<li><a href=query.cgi?&testname=$_$testname&tbox=$tbox&autoscale=$autoscale&size=$SIZE&days=$days&units=$units&ltype=$ltype&points=$points&showpoint=&avg=$avg>$_</a>\n";
query wrapper for graph.cgi
2001-12-07 10:02:32 +00:00
}
print "</ul></td></tr></table></td></tr></table>";
}
# Print out a list of machines in db/<testname> directory, with links.
sub print_machines {
Adding moving point average support.
2001-12-31 05:03:23 +00:00
my ($testname, $autoscale, $days, $units, $ltype, $points, $avg) = @_;
query wrapper for graph.cgi
2001-12-07 10:02:32 +00:00
# HTTP header
print "Content-type: text/html\n\n<HTML>\n";
print "<title>$TESTNAME machines</title>";
print "<center><h2><b>$TESTNAME machines:</b></h2></center>";
print "<p><table width=\"100%\">";
print "<tr><td align=center>Select one of the following machines:</td></tr>";
print "<tr><td align=center>\n";
print " <table><tr><td><ul>\n";
my @machines = make_filenames_list("db/$testname");
my $machines_string = join(" ", @machines);
foreach (@machines) {
Fixing machines array typo. showpoint arg doesn't apply in machine or test selection mode. centered the graph, added a title in bold. r=cclabaugh
2004-10-19 23:06:27 +00:00
print "<li><a href=query.cgi?tbox=$_&testname=$testname&autoscale=$autoscale&size=$SIZE&days=$days&units=$units&ltype=$ltype&points=$points&avg=$avg&showpoint=>$_</a>\n";
query wrapper for graph.cgi
2001-12-07 10:02:32 +00:00
}
print "</ul></td></tr></table></td></tr></table>";
}
sub show_graph {
# HTTP header
print "Content-type: text/html\n\n<HTML>\n";
Fixing machines array typo. showpoint arg doesn't apply in machine or test selection mode. centered the graph, added a title in bold. r=cclabaugh
2004-10-19 23:06:27 +00:00
print "<title>$TESTNAME $TBOX</title><br>\n";
query wrapper for graph.cgi
2001-12-07 10:02:32 +00:00
Adding form UI for days=n argument
2001-12-13 04:53:03 +00:00
print "<body>\n";
Adding moving point average support.
2001-12-31 05:03:23 +00:00
# JS refresh every 30min
print "<script>setTimeout('location.reload()',1800000);</script>\n";
Fixing machines array typo. showpoint arg doesn't apply in machine or test selection mode. centered the graph, added a title in bold. r=cclabaugh
2004-10-19 23:06:27 +00:00
print "<center>\n";
Finally fixed the days layout problem, the form was fighting with tables.
2004-10-26 23:04:41 +00:00
print "<table cellspacing=8 border=0>\n";
Fixing machines array typo. showpoint arg doesn't apply in machine or test selection mode. centered the graph, added a title in bold. r=cclabaugh
2004-10-19 23:06:27 +00:00
print "<tr>\n";
print "<b>$TESTNAME</b><br>($TBOX)\n";
print "</tr>\n";
Adding form UI for days=n argument
2001-12-13 04:53:03 +00:00
print "<tr>\n";
# Scale Y-axis
Added graph size UI. Made lead UI smaller font=-1.
2001-12-16 00:06:51 +00:00
print "<td valign=bottom>\n";
print "<font size=\"-1\">\n";
Adding yahoo-quote-style Y-axis control UI.
2001-12-13 02:10:16 +00:00
if($AUTOSCALE) {
print "Y-axis: (<b>zoom</b>|";
Trying out new cgi parameter showpoint, &showpoint=2002:03:21:06:52:28,4087 will print a big point there, e.g. highlighting one of the data points
2002-05-05 08:14:00 +00:00
print "<a href=\"query.cgi?tbox=$TBOX&testname=$TESTNAME&autoscale=0&size=$SIZE&days=$DAYS&units=$UNITS&ltype=$LTYPE&points=$POINTS&showpoint=$SHOWPOINT&avg=$AVG\">100%</a>";
Adding form UI for days=n argument
2001-12-13 04:53:03 +00:00
print ") \n";
Adding yahoo-quote-style Y-axis control UI.
2001-12-13 02:10:16 +00:00
} else {
print "Y-axis: (";
Trying out new cgi parameter showpoint, &showpoint=2002:03:21:06:52:28,4087 will print a big point there, e.g. highlighting one of the data points
2002-05-05 08:14:00 +00:00
print "<a href=\"query.cgi?tbox=$TBOX&testname=$TESTNAME&autoscale=1&size=$SIZE&days=$DAYS&units=$UNITS&ltype=$LTYPE&points=$POINTS&showpoint=$SHOWPOINT&avg=$AVG\">zoom</a>";
Adding form UI for days=n argument
2001-12-13 04:53:03 +00:00
print "|<b>100%</b>) \n";
Adding yahoo-quote-style Y-axis control UI.
2001-12-13 02:10:16 +00:00
}
Added graph size UI. Made lead UI smaller font=-1.
2001-12-16 00:06:51 +00:00
print "</font>\n";
Adding form UI for days=n argument
2001-12-13 04:53:03 +00:00
print "</td>\n";
# Days, Time-axis
Adding moving point average support.
2001-12-31 05:03:23 +00:00
print "<form method=\"get\" action=\"query.cgi?tbox=$TBOX&testname=$TESTNAME&autoscale=$AUTOSCALE&size=$SIZE&units=$UNITS&ltype=$LTYPE&points=$POINTS&avg=$AVG\">\n";
Adding form UI for days=n argument
2001-12-13 04:53:03 +00:00
print "<input type=hidden name=\"tbox\" value=\"$TBOX\">";
print "<input type=hidden name=\"testname\" value=\"$TESTNAME\">";
print "<input type=hidden name=\"autoscale\" value=\"$AUTOSCALE\">";
Added graph size UI. Made lead UI smaller font=-1.
2001-12-16 00:06:51 +00:00
print "<input type=hidden name=\"size\" value=\"$SIZE\">";
days=n form submit was ignoring units, ltype, points.
2001-12-13 07:48:34 +00:00
print "<input type=hidden name=\"units\" value=\"$UNITS\">";
print "<input type=hidden name=\"ltype\" value=\"$LTYPE\">";
print "<input type=hidden name=\"points\" value=\"$POINTS\">";
Trying out new cgi parameter showpoint, &showpoint=2002:03:21:06:52:28,4087 will print a big point there, e.g. highlighting one of the data points
2002-05-05 08:14:00 +00:00
print "<input type=hidden name=\"showpoint\" value=\"$SHOWPOINT\">";
Adding moving point average support.
2001-12-31 05:03:23 +00:00
print "<input type=hidden name=\"avg\" value=\"$AVG\">";
Adding form UI for days=n argument
2001-12-13 04:53:03 +00:00
Finally fixed the days layout problem, the form was fighting with tables.
2004-10-26 23:04:41 +00:00
print "<td>\n";
print "<table valign=bottom cellspacing=0 border=0 cellpadding=0>\n";
print "<tr valign=\"bottom\">\n";
print "<td valign=bottom>\n";
print "<font size=\"-1\">\n";
Adding form UI for days=n argument
2001-12-13 04:53:03 +00:00
print "Days:";
if($DAYS) {
Finally fixed the days layout problem, the form was fighting with tables.
2004-10-26 23:04:41 +00:00
print "(<a href=\"query.cgi?tbox=$TBOX&testname=$TESTNAME&autoscale=$AUTOSCALE&size=$SIZE&days=0&units=$UNITS&ltype=$LTYPE&points=$POINTS&showpoint=$SHOWPOINT&avg=$AVG\">all data</a>|";
print "</td>\n";
print "<td valign=bottom>\n";
print "<font size=\"-1\">\n";
print "<input type=text value=$DAYS name=\"days\" size=3 maxlength=10>\n";
print "</td>\n";
print "<td valign=bottom>\n";
print "<font size=\"-1\">\n";
print ")\n";
print "</td>\n";
Adding form UI for days=n argument
2001-12-13 04:53:03 +00:00
} else {
Finally fixed the days layout problem, the form was fighting with tables.
2004-10-26 23:04:41 +00:00
print "(<b>all data</b>|";
print "</td>\n";
print "<td valign=bottom>\n";
print "<font size=\"-1\">\n";
print "<input type=text value=\"\" name=\"days\" size=3 maxlength=10>\n";
print "</td>\n";
print "<td valign=bottom>\n";
print "<font size=\"-1\">\n";
print ")\n";
print "</td>\n";
Adding form UI for days=n argument
2001-12-13 04:53:03 +00:00
}
Finally fixed the days layout problem, the form was fighting with tables.
2004-10-26 23:04:41 +00:00
print "</tr>\n";
print "</table>\n";
Added graph size UI. Made lead UI smaller font=-1.
2001-12-16 00:06:51 +00:00
print "</font>\n";
Adding form UI for days=n argument
2001-12-13 04:53:03 +00:00
print "</form>\n";
print "</td>\n";
splitting out separate points UI
2001-12-13 07:42:53 +00:00
# Line style (lines|steps)
Added graph size UI. Made lead UI smaller font=-1.
2001-12-16 00:06:51 +00:00
print "<td valign=bottom>\n";
print "<font size=\"-1\">\n";
Adding line style UI
2001-12-13 07:17:48 +00:00
print "Style:";
if($LTYPE eq "steps") {
print "(";
Trying out new cgi parameter showpoint, &showpoint=2002:03:21:06:52:28,4087 will print a big point there, e.g. highlighting one of the data points
2002-05-05 08:14:00 +00:00
print "<a href=\"query.cgi?tbox=$TBOX&testname=$TESTNAME&autoscale=$AUTOSCALE&size=$SIZE&days=$DAYS&units=$UNITS&ltype=lines&points=$POINTS&showpoint=$SHOWPOINT&avg=$AVG\">lines</a>";
splitting out separate points UI
2001-12-13 07:42:53 +00:00
print "|<b>steps</b>";
Adding line style UI
2001-12-13 07:17:48 +00:00
print ")";
} else {
print "(<b>lines</b>|";
Trying out new cgi parameter showpoint, &showpoint=2002:03:21:06:52:28,4087 will print a big point there, e.g. highlighting one of the data points
2002-05-05 08:14:00 +00:00
print "<a href=\"query.cgi?tbox=$TBOX&testname=$TESTNAME&autoscale=$AUTOSCALE&size=$SIZE&days=$DAYS&units=$UNITS&ltype=steps&points=$POINTS&showpoint=$SHOWPOINT&avg=$AVG\">steps</a>";
Adding line style UI
2001-12-13 07:17:48 +00:00
print ")";
}
Added graph size UI. Made lead UI smaller font=-1.
2001-12-16 00:06:51 +00:00
print "</font>\n";
Adding line style UI
2001-12-13 07:17:48 +00:00
print "</td>\n";
splitting out separate points UI
2001-12-13 07:42:53 +00:00
# Points (on|off)
Added graph size UI. Made lead UI smaller font=-1.
2001-12-16 00:06:51 +00:00
print "<td valign=bottom>\n";
print "<font size=\"-1\">\n";
splitting out separate points UI
2001-12-13 07:42:53 +00:00
print "Points:";
if($POINTS) {
print "(<b>on</b>|";
Trying out new cgi parameter showpoint, &showpoint=2002:03:21:06:52:28,4087 will print a big point there, e.g. highlighting one of the data points
2002-05-05 08:14:00 +00:00
print "<a href=\"query.cgi?tbox=$TBOX&testname=$TESTNAME&autoscale=$AUTOSCALE&size=$SIZE&days=$DAYS&units=$UNITS&ltype=$LTYPE&points=0&showpoint=$SHOWPOINT&avg=$AVG\">off</a>";
splitting out separate points UI
2001-12-13 07:42:53 +00:00
print ")\n";
} else {
print "(";
Trying out new cgi parameter showpoint, &showpoint=2002:03:21:06:52:28,4087 will print a big point there, e.g. highlighting one of the data points
2002-05-05 08:14:00 +00:00
print "<a href=\"query.cgi?tbox=$TBOX&testname=$TESTNAME&autoscale=$AUTOSCALE&size=$SIZE&days=$DAYS&units=$UNITS&ltype=$LTYPE&points=1&showpoint=$SHOWPOINT&avg=$AVG\">on</a>";
splitting out separate points UI
2001-12-13 07:42:53 +00:00
print "|<b>off</b>)\n";
}
Added graph size UI. Made lead UI smaller font=-1.
2001-12-16 00:06:51 +00:00
print "</font>\n";
splitting out separate points UI
2001-12-13 07:42:53 +00:00
print "</td>\n";
Adding line style UI
2001-12-13 07:17:48 +00:00
Adding moving point average support.
2001-12-31 05:03:23 +00:00
# Average (on|off)
print "<td valign=bottom>\n";
print "<font size=\"-1\">\n";
print "<A title=\"Moving average of last 10 points\">Average:</a>";
if($AVG) {
print "(<b>on</b>|";
Trying out new cgi parameter showpoint, &showpoint=2002:03:21:06:52:28,4087 will print a big point there, e.g. highlighting one of the data points
2002-05-05 08:14:00 +00:00
print "<a href=\"query.cgi?tbox=$TBOX&testname=$TESTNAME&autoscale=$AUTOSCALE&size=$SIZE&days=$DAYS&units=$UNITS&ltype=$LTYPE&points=$POINTS&showpoint=$SHOWPOINT&avg=0\">off</a>";
Adding moving point average support.
2001-12-31 05:03:23 +00:00
print ")\n";
} else {
print "(";
Trying out new cgi parameter showpoint, &showpoint=2002:03:21:06:52:28,4087 will print a big point there, e.g. highlighting one of the data points
2002-05-05 08:14:00 +00:00
print "<a href=\"query.cgi?tbox=$TBOX&testname=$TESTNAME&autoscale=$AUTOSCALE&size=$SIZE&days=$DAYS&units=$UNITS&ltype=$LTYPE&points=$POINTS&showpoint=$SHOWPOINT&avg=1\">on</a>";
Adding moving point average support.
2001-12-31 05:03:23 +00:00
print "|<b>off</b>)\n";
}
print "</font>\n";
print "</td>\n";
Adding form UI for days=n argument
2001-12-13 04:53:03 +00:00
print "</tr>\n";
Adding moving point average support.
2001-12-31 05:03:23 +00:00
Adding form UI for days=n argument
2001-12-13 04:53:03 +00:00
print "</table>\n";
Adding yahoo-quote-style Y-axis control UI.
2001-12-13 02:10:16 +00:00
print "<br>\n";
Adding machine/test browsing links
2001-12-13 05:35:12 +00:00
Adding moving point average support.
2001-12-31 05:03:23 +00:00
query wrapper for graph.cgi
2001-12-07 10:02:32 +00:00
# graph
Trying out new cgi parameter showpoint, &showpoint=2002:03:21:06:52:28,4087 will print a big point there, e.g. highlighting one of the data points
2002-05-05 08:14:00 +00:00
print "<img src=\"graph.cgi?tbox=$TBOX&testname=$TESTNAME&autoscale=$AUTOSCALE&size=$SIZE&days=$DAYS&units=$UNITS&ltype=$LTYPE&points=$POINTS&showpoint=$SHOWPOINT&avg=$AVG\" alt=\"$TBOX $TESTNAME graph\">";
Adding form UI for days=n argument
2001-12-13 04:53:03 +00:00
Adding machine/test browsing links
2001-12-13 05:35:12 +00:00
print "<br>\n";
print "<br>\n";
Added graph size UI. Made lead UI smaller font=-1.
2001-12-16 00:06:51 +00:00
Finally fixed the days layout problem, the form was fighting with tables.
2004-10-26 23:04:41 +00:00
print "<table cellspacing=8 border=0>\n";
Added graph size UI. Made lead UI smaller font=-1.
2001-12-16 00:06:51 +00:00
print "<tr>\n";
print "<td>\n";
Comments, multiquery links
2002-01-07 07:35:19 +00:00
#
# Links at the bottom
#
Adding machine/test browsing links
2001-12-13 05:35:12 +00:00
# Other machines
smaller font for browsing links
2001-12-13 05:37:23 +00:00
print "<font size=\"-1\">";
Adding machine/test browsing links
2001-12-13 05:35:12 +00:00
print "<li>\n";
Adding moving point average support.
2001-12-31 05:03:23 +00:00
print "<a href=\"query.cgi?tbox=&testname=$TESTNAME&autoscale=$AUTOSCALE&size=$SIZE&days=$DAYS&units=$UNITS&ltype=$LTYPE&points=$POINTS&avg=$AVG\">Other machines running the $TESTNAME test</a>";
Adding machine/test browsing links
2001-12-13 05:35:12 +00:00
print "</li>\n";
Comments, multiquery links
2002-01-07 07:35:19 +00:00
# Other tests
Adding machine/test browsing links
2001-12-13 05:35:12 +00:00
print "<li>\n";
one-click to see other tests links
2002-01-06 20:13:05 +00:00
print "Other $TBOX tests: (<a href=\"query.cgi?tbox=$TBOX&testname=startup&autoscale=$AUTOSCALE&size=$SIZE&days=$DAYS&units=$UNITS&ltype=$LTYPE&points=$POINTS&avg=$AVG\">startup</a>, <a href=\"query.cgi?tbox=$TBOX&testname=xulwinopen&autoscale=$AUTOSCALE&size=$SIZE&days=$DAYS&units=$UNITS&ltype=$LTYPE&points=$POINTS&avg=$AVG\">xulwinopen</a>, <a href=\"query.cgi?tbox=$TBOX&testname=pageload&autoscale=$AUTOSCALE&size=$SIZE&days=$DAYS&units=$UNITS&ltype=$LTYPE&points=$POINTS&avg=$AVG\">pageload</a>,
<a href=\"query.cgi?tbox=$TBOX&testname=&autoscale=$AUTOSCALE&size=$SIZE&days=$DAYS&units=$UNITS&ltype=$LTYPE&points=$POINTS&avg=$AVG\">show all tests</a>)";
Adding machine/test browsing links
2001-12-13 05:35:12 +00:00
print "</li>\n";
adding rawdata link
2001-12-15 10:54:56 +00:00
Comments, multiquery links
2002-01-07 07:35:19 +00:00
# Multiplots, hard-coded for now.
adding sleestack
2002-03-21 23:10:33 +00:00
# luna,sleestack,mecca,mocha
Comments, multiquery links
2002-01-07 07:35:19 +00:00
print "<li>\n";
remove ip hack
2002-04-11 05:15:44 +00:00
print "Multiqueries: (<a href=\"multiquery.cgi?&testname=startup&tboxes=comet,luna,sleestack,mecca,facedown,openwound,rheeeet&days=$DAYS&autoscale=$AUTOSCALE&units=$UNITS&ltype=$LTYPE&points=$POINTS&avg=$AVG\">startup</a>, <a href=\multiquery.cgi?&testname=xulwinopen&tboxes=comet,luna,sleestack,mecca,facedown,openwound,rheeeet&days=$DAYS&autoscale=$AUTOSCALE&units=$UNITS&ltype=$LTYPE&points=$POINTS&avg=$AVG\">xulwinopen</a>, <a href=\"multiquery.cgi?&testname=pageload&tboxes=btek,luna,sleestack,mecca,mocha&days=$DAYS&autoscale=$AUTOSCALE&units=$UNITS&ltype=$LTYPE&points=$POINTS&avg=$AVG\">pageload</a>, <a href=\"multiquery.cgi\">build your own multiquery</a>)";
Comments, multiquery links
2002-01-07 07:35:19 +00:00
print "</li>\n";
# Raw data.
adding rawdata link
2001-12-15 10:54:56 +00:00
print "<li>\n";
Adding two m.performance links
2001-12-18 07:52:18 +00:00
print "<a href=\"rawdata.cgi?tbox=$TBOX&testname=$TESTNAME&days=$DAYS\">Show the raw data for this plot</a>";
print "</li>\n";
Comments, multiquery links
2002-01-07 07:35:19 +00:00
# Mailto
Adding two m.performance links
2001-12-18 07:52:18 +00:00
print "<li>\n";
print "<a href=\"mailto:mozilla-performance\@mozilla.org?subject=Perf: $TBOX/$TESTNAME test regression\">Mail m.performance about regressions for this test</a>";
print "</li>\n";
Comments, multiquery links
2002-01-07 07:35:19 +00:00
# Newsgroup
Adding two m.performance links
2001-12-18 07:52:18 +00:00
print "<li>\n";
print "<a href=\"news://news.mozilla.org/netscape.public.mozilla.performance\">performance newsgroup</a>";
adding rawdata link
2001-12-15 10:54:56 +00:00
print "</li>\n";
smaller font for browsing links
2001-12-13 05:37:23 +00:00
print "</font>";
Adding machine/test browsing links
2001-12-13 05:35:12 +00:00
Added graph size UI. Made lead UI smaller font=-1.
2001-12-16 00:06:51 +00:00
print "</td>\n";
print "<td>\n";
# Graph size
print "<td valign=\"top\">\n";
Adding moving point average support.
2001-12-31 05:03:23 +00:00
print "<form method=\"get\" action=\"query.cgi?tbox=$TBOX&testname=$TESTNAME&autoscale=$AUTOSCALE&days=$DAYS&units=$UNITS&ltype=$LTYPE&points=$POINTS&avg=$AVG\">\n";
Added graph size UI. Made lead UI smaller font=-1.
2001-12-16 00:06:51 +00:00
print "<font size=\"-1\">\n";
print "<input type=hidden name=\"tbox\" value=\"$TBOX\">";
print "<input type=hidden name=\"testname\" value=\"$TESTNAME\">";
print "<input type=hidden name=\"autoscale\" value=\"$AUTOSCALE\">";
print "<input type=hidden name=\"days\" value=\"$DAYS\">";
print "<input type=hidden name=\"units\" value=\"$UNITS\">";
print "<input type=hidden name=\"ltype\" value=\"$LTYPE\">";
print "<input type=hidden name=\"points\" value=\"$POINTS\">";
Trying out new cgi parameter showpoint, &showpoint=2002:03:21:06:52:28,4087 will print a big point there, e.g. highlighting one of the data points
2002-05-05 08:14:00 +00:00
print "<input type=hidden name=\"showpoint\" value=\"$SHOWPOINT\">";
graph size wasn't preserving average setting
2002-01-28 06:51:22 +00:00
print "<input type=hidden name=\"avg\" value=\"$AVG\">";
Added graph size UI. Made lead UI smaller font=-1.
2001-12-16 00:06:51 +00:00
print "Graph size:";
if($SIZE) {
print "<input type=text value=$SIZE name=\"size\" size=3 maxlength=10>\n";
} else {
print "<input type=text value=1.0 name=\"size\" size=3 maxlength=10>\n";
}
print "</font>\n";
print "</form>\n";
print "</td>\n";
print "</td>\n";
print "</tr>\n";
print "</table>\n";
Fixing machines array typo. showpoint arg doesn't apply in machine or test selection mode. centered the graph, added a title in bold. r=cclabaugh
2004-10-19 23:06:27 +00:00
print "</center>\n";
Adding machine/test browsing links
2001-12-13 05:35:12 +00:00
Adding form UI for days=n argument
2001-12-13 04:53:03 +00:00
print "</body>\n";
query wrapper for graph.cgi
2001-12-07 10:02:32 +00:00
}
commenting main routine
2001-12-16 00:23:09 +00:00
# main
{
if(!$TESTNAME) {
Adding moving point average support.
2001-12-31 05:03:23 +00:00
print_testnames($TBOX, $AUTOSCALE, $DAYS, $UNITS, $LTYPE, $POINTS, $AVG);
commenting main routine
2001-12-16 00:23:09 +00:00
} elsif(!$TBOX) {
Adding moving point average support.
2001-12-31 05:03:23 +00:00
print_machines($TESTNAME, $AUTOSCALE, $DAYS, $UNITS, $LTYPE, $POINTS, $AVG);
commenting main routine
2001-12-16 00:23:09 +00:00
} else {
show_graph();
}
query wrapper for graph.cgi
2001-12-07 10:02:32 +00:00
}
exit 0;
Reference in New Issue Copy Permalink