From f7f14313921a9a60c385f1a0b44c38a36551a254 Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Sat, 21 Jun 2003 08:55:46 +0000
Subject: [PATCH] More tools.

---
 post/graph-http-spect-sizes | 44 ++++++++++++++++++++++++++++++++
 post/graph-http-spect-wait  | 51 +++++++++++++++++++++++++++++++++++++
 post/http-extract           | 18 +++++++++++++
 3 files changed, 113 insertions(+)
 create mode 100755 post/graph-http-spect-sizes
 create mode 100755 post/graph-http-spect-wait
 create mode 100755 post/http-extract

diff --git a/post/graph-http-spect-sizes b/post/graph-http-spect-sizes
new file mode 100755
index 0000000..e6cbd47
--- /dev/null
+++ b/post/graph-http-spect-sizes
@@ -0,0 +1,44 @@
+#!/usr/bin/perl
+# Draw spectrum of HTTP transaction lengths from netgrind output
+# (c) 2003 Martin Mares <mj@ucw.cz>, GPL'ed
+
+use strict;
+use warnings;
+use POSIX;
+
+my @k = ( 0, 32, 64, 128, 256, 512, 1024, 2048, 4096, 8192, 16384, 32768, 65536, 131072, 1000000000 );
+my @v = map { 0 } @k;
+
+while (<>) {
+	chomp;
+	/^#/ && next;
+	my ($t1, $t2, $src, $dst, $ffor, $result, $cache, $queue, $length, $totaltime, $waittime, $ctype, $method, $url) = split /\s+/;
+	if ($result =~ /^\d+$/) {
+		my $i = 0;
+		while ($length >= $k[$i+1]) {
+			$i++;
+		}
+		$v[$i]++;
+	}
+}
+
+my $datafile = "gp.tmp";
+open D, ">$datafile" or die;
+for(my $i=0; $i<$#k; $i++) {
+	print D $k[$i], "\t", $v[$i], "\n";
+}
+close D;
+
+open GP, "|gnuplot" or die;
+print GP <<EOF
+set terminal png
+set grid
+set style data boxes
+set title "HTTP Transactions: Length Histogram"
+set xlabel "Length in bytes"
+set ylabel "Number of transactions"
+set logscale x 2
+plot	"$datafile" using 1:2 title "Histogram"
+EOF
+;
+close GP;
diff --git a/post/graph-http-spect-wait b/post/graph-http-spect-wait
new file mode 100755
index 0000000..00e0e16
--- /dev/null
+++ b/post/graph-http-spect-wait
@@ -0,0 +1,51 @@
+#!/usr/bin/perl
+# Draw spectrum of HTTP transaction lengths from netgrind output
+# (c) 2003 Martin Mares <mj@ucw.cz>, GPL'ed
+
+use strict;
+use warnings;
+use POSIX;
+
+my @k = ( 0, 0.25, 0.5, 1, 2, 4, 8, 16, 32, 64, 1000000000 );
+my @v1 = map { 0 } @k;
+my @v2 = map { 0 } @k;
+
+while (<>) {
+	chomp;
+	/^#/ && next;
+	my ($t1, $t2, $src, $dst, $ffor, $result, $cache, $queue, $length, $totaltime, $waittime, $ctype, $method, $url) = split /\s+/;
+	if ($result =~ /^\d+$/) {
+		my $i = 0;
+		while ($totaltime >= $k[$i+1]) {
+			$i++;
+		}
+		$v1[$i]++;
+		$i = 0;
+		while ($waittime >= $k[$i+1]) {
+			$i++;
+		}
+		$v2[$i]++;
+	}
+}
+
+my $datafile = "gp.tmp";
+open D, ">$datafile" or die;
+for(my $i=0; $i<$#k; $i++) {
+	print D $k[$i], "\t", $v1[$i], "\t", $v2[$i], "\n";
+}
+close D;
+
+open GP, "|gnuplot" or die;
+print GP <<EOF
+set terminal png
+set grid
+set style data boxes
+set title "HTTP Transactions: Length Histogram"
+set xlabel "Delay in seconds"
+set ylabel "Number of transactions"
+set logscale x 2
+plot	"$datafile" using 1:2 title "Total time", \\
+	"$datafile" using 1:3 title "Wait time"
+EOF
+;
+close GP;
diff --git a/post/http-extract b/post/http-extract
new file mode 100755
index 0000000..aa82168
--- /dev/null
+++ b/post/http-extract
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+# Extract data from HTTP transactions
+# (c) 2003 Martin Mares <mj@ucw.cz>, GPL'ed
+
+use strict;
+use warnings;
+use POSIX;
+
+1 == @ARGV or die "Usage: http-extract <perl-expression>";
+eval '
+while (<STDIN>) {
+	chomp;
+	/^#/ && next;
+	my ($t1, $t2, $src, $dst, $ffor, $result, $cache, $queue, $length, $totaltime, $waittime, $ctype, $method, $url) = split /\s+/;
+	print ' . $ARGV[0] . ', "\n";
+}
+';
+die "$ARGV[0]: $@" if $@;
-- 
2.39.2