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

fucking greedy meanies

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

4
plugins/karma.pm
View file

@ -21,8 +21,8 @@ sub {
); );
my $lirc = l_irc($said->{body}) || lc $said->{body}; my $lirc = l_irc($said->{body}) || lc $said->{body};
$lirc =~ s/^\s*(.*)\s*$/$1/; $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 = ?",
undef, undef,