41 |
|
|
42 |
use POE qw(Component::IRC Wheel::FollowTail); |
use POE qw(Component::IRC Wheel::FollowTail); |
43 |
use DBI; |
use DBI; |
44 |
|
use Encode qw/from_to/; |
45 |
|
|
46 |
|
|
47 |
my $dbh = DBI->connect($DSN,"","", { RaiseError => 1, AutoCommit => 1 }) || die $DBI::errstr; |
my $dbh = DBI->connect($DSN,"","", { RaiseError => 1, AutoCommit => 1 }) || die $DBI::errstr; |
96 |
my $channel = $_[ARG1]->[0]; |
my $channel = $_[ARG1]->[0]; |
97 |
my $msg = $_[ARG2]; |
my $msg = $_[ARG2]; |
98 |
|
|
99 |
|
from_to($msg, 'UTF-8', 'ISO-8859-2'); |
100 |
|
|
101 |
print "$channel: <$nick> $msg\n"; |
print "$channel: <$nick> $msg\n"; |
102 |
$sth->execute($channel, $nick, $msg); |
$sth->execute($channel, $nick, $msg); |
103 |
}, |
}, |