зеркало из https://github.com/mozilla/gecko-dev.git
removing test-specific cgi's, we have generalized this.
This commit is contained in:
mcafee%netscape.com
Родитель
38fe14bbd7
Коммит
ef1f0d0f95
|
|
@ -1 +0,0 @@
|
|||
db
|
||||
|
|
@ -1,68 +0,0 @@
|
|||
#!/usr/bin/perl
|
||||
use CGI::Carp qw(fatalsToBrowser);
|
||||
use CGI::Request;
|
||||
use POSIX qw(strftime);
|
||||
use strict;
|
||||
|
||||
my $req = new CGI::Request;
|
||||
|
||||
# incoming query string has the form: "?value=n&data=p:q:r...&tbox=foopy"
|
||||
# where 'n' is the average recorded time, and p,q,r... are the raw numbers,
|
||||
# and 'tbox' is a name of a tinderbox
|
||||
|
||||
use vars qw{$value $data $tbox $ua $ip $time};
|
||||
$value = $req->param('value');
|
||||
$data = $req->param('data');
|
||||
$tbox = $req->param('tbox'); $tbox =~ tr/A-Z/a-z/;
|
||||
$ua = $req->cgi->var("HTTP_USER_AGENT");
|
||||
$ip = $req->cgi->var("REMOTE_ADDR");
|
||||
$time = strftime "%Y:%m:%d:%H:%M:%S", localtime;
|
||||
|
||||
print "Content-type: text/plain\n\n";
|
||||
for (qw{value data tbox ua ip time}) {
|
||||
no strict 'refs';
|
||||
printf "%6s = %s\n", $_, $$_;
|
||||
}
|
||||
|
||||
# close HTTP transaction, and then decide whether to record data
|
||||
close(STDOUT);
|
||||
|
||||
my %nametable = read_config();
|
||||
|
||||
# punt fake inputs
|
||||
if (0) {
|
||||
#warn "Yer a liar" && return
|
||||
# unless $ip eq $nametable{$tbox};
|
||||
warn "No 'real' browsers allowed: $ua" && return
|
||||
unless $ua =~ /^(libwww-perl|PERL_CGI_BASE)/;
|
||||
warn "No 'value' parameter supplied" && return
|
||||
unless $value;
|
||||
warn "No 'data' parameter supplied" && return
|
||||
unless $data;
|
||||
}
|
||||
|
||||
# record data
|
||||
open(FILE, ">> db/$tbox") ||
|
||||
die "Can't open $tbox: $!";
|
||||
print FILE "$time\t$value\t$data\t$ip\t$tbox\t$ua\n";
|
||||
close(FILE);
|
||||
|
||||
exit 0;
|
||||
|
||||
#
|
||||
#
|
||||
#
|
||||
sub read_config() {
|
||||
my %nametable;
|
||||
open(CONFIG, "< db/config.txt") ||
|
||||
die "can't open config.txt: $!";
|
||||
while (<CONFIG>) {
|
||||
next if /^$/;
|
||||
next if /^#|^\s+#/;
|
||||
s/\s+#.*$//;
|
||||
my ($tinderbox, $assigned_ip) = split(/\s+/, $_);
|
||||
$nametable{$tinderbox} = $assigned_ip;
|
||||
}
|
||||
return %nametable;
|
||||
}
|
||||
|
||||
|
|
@ -1,141 +0,0 @@
|
|||
#!/usr/bin/perl
|
||||
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 $TBOX = lc($req->param('tbox'));
|
||||
my $AUTOSCALE = lc($req->param('autoscale'));
|
||||
my $DAYS = lc($req->param('days'));
|
||||
my $DATAFILE = "db/$TBOX";
|
||||
|
||||
sub make_machine_list {
|
||||
my @result;
|
||||
chdir "db";
|
||||
while(<*>) {
|
||||
if( $_ ne 'config.txt' ) {
|
||||
push @result, $_;
|
||||
}
|
||||
}
|
||||
chdir "..";
|
||||
return @result;
|
||||
}
|
||||
|
||||
# no tbox, print out a list of machines in db directory, with links.
|
||||
sub print_machines {
|
||||
# HTTP header
|
||||
print "Content-type: text/html\n\n<HTML>\n";
|
||||
print "<center><h2><b>Pageload times:</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_machine_list();
|
||||
my $machines_string = join(" ", @machines);
|
||||
|
||||
foreach (@machines) {
|
||||
print "<li><a href=query.cgi?tbox=$_>$_</a>\n";
|
||||
}
|
||||
print "</ul></td></tr></table></td></tr></table>";
|
||||
|
||||
}
|
||||
|
||||
sub show_graph {
|
||||
die "$TBOX: no data file found"
|
||||
unless -e $DATAFILE;
|
||||
|
||||
my $PNGFILE = "/tmp/gnuplot.$$";
|
||||
|
||||
# Find gnuplot, sorry this is for solaris.
|
||||
my $gnuplot;
|
||||
if(-f "/usr/bin/gnuplot") {
|
||||
$gnuplot = "/usr/bin/gnuplot";
|
||||
} elsif(-f "/usr/local/bin/gnuplot") {
|
||||
$gnuplot = "/usr/local/bin/gnuplot";
|
||||
$ENV{LD_LIBRARY_PATH} .= "/usr/local/lib";
|
||||
} else {
|
||||
die "Can't find gnuplot.";
|
||||
}
|
||||
|
||||
# Set scaling for x-axis (time)
|
||||
my $xscale;
|
||||
my $today;
|
||||
my $n_days_ago;
|
||||
|
||||
# Get current time, $today.
|
||||
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdat) = localtime();
|
||||
$year += 1900;
|
||||
$mon += 1;
|
||||
$today = sprintf "%04d:%02d:%02d:%02d:%02d:%02d", $year, $mon, $mday, $hour, $min, $sec;
|
||||
|
||||
# Calculate date $DAYS before $today.
|
||||
my ($year2, $mon2, $mday2) = Add_Delta_Days($year, $mon, $mday, -$DAYS);
|
||||
$n_days_ago= sprintf "%04d:%02d:%02d:%02d:%02d:%02d", $year2, $mon2, $mday2, $hour, $min, $sec;
|
||||
|
||||
if($DAYS) {
|
||||
# Assume we want to see 7 days on the graph, so we set the max value also.
|
||||
$xscale = "set xrange [\"$n_days_ago\" : \"$today\"]";
|
||||
} else {
|
||||
$xscale = "";
|
||||
}
|
||||
|
||||
# Set scaling for y-axis.
|
||||
my $yscale;
|
||||
if($AUTOSCALE) {
|
||||
$yscale = "";
|
||||
} else {
|
||||
# $yscale = "set yrange [ 0 : ]";
|
||||
|
||||
# btek hack
|
||||
$yscale = "set yrange [ 1200 : 1400 ]";
|
||||
}
|
||||
|
||||
# interpolate params into gnuplot command
|
||||
my $cmds = qq{
|
||||
reset
|
||||
set term png color
|
||||
set output "$PNGFILE"
|
||||
set title "$TBOX Pageload Times"
|
||||
set key graph 0.1,0.95 reverse spacing .75 width -18
|
||||
set linestyle 1 lt 1 lw 1 pt 7 ps 0
|
||||
set linestyle 2 lt 1 lw 1 pt 7 ps 1
|
||||
set data style points
|
||||
set timefmt "%Y:%m:%d:%H:%M:%S"
|
||||
set xdata time
|
||||
$xscale
|
||||
$yscale
|
||||
set ylabel "Pageload time (ms)"
|
||||
set timestamp "Generated: %d/%b/%y %H:%M" 0,0
|
||||
set format x "%h %d"
|
||||
set grid
|
||||
plot "$DATAFILE" using 1:2 with points ls 1, "$DATAFILE" using 1:2 with lines ls 2
|
||||
};
|
||||
|
||||
# Set up command string for gnuplot
|
||||
open (GNUPLOT, "| $gnuplot") || die "can't fork: $!";
|
||||
print GNUPLOT $cmds;
|
||||
close (GNUPLOT) || die "Empty data set? Gnuplot failed to set up the plot command string : $!";
|
||||
|
||||
# Actually do the gnuplot command.
|
||||
open (GNUPLOT, "< $PNGFILE") || die "can't read: $!";
|
||||
{ local $/; $blob = <GNUPLOT>; }
|
||||
close (GNUPLOT) || die "can't close: $!";
|
||||
unlink $PNGFILE || die "can't unlink $PNGFILE: $!";
|
||||
|
||||
print "Content-type: image/png\n\n";
|
||||
print $blob;
|
||||
}
|
||||
|
||||
# main
|
||||
{
|
||||
unless ($TBOX) {
|
||||
print_machines();
|
||||
} else {
|
||||
show_graph();
|
||||
}
|
||||
}
|
||||
|
||||
exit 0;
|
||||
|
||||
|
|
@ -1 +0,0 @@
|
|||
db
|
||||
|
|
@ -1,70 +0,0 @@
|
|||
#!/usr/bin/perl
|
||||
use CGI::Carp qw(fatalsToBrowser);
|
||||
use CGI::Request;
|
||||
use POSIX qw(strftime);
|
||||
use strict;
|
||||
|
||||
my $req = new CGI::Request;
|
||||
|
||||
# incoming query string has the form: "?value=n&data=p:q:r...&tbox=foopy"
|
||||
# where 'n' is the average recorded time, and p,q,r... are the raw numbers,
|
||||
# and 'tbox' is a name of a tinderbox
|
||||
|
||||
use vars qw{$value $data $tbox $ua $ip $time};
|
||||
$value = $req->param('value');
|
||||
$data = $req->param('data');
|
||||
$tbox = $req->param('tbox'); $tbox =~ tr/A-Z/a-z/;
|
||||
$ua = $req->cgi->var("HTTP_USER_AGENT");
|
||||
$ip = $req->cgi->var("REMOTE_ADDR");
|
||||
$time = strftime "%Y:%m:%d:%H:%M:%S", localtime;
|
||||
|
||||
print "Content-type: text/plain\n\n";
|
||||
for (qw{value data tbox ua ip time}) {
|
||||
no strict 'refs';
|
||||
printf "%6s = %s\n", $_, $$_;
|
||||
}
|
||||
|
||||
# close HTTP transaction, and then decide whether to record data
|
||||
close(STDOUT);
|
||||
|
||||
my %nametable = read_config();
|
||||
|
||||
# punt fake inputs
|
||||
#die "Yer a liar"
|
||||
# unless $ip eq $nametable{$tbox} or $ip eq '208.12.39.125';
|
||||
die "No 'real' browsers allowed: $ua"
|
||||
unless $ua =~ /^(libwww-perl|PERL_CGI_BASE)/;
|
||||
die "No 'value' parameter supplied"
|
||||
unless $value;
|
||||
die "No 'data' parameter supplied"
|
||||
unless $data;
|
||||
|
||||
# If file doesn't exist, try creating empty file.
|
||||
unless (-f "db/$tbox") {
|
||||
open(FILE, "> db/$tbox") || die "Can't create new file db/$tbox: $!";
|
||||
close(FILE);
|
||||
}
|
||||
# record data
|
||||
open(FILE, ">> db/$tbox") ||
|
||||
die "Can't open $tbox: $!";
|
||||
print FILE "$time\t$value\t$data\t$ip\t$tbox\t$ua\n";
|
||||
close(FILE);
|
||||
|
||||
exit 0;
|
||||
|
||||
#
|
||||
#
|
||||
#
|
||||
sub read_config() {
|
||||
my %nametable;
|
||||
open(CONFIG, "< db/config.txt") ||
|
||||
die "can't open config.txt: $!";
|
||||
while (<CONFIG>) {
|
||||
next if /^$/;
|
||||
next if /^#|^\s+#/;
|
||||
s/\s+#.*$//;
|
||||
my ($tinderbox, $assigned_ip) = split(/\s+/, $_);
|
||||
$nametable{$tinderbox} = $assigned_ip;
|
||||
}
|
||||
return %nametable;
|
||||
}
|
||||
|
|
@ -1,138 +0,0 @@
|
|||
#!/usr/bin/perl
|
||||
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 $TBOX = lc($req->param('tbox'));
|
||||
my $AUTOSCALE = lc($req->param('autoscale'));
|
||||
my $DAYS = lc($req->param('days'));
|
||||
my $DATAFILE = "db/$TBOX";
|
||||
|
||||
sub make_machine_list {
|
||||
my @result;
|
||||
chdir "db";
|
||||
while(<*>) {
|
||||
if( $_ ne 'config.txt' ) {
|
||||
push @result, $_;
|
||||
}
|
||||
}
|
||||
chdir "..";
|
||||
return @result;
|
||||
}
|
||||
|
||||
# no tbox, print out a list of machines in db directory, with links.
|
||||
sub print_machines {
|
||||
# HTTP header
|
||||
print "Content-type: text/html\n\n<HTML>\n";
|
||||
print "<center><h2><b>XUL Window Open times:</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_machine_list();
|
||||
my $machines_string = join(" ", @machines);
|
||||
|
||||
foreach (@machines) {
|
||||
print "<li><a href=query.cgi?tbox=$_>$_</a>\n";
|
||||
}
|
||||
print "</ul></td></tr></table></td></tr></table>";
|
||||
|
||||
}
|
||||
|
||||
sub show_graph {
|
||||
die "$TBOX: no data file found"
|
||||
unless -e $DATAFILE;
|
||||
|
||||
my $PNGFILE = "/tmp/gnuplot.$$";
|
||||
|
||||
# Find gnuplot, sorry this is for solaris.
|
||||
my $gnuplot;
|
||||
if(-f "/usr/bin/gnuplot") {
|
||||
$gnuplot = "/usr/bin/gnuplot";
|
||||
} elsif(-f "/usr/local/bin/gnuplot") {
|
||||
$gnuplot = "/usr/local/bin/gnuplot";
|
||||
$ENV{LD_LIBRARY_PATH} .= "/usr/local/lib";
|
||||
} else {
|
||||
die "Can't find gnuplot.";
|
||||
}
|
||||
|
||||
# Set scaling for x-axis (time)
|
||||
my $xscale;
|
||||
my $today;
|
||||
my $n_days_ago;
|
||||
|
||||
# Get current time, $today.
|
||||
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdat) = localtime();
|
||||
$year += 1900;
|
||||
$mon += 1;
|
||||
$today = sprintf "%04d:%02d:%02d:%02d:%02d:%02d", $year, $mon, $mday, $hour, $min, $sec;
|
||||
|
||||
# Calculate date $DAYS before $today.
|
||||
my ($year2, $mon2, $mday2) = Add_Delta_Days($year, $mon, $mday, -$DAYS);
|
||||
$n_days_ago= sprintf "%04d:%02d:%02d:%02d:%02d:%02d", $year2, $mon2, $mday2, $hour, $min, $sec;
|
||||
|
||||
if($DAYS) {
|
||||
# Assume we want to see 7 days on the graph, so we set the max value also.
|
||||
$xscale = "set xrange [\"$n_days_ago\" : \"$today\"]";
|
||||
} else {
|
||||
$xscale = "";
|
||||
}
|
||||
|
||||
# Set scaling for y-axis.
|
||||
my $yscale;
|
||||
if($AUTOSCALE) {
|
||||
$yscale = "";
|
||||
} else {
|
||||
$yscale = "set yrange [ 0 : ]";
|
||||
}
|
||||
|
||||
# interpolate params into gnuplot command
|
||||
my $cmds = qq{
|
||||
reset
|
||||
set term png color
|
||||
set output "$PNGFILE"
|
||||
set title "$TBOX XUL Open Window Times"
|
||||
set key graph 0.1,0.95 reverse spacing .75 width -18
|
||||
set linestyle 1 lt 1 lw 1 pt 7 ps 0
|
||||
set linestyle 2 lt 1 lw 1 pt 7 ps 1
|
||||
set data style points
|
||||
set timefmt "%Y:%m:%d:%H:%M:%S"
|
||||
set xdata time
|
||||
$xscale
|
||||
$yscale
|
||||
set ylabel "XUL Window Open time (ms)"
|
||||
set timestamp "Generated: %d/%b/%y %H:%M" 0,0
|
||||
set format x "%h %d"
|
||||
set grid
|
||||
plot "$DATAFILE" using 1:2 with points ls 1, "$DATAFILE" using 1:2 with lines ls 2
|
||||
};
|
||||
|
||||
# Set up command string for gnuplot
|
||||
open (GNUPLOT, "| $gnuplot") || die "can't fork: $!";
|
||||
print GNUPLOT $cmds;
|
||||
close (GNUPLOT) || die "Empty data set? Gnuplot failed to set up the plot command string : $!";
|
||||
|
||||
# Actually do the gnuplot command.
|
||||
open (GNUPLOT, "< $PNGFILE") || die "can't read: $!";
|
||||
{ local $/; $blob = <GNUPLOT>; }
|
||||
close (GNUPLOT) || die "can't close: $!";
|
||||
unlink $PNGFILE || die "can't unlink $PNGFILE: $!";
|
||||
|
||||
print "Content-type: image/png\n\n";
|
||||
print $blob;
|
||||
}
|
||||
|
||||
# main
|
||||
{
|
||||
unless ($TBOX) {
|
||||
print_machines();
|
||||
} else {
|
||||
show_graph();
|
||||
}
|
||||
}
|
||||
|
||||
exit 0;
|
||||
|
||||
Загрузка…
Ссылка в новой задаче