From f0c23d88eb267a9bdcd0ad668ac55297f8ad4450 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Sun, 29 Aug 2010 12:49:17 +0200 Subject: [PATCH] mark redis messages as utf8 --- scripts/mqr-irc-client.pl | 4 +++- scripts/mqr-xmpp-client.pl | 2 ++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/scripts/mqr-irc-client.pl b/scripts/mqr-irc-client.pl index efe4371..4cc45f2 100755 --- a/scripts/mqr-irc-client.pl +++ b/scripts/mqr-irc-client.pl @@ -11,6 +11,7 @@ use AnyEvent::IRC::Client; 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"; @@ -27,7 +28,8 @@ my $sub = AnyEvent::Redis->new( host => $ENV{REDIS_HOST}, port => $ENV{REDIS_POR $sub->psubscribe( 'channel *', sub { my ( $message, $from ) = @_; return unless $from !~ m/\Q$nick\E/; # skip our messages - warn "#Q<< $from | $message\n"; + 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) ); }); diff --git a/scripts/mqr-xmpp-client.pl b/scripts/mqr-xmpp-client.pl index 646c42e..3d01d51 100755 --- a/scripts/mqr-xmpp-client.pl +++ b/scripts/mqr-xmpp-client.pl @@ -9,6 +9,7 @@ use AnyEvent::XMPP::Ext::Version; use AnyEvent::XMPP::Namespaces qw/xmpp_ns/; use AnyEvent::Redis; use Data::Dump qw(dump); +use Encode; binmode STDOUT, ":utf8"; @@ -36,6 +37,7 @@ our $contacts; $sub->psubscribe( 'channel *', sub { my ( $message, $from ) = @_; return unless $from !~ m/\Q$jid\E/; # skip our messages + Encode::_utf8_on($message); warn "#Q<< ", dump( $from, $message ); my ( undef, $channel, $user ) = split(/ /,$from,3); warn "# contacts ",dump($contacts); -- 2.20.1