--- trunk/irc-logger.pl	2006/06/25 19:16:12	39
+++ trunk/irc-logger.pl	2006/10/24 12:50:41	40
@@ -476,13 +476,20 @@
 			my $nr = $1 || 10;
 
 			my $sth = $dbh->prepare(qq{
-				select nick,count(*) from log group by nick order by count desc limit $nr
+				select
+					nick,
+					count(*) as count,
+					sum(length(message)) as len
+				from log
+				group by nick
+				order by len desc,count desc
+				limit $nr
 			});
 			$sth->execute();
 			$res = "Top $nr users: ";
 			my @users;
 			while (my $row = $sth->fetchrow_hashref) {
-				push @users,$row->{nick} . ': ' . $row->{count};
+				push @users,$row->{nick} . ': ' . $row->{count} . '/' . $row->{len} . '=' . sprintf("%.2f", $row->{len}/$row->{count});
 			}
 			$res .= join(" | ", @users);
 		} elsif ($msg =~ m/^last.*?\s*(\d*)/i) {