[interchange-cvs] interchange - heins modified extensions/benchtimes/bin/benchtimes

[interchange-cvs at icdevgroup.org]

User:      heins
Date:      2005-04-17 12:30:34 GMT
Modified:  extensions/benchtimes/bin benchtimes
Log:
* Correct URL in documentation.

Revision  Changes    Path
1.2       +18 -7     interchange/extensions/benchtimes/bin/benchtimes


rev 1.2, prev_rev 1.1
Index: benchtimes
===================================================================
RCS file: /var/cvs/interchange/extensions/benchtimes/bin/benchtimes,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- benchtimes	16 Apr 2005 16:02:12 -0000	1.1
+++ benchtimes	17 Apr 2005 12:30:34 -0000	1.2
@@ -25,10 +25,9 @@
 my %session_hits;
 my %total_time;
 my %total_hits;
-my %total_elapsed;
 my %earliest;
+my %bigpages;
 my %latest;
-my %elapsed;
 my %info;
 
 # Parses a time specification such as "1 day" and returns the
@@ -107,6 +106,7 @@
 		$session_time{$sessionid} += $bench;
 		$total_hits{$ip}++;
 		$total_time{$ip} += $bench;
+		$bigpages{$id} = $bench;
 		$info{$id} = "ip=$ip path=$path pid=$pid time=$bench";
 		unless($start{$id}) {
 			warn "Couldn't find start for $_\n";
@@ -114,10 +114,7 @@
 		elsif(! $time) {
 			warn "No end time for $_\n";
 		}
-		else {
-			$elapsed{$id} = $start{$id} - $time;
-		}
-		$total_elapsed{$ip} += $elapsed{$id};
+
 		$latest{$ip} = $time;
 		$latest{$sessionid} = $time;
 	}
@@ -140,6 +137,7 @@
 	session_hits  => '%6d hits',
 	total_hits    => '%6d hits',
 	total_time    => '%9.3f seconds',
+	bigpages      => '%9.3f seconds',
 );
 
 my $started;
@@ -161,9 +159,22 @@
 	}
 }
 
+BIGP: {
+	my $tag = 'bigpages';
+	my $ref = \%bigpages
+		or warn "No reference found for bigpages. Skip.\n", next;
+	print "\n" if $started++;
+	my @keys = sort { $ref->{$b} <=> $ref->{$a} } keys %$ref;
+	print "Displaying top $n by $tag\n";
+	print "---------------------------------\n";
+	for(my $i = 0; $i < $n; $i++) {
+		my $id = $keys[$i] or next;
+		printf "%-20s $fmt{$tag}\n(%s)\n", $id, $ref->{$id}, $info{$id};
+	}
+}
 =head1 SEE ALSO
 
-http://cvs.icdevgroup.org/cgi-bin/cvsweb/extensions/benchtimes
+http://cvs.icdevgroup.org/cgi-bin/cvsweb/interchange/extensions/benchtimes
 
 =head1 AUTHOR