diff --git a/webtools/graph/xulwinopen/collect.cgi b/webtools/graph/xulwinopen/collect.cgi index 7285c70cc59a..3e8529808faf 100755 --- a/webtools/graph/xulwinopen/collect.cgi +++ b/webtools/graph/xulwinopen/collect.cgi @@ -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;