switching avg to value

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;