Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 10:25:42 -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};
$lirc =~ s/^\s*(.*)\s*$/$1/;
warn "SUBJECT: $lirc";
$lirc =~ s/^\s*(.*?)\s*$/$1/;
warn "SUBJECT: [$lirc]";
my $karma = $dbh->selectrow_arrayref(
"SELECT sum(operation) FROM karma WHERE subject = ?",
undef,