--- trunk/irc-logger.pl	2006/10/24 12:51:49	41
+++ trunk/irc-logger.pl	2007/02/02 21:37:52	42
@@ -128,6 +128,7 @@
 		}
 	},
 	context => 5,
+	full_rows => 1,
  );
 
 Order is important. Fields are first passed through C<filter> (if available) and
@@ -135,6 +136,9 @@
 
 C<context> defines number of messages around each search hit for display.
 
+C<full_rows> will return database rows for each result with C<date>, C<time>, C<channel>,
+C<me>, C<nick> and C<message> keys.
+
 =cut
 
 sub get_from_log {
@@ -204,6 +208,13 @@
 		unshift @rows, $row;
 	}
 
+	# normalize nick names
+	map {
+		$_->{nick} =~ s/^_*(.*?)_*$/$1/
+	} @rows;
+
+	return @rows if ($args->{full_rows});
+
 	my @msgs = (
 		"Showing " . ($#rows + 1) . " messages..."
 	);
@@ -260,9 +271,9 @@
 		my $append = 1;
 
 		my $nick = $row->{nick};
-		if ($nick =~ s/^_*(.*?)_*$/$1/) {
-			$row->{nick} = $nick;
-		}
+#		if ($nick =~ s/^_*(.*?)_*$/$1/) {
+#			$row->{nick} = $nick;
+#		}
 
 		if ($last_row->{nick} ne $nick) {
 			# obfu way to find format for me_nick if needed or fallback to default
@@ -519,6 +530,35 @@
 
 			$res = '';
 
+		} elsif ($msg =~ m/^(?:count|poll)\s+(.*)(?:\s+(\d+))?\s*$/i) {
+
+			my ($what,$limit) = ($1,$2);
+			$limit ||= 100;
+
+			my $stat;
+
+			foreach my $res (get_from_log(
+					limit => $limit,
+					search => $what,
+					full_rows => 1,
+				)) {
+				while ($res->{message} =~ s/\Q$what\E(\+|\-)//) {
+					$stat->{vote}->{$1}++;
+					$stat->{from}->{ $res->{nick} }++;
+				}
+			}
+
+			my @nicks;
+			foreach my $nick (sort { $stat->{from}->{$a} cmp $stat->{from}->{$b} } keys %{ $stat->{from} }) {
+				push @nicks, $nick . $stat->{from}->{$nick} == 1 ? '' :
+					"(" . $stat->{from}->{$nick} . ")";
+			}
+
+			$res =
+				"+ " . ( $stat->{vote}->{'+'} || 0 ) . " : " .
+				"- " . ( $stat->{vote}->{'-'} || 0 ) .
+				" from " . ( join(", ", @nicks) || 'nobody' );
+
 		}
 
 		if ($res) {