Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 22:15:45 -04:00
Code Issues Releases Wiki Activity

fixing karma plugin?

Browse source
This commit is contained in:
Ryan Voots 2011-01-19 14:54:17 -05:00
parent 389220ef88
commit 782a77d183
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
plugins/karma.pm
View file

@ -21,6 +21,7 @@ sub {
); );
my $lirc = l_irc($said->{body}) || lc $said->{body}; my $lirc = l_irc($said->{body}) || lc $said->{body};
$lirc =~ s/^\s*(.*)\s*$/$1/;
warn "SUBJECT: $lirc"; warn "SUBJECT: $lirc";
my $karma = $dbh->selectrow_arrayref( my $karma = $dbh->selectrow_arrayref(
"SELECT sum(operation) FROM karma WHERE subject = ?", "SELECT sum(operation) FROM karma WHERE subject = ?",