Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-10-09 03:15:11 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

avg -> value

Browse Source
This commit is contained in:
mcafee%netscape.com 2001-11-30 05:53:01 +00:00
parent ba13aea768
commit 2d4846374f
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
webtools/graph/startup/collect.cgi
View File

@ -6,12 +6,12 @@ use strict;
my $req = new CGI::Request;
# incoming query string has the form: "?avg=n&data=p:q:r...&tbox=foopy"
# 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{$avg $data $tbox $ua $ip $time};
$avg = $req->param('avg');
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");
@ -19,7 +19,7 @@ $ip = $req->cgi->var("REMOTE_ADDR");
$time = strftime "%Y:%m:%d:%H:%M:%S", localtime;
print "Content-type: text/plain\n\n";
for (qw{avg data tbox ua ip time}) {
for (qw{value data tbox ua ip time}) {
no strict 'refs';
printf "%6s = %s\n", $_, $$_;
}
@ -34,15 +34,15 @@ my %nametable = read_config();
# 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 'avg' parameter supplied"
unless $avg;
die "No 'value' parameter supplied"
unless $value;
die "No 'data' parameter supplied"
unless $data;
# record data
open(FILE, ">> db/$tbox") ||
die "Can't open $tbox: $!";
print FILE "$time\t$avg\t$data\t$ip\t$tbox\t$ua\n";
print FILE "$time\t$value\t$data\t$ip\t$tbox\t$ua\n";
close(FILE);
exit 0;