From ea45fb64888f245e49eb96785073ee45356b4c5b Mon Sep 17 00:00:00 2001
From: "Keiji, Yoshimi" <walf443@gmail.com>
Date: Sun, 3 Apr 2011 11:55:28 +0900
Subject: [PATCH] =?UTF-8?q?=E5=BE=AE=E8=AA=BF=E6=95=B4?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lib/Carol/IRCGateway/Wassr.pm | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/lib/Carol/IRCGateway/Wassr.pm b/lib/Carol/IRCGateway/Wassr.pm
index 4969fd9..327cc01 100644
--- a/lib/Carol/IRCGateway/Wassr.pm
+++ b/lib/Carol/IRCGateway/Wassr.pm
@@ -9,6 +9,9 @@ use Class::Accessor::Lite (
 use AnyEvent;
 use AnyEvent::HTTP;
 use Log::Minimal qw(debugf infof warnf critf );
+use Cache::LRU;
+use JSON::XS;
+use Encode;
 
 sub start {
     my ($self, ) = @_;
@@ -69,7 +72,7 @@ sub publish_privmsg {
                         },
                         $dummy_handle,
                     );
-                    $server->daemon_cmd_privmsg($status->{user_login_id}, "#tig", status2irc_message($status));
+                    $server->daemon_cmd_privmsg($status->{user_login_id}, "#tig", $self->status2irc_message($status));
                     debugf(sprintf("send privmsg: %s %s", $status->{user_login_id}, $status->{text}));
                 },
             );
@@ -78,6 +81,14 @@ sub publish_privmsg {
     };
 }
 
+sub status2irc_message {
+    my ($self, $status) = @_;
+
+    my $msg = "";
+    $msg .= $status->{text};
+    return Encode::encode_utf8($msg);
+}
+
 1;
 
 __END__
@@ -90,7 +101,7 @@ Carol -
 
   use AnyEvent;
   use AnyEvent::IRC::Server;
-  use Carol::IRCGateway::Wig;
+  use Carol::IRCGateway::Wassr;
   my $cv = AnyEvent->condvar;
   my $server = AnyEvent::IRC::Server->new(port => 16667);
   $server->run;