Updated postprocessors for new HTTP log format

diff --git a/post/http-extract b/post/http-extract
index aa82168f693f4db2088c8a1a3fdd8052eb496d31..e50817a74e0f5681c885407a675dc6b1c65315e7 100755 (executable)
--- a/post/http-extract
+++ b/post/http-extract
@@ -11,7 +11,7 @@ eval '
 while (<STDIN>) {
        chomp;
        /^#/ && next;
-       my ($t1, $t2, $src, $dst, $ffor, $result, $cache, $queue, $length, $totaltime, $waittime, $ctype, $method, $url) = split /\s+/;
+       my ($id, $t1, $t2, $src, $dst, $ffor, $result, $cache, $queue, $length, $totaltime, $waittime, $ctype, $method, $url) = split /\s+/;
        print ' . $ARGV[0] . ', "\n";
 }
 ';

diff --git a/post/http-filter b/post/http-filter
index c2baf11a6c3b8229bfcb51e8b792cef8be859438..998291279b715c76160e12b367315d80bec8c49a 100755 (executable)
--- a/post/http-filter
+++ b/post/http-filter
@@ -11,7 +11,7 @@ eval '
 while (<STDIN>) {
        chomp;
        /^#/ && next;
-       my ($t1, $t2, $src, $dst, $ffor, $result, $cache, $queue, $length, $totaltime, $waittime, $ctype, $method, $url) = split /\s+/;
+       my ($id, $t1, $t2, $src, $dst, $ffor, $result, $cache, $queue, $length, $totaltime, $waittime, $ctype, $method, $url) = split /\s+/;
        if (' . $ARGV[0] . ') {
                print $_, "\n";
        }

diff --git a/post/http-stats b/post/http-stats
index a1a88fdd8b687dfb1baa3c6d358a9bfb11a6af19..3d9b461799b956605dece11d5d4d70122e6e1b67 100755 (executable)
--- a/post/http-stats
+++ b/post/http-stats
@@ -6,13 +6,13 @@ use strict;
 use warnings;
 use POSIX;
 
-print "# time  width   Total   TCPErr  Nocache CacheHit        CacheMiss       LenTotal        NTimings        TimeTotal       TimeTMin        TimeTMax        TimeWait        TimeWMin        TimeWMax        NGETs   NPOSTs\n";
+print "# id   time     width   Total   TCPErr  Nocache CacheHit        CacheMiss       LenTotal        NTimings        TimeTotal       TimeTMin        TimeTMax        TimeWait        TimeWMin        TimeWMax        NGETs   NPOSTs\n";
 my $histogran = 60;
 my %hist = ();
 while (<>) {
        chomp;
        /^#/ && next;
-       my ($t1, $t2, $src, $dst, $ffor, $result, $cache, $queue, $length, $totaltime, $waittime, $ctype, $method, $url) = split /\s+/;
+       my ($id, $t1, $t2, $src, $dst, $ffor, $result, $cache, $queue, $length, $totaltime, $waittime, $ctype, $method, $url) = split /\s+/;
        my ($tY, $tm, $td) = split (/-/, $t1);
        my ($tH, $tM, $tS) = split (/:/, $t2);
        my $tt = POSIX::mktime($tS, $tM, $tH, $td, $tm-1, $tY-1900);