post/graph-http-len

   1 #!/usr/bin/perl
   2 # Draw graphs of HTTP transaction lengths from http-stats output
   3 # (c) 2003 Martin Mares <mj@ucw.cz>, GPL'ed
   4
   5 use strict;
   6 use warnings;
   7 use POSIX;
   8
   9 my $datafile = "gp.tmp";
  10 open D, ">$datafile" or die;
  11
  12 my @colnames = ();
  13 my @ewma = ( 0 );
  14 my $ew = 0;
  15 my $eww = 1-$ew;
  16 while (<>) {
  17         chomp;
  18         if (/^#/) {
  19                 s/^#\s+//;
  20                 @colnames = split /\t/;
  21         } else {
  22                 my $i = 0;
  23                 s/\([^)]*\)//g;
  24                 my %row = map { $colnames[$i++] => $_ } split /\t/;
  25                 my $time = POSIX::strftime("%d-%m-%Y %H:%M:%S", localtime $row{'time'});
  26                 my @r = (
  27                         ($row{'Total'} ? $row{'LenTotal'}/$row{'Total'} : 0) / 1024
  28                 );
  29                 print D "$time";
  30                 for (my $i=0; $i<=$#r; $i++) {
  31                         $ewma[$i] = $ew*$ewma[$i] + $eww*$r[$i];
  32                         print D "\t", $ewma[$i];
  33                 }
  34                 print D "\n";
  35         }
  36 }
  37
  38 close D;
  39 open GP, "|gnuplot" or die;
  40 print GP <<EOF
  41 set terminal png
  42 set grid
  43 set style data lines
  44 set title "HTTP Transactions: Average size"
  45 set xlabel "Time"
  46 set ylabel "KBytes [EWMA $ew]"
  47 set xdata time
  48 set timefmt "%d-%m-%Y %H:%M:%S"
  49 set format x "%d/%m\\n%H:%M"
  50 set logscale y 2
  51 #set xtics 86400
  52 set mxtics 3600
  53 plot    [] [1:] "$datafile" using 1:3 title "Size"
  54 EOF
  55 ;
  56 close GP;