post/graph-hist-link

   1 #!/usr/bin/perl
   2 # Draw graphs of link traffic from netgrind histograms
   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, 0, 0 );
  14 my $ew = 0.9;
  15 my $eww = 1-$ew;
  16 my $w = 60;
  17 while (<>) {
  18         chomp;
  19         if (/^#/) {
  20                 s/^#\s+//;
  21                 @colnames = split /\t/;
  22         } else {
  23                 my $i = 0;
  24                 my %row = map { $colnames[$i++] => $_ } split /\t/;
  25                 my $time = POSIX::strftime("%d-%m-%Y %H:%M:%S", localtime $row{'time'});
  26                 my $linkin = $row{'LinkIn'};
  27                 $linkin =~ s/.*\((.*)\)/$1/;
  28                 my $ipin = $row{'IPIn'};
  29                 $ipin =~ s/.*\((.*)\)/$1/;
  30                 my @r = (
  31                          $linkin * 8 / $w / 1024,
  32                          $ipin * 8 / $w / 1024
  33                 );
  34                 $r[1] = $r[0] - $r[1];
  35                 print D "$time";
  36                 for (my $i=0; $i<=$#r; $i++) {
  37                         $ewma[$i] = $ew*$ewma[$i] + $eww*$r[$i];
  38                         print D "\t", $ewma[$i];
  39                 }
  40                 print D "\n";
  41         }
  42 }
  43
  44 close D;
  45 open GP, "|gnuplot" or die;
  46 print GP <<EOF
  47 set terminal png
  48 set grid
  49 set style data lines
  50 set title "Captured traffic"
  51 set xlabel "Time"
  52 set ylabel "Kbit/s [EWMA $ew]"
  53 set xdata time
  54 set timefmt "%d-%m-%Y %H:%M:%S"
  55 set format x "%d/%m\\n%H:%M"
  56 #set xtics 86400
  57 set mxtics 3600
  58 plot    "$datafile" using 1:3 title "Total traffic", \\
  59         "$datafile" using 1:4 title "Non-IP traffic"
  60 EOF
  61 ;
  62 close GP;