From 49e11227c648dff5aed91c454421c5add6dc8e7c Mon Sep 17 00:00:00 2001 From: "mcafee%netscape.com" Date: Sun, 23 Dec 2001 21:44:37 +0000 Subject: [PATCH] removing test-specific cgi, we have generalized this. git-svn-id: svn://10.0.0.236/trunk@111047 18797224-902f-48f8-a5cc-f745e15eee43 --- mozilla/webtools/graph/startup/collect.cgi | 71 ----------- mozilla/webtools/graph/startup/query.cgi | 138 --------------------- 2 files changed, 209 deletions(-) delete mode 100755 mozilla/webtools/graph/startup/collect.cgi delete mode 100755 mozilla/webtools/graph/startup/query.cgi diff --git a/mozilla/webtools/graph/startup/collect.cgi b/mozilla/webtools/graph/startup/collect.cgi deleted file mode 100755 index 2d175323512..00000000000 --- a/mozilla/webtools/graph/startup/collect.cgi +++ /dev/null @@ -1,71 +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 db/$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 () { - next if /^$/; - next if /^#|^\s+#/; - s/\s+#.*$//; - my ($tinderbox, $assigned_ip) = split(/\s+/, $_); - $nametable{$tinderbox} = $assigned_ip; - } - return %nametable; -} diff --git a/mozilla/webtools/graph/startup/query.cgi b/mozilla/webtools/graph/startup/query.cgi deleted file mode 100755 index 080a9f7361c..00000000000 --- a/mozilla/webtools/graph/startup/query.cgi +++ /dev/null @@ -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\n"; - print "

Startup times:

"; - print "

"; - print ""; - print "
Select one of the following machines:
\n"; - print "
    \n"; - - my @machines = make_machine_list(); - my $machines_string = join(" ", @machines); - - foreach (@machines) { - print "
  • $_\n"; - } - print "
"; - -} - -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 Startup 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 "Startup 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 = ; } - 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; -