From: Martin Mares <mj@ucw.cz>
Date: Sat, 21 Jun 2003 08:55:12 +0000 (+0000)
Subject: ...
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=5be8595dc75dbf721e6018227d746158ee4b50b7;p=netgrind.git

...
---

diff --git a/post/graph-http-wait b/post/graph-http-wait
index b8577d9..57e8990 100755
--- 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 076a908..a1a88fd 100755
--- 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";
 }