...

diff --git a/post/graph-http-wait b/post/graph-http-wait
index b8577d910921fa8bfb9b710cdd1f76b94cdd91ec..57e8990d03c2cf45283f27745645459d4c7b91af 100755 (executable)
--- a/post/graph-http-wait
+++ b/post/graph-http-wait
@@ -13,7 +13,7 @@ open D, ">$datafile" or die;
 
 my @colnames = ();
 my @ewma = ( 0, 0, 0, 0, 0, 0 );
-my $ew = 0.9;
+my $ew = 0;
 my $eww = 1-$ew;
 while (<STDIN>) {
        chomp;
@@ -65,8 +65,9 @@ set xdata time
 set timefmt "%d-%m-%Y %H:%M:%S"
 set format x "%d/%m\\n%H:%M"
 #set xtics 86400
-set mxtics 3600
-plot   "$datafile" using 1:$c1 title "Total time", \\
+#set mxtics 3600
+plot [] [0:30] \\
+       "$datafile" using 1:$c1 title "Total time", \\
        "$datafile" using 1:$c2 title "Reply delay"
 EOF
 ;

diff --git a/post/http-stats b/post/http-stats
index 076a908d63219d080d16f00dbf26e05a91d2ae03..a1a88fdd8b687dfb1baa3c6d358a9bfb11a6af19 100755 (executable)
--- a/post/http-stats
+++ b/post/http-stats
@@ -40,6 +40,12 @@ while (<>) {
        $h->[14]++ if $method eq "GET";
        $h->[15]++ if $method eq "POST";
 }
+my $ltt = 1e30;
 foreach my $x (sort keys %hist) {
+       while ($ltt < $x) {
+               print "$ltt\t$histogran", "\t0" x $#{$hist{$x}}, "\n";
+               $ltt += $histogran;
+       }
+       $ltt = $x + $histogran;
        print "$x\t", join("\t", @{$hist{$x}}), "\n";
 }