use AnyEvent::IRC::Util qw/mk_msg parse_irc_msg encode_ctcp/;
use AnyEvent::Redis;
use Data::Dump qw(dump);
-use Encode;
my $nick = $ENV{IRC_NICK} || die "IRC_NICK";
my $room = $ENV{IRC_ROOM} || die "IRC_ROOM";
$sub->psubscribe( 'channel *', sub {
my ( $message, $from ) = @_;
return unless $from !~ m/\Q$nick\E/; # skip our messages
- Encode::_utf8_on($message);
warn "#Q<< ",dump( $from, $message );
my ( undef, $channel, $user ) = split(/ /,$from,3);
$con->send_msg( 'PRIVMSG', $room => join(' ',$channel, $user, $message) );