2 # Draw graphs of HTTP transaction lengths from http-stats output
3 # (c) 2003 Martin Mares <mj@ucw.cz>, GPL'ed
9 my $datafile = "gp.tmp";
10 open D, ">$datafile" or die;
20 @colnames = split /\t/;
24 my %row = map { $colnames[$i++] => $_ } split /\t/;
25 my $time = POSIX::strftime("%d-%m-%Y %H:%M:%S", localtime $row{'time'});
27 ($row{'Total'} ? $row{'LenTotal'}/$row{'Total'} : 0) / 1024
30 for (my $i=0; $i<=$#r; $i++) {
31 $ewma[$i] = $ew*$ewma[$i] + $eww*$r[$i];
32 print D "\t", $ewma[$i];
39 open GP, "|gnuplot" or die;
44 set title "HTTP Transactions: Average size"
46 set ylabel "KBytes [EWMA $ew]"
48 set timefmt "%d-%m-%Y %H:%M:%S"
49 set format x "%d/%m\\n%H:%M"
53 plot "$datafile" using 1:3 title "Size"