2001-12-15 13:50:38 +03:00
|
|
|
#!/usr/bin/perl
|
|
|
|
|
# -*- Mode: perl; indent-tabs-mode: nil -*-
|
|
|
|
|
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 $TESTNAME = lc($req->param('testname'));
|
|
|
|
|
my $TBOX = lc($req->param('tbox'));
|
|
|
|
|
my $DAYS = lc($req->param('days'));
|
|
|
|
|
my $DATAFILE = "db/$TESTNAME/$TBOX";
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
sub show_data {
|
|
|
|
|
die "$TBOX: no data file found."
|
|
|
|
|
unless -e $DATAFILE;
|
|
|
|
|
|
|
|
|
|
#
|
|
|
|
|
# At some point we might want to clip the data printed
|
|
|
|
|
# based on days=n.
|
|
|
|
|
|
|
|
|
|
# Set scaling for x-axis (time)
|
|
|
|
|
#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;
|
|
|
|
|
|
2001-12-16 23:38:57 +03:00
|
|
|
print "<h3>Data for $TBOX $TESTNAME</h3>\n";
|
|
|
|
|
|
|
|
|
|
# links
|
|
|
|
|
print "<li><a href=\"#plot\">plot points</a></li>\n";
|
|
|
|
|
print "<li><a href=\"#raw\">raw points</a></li>\n";
|
|
|
|
|
print "<br>\n";
|
2001-12-15 13:50:38 +03:00
|
|
|
|
|
|
|
|
# Print data that got plotted.
|
2001-12-16 23:38:57 +03:00
|
|
|
print "<a name=\"plot\"><b>Data in plot form: #, (t, y)</b><br>\n";
|
2001-12-15 13:50:38 +03:00
|
|
|
open DATA, "$DATAFILE" or die "Couldn't open file, $DATAFILE: $!";
|
2001-12-16 23:38:57 +03:00
|
|
|
my $i = 0;
|
|
|
|
|
print "<pre>\n";
|
2001-12-15 13:50:38 +03:00
|
|
|
while (<DATA>) {
|
|
|
|
|
my @line = split('\t',$_);
|
2001-12-16 23:38:57 +03:00
|
|
|
$line_string = sprintf "%4d %s %s\n", $i, @line[0], @line[1];
|
|
|
|
|
print "$line_string";
|
|
|
|
|
$i++;
|
2001-12-15 13:50:38 +03:00
|
|
|
}
|
2001-12-16 23:38:57 +03:00
|
|
|
print "</pre>\n";
|
2001-12-15 13:50:38 +03:00
|
|
|
close DATA;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# Print data again, in raw format.
|
|
|
|
|
print "<br>\n";
|
|
|
|
|
print "<br>\n";
|
2001-12-16 23:38:57 +03:00
|
|
|
print "<a name=\"raw\"><b>Data in raw form: #, (t, y, opaque data, ip, user agent)</b><br>\n";
|
2001-12-15 13:50:38 +03:00
|
|
|
open DATA, "$DATAFILE" or die "Couldn't open file, $DATAFILE: $!";
|
2001-12-16 23:38:57 +03:00
|
|
|
$i = 0;
|
|
|
|
|
print "<pre>\n";
|
2001-12-15 13:50:38 +03:00
|
|
|
while (<DATA>) {
|
2001-12-16 23:38:57 +03:00
|
|
|
chomp($_);
|
|
|
|
|
my $line_string = sprintf "%4d %s\n", $i, $_;
|
|
|
|
|
print "$line_string";
|
|
|
|
|
$i++;
|
2001-12-15 13:50:38 +03:00
|
|
|
}
|
2001-12-16 23:38:57 +03:00
|
|
|
print "</pre>\n";
|
2001-12-15 13:50:38 +03:00
|
|
|
close DATA;
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
# main
|
|
|
|
|
{
|
|
|
|
|
|
|
|
|
|
print "Content-type: text/html\n\n<HTML>\n";
|
2001-12-15 13:59:29 +03:00
|
|
|
print "<title>rawdata for $TBOX $TESTNAME</title><br>\n";
|
|
|
|
|
print "<body>\n";
|
2001-12-15 13:50:38 +03:00
|
|
|
|
|
|
|
|
if(!$TESTNAME) {
|
|
|
|
|
print "Error: need testname.";
|
|
|
|
|
} elsif(!$TBOX) {
|
|
|
|
|
print "Error: need machine name.";
|
|
|
|
|
} else {
|
|
|
|
|
show_data();
|
|
|
|
|
}
|
2001-12-15 13:59:29 +03:00
|
|
|
print "</body>\n";
|
|
|
|
|
print "</html>\n";
|
2001-12-15 13:50:38 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
exit 0;
|
|
|
|
|
|
