From 5be8595dc75dbf721e6018227d746158ee4b50b7 Mon Sep 17 00:00:00 2001 From: Martin Mares Date: Sat, 21 Jun 2003 08:55:12 +0000 Subject: [PATCH] ... --- post/graph-http-wait | 7 ++++--- post/http-stats | 6 ++++++ 2 files changed, 10 insertions(+), 3 deletions(-) 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 () { 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"; } -- 2.39.2