imported http://mrmt.net/src/keitairc/keitairc r1.5

diff --git a/keitairc b/keitairc
index 5e544f7..907eed5 100755 (executable)
--- a/keitairc
+++ b/keitairc
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 # keitairc
-# $Id: keitairc,v 1.4 2004-03-21 11:01:50 morimoto Exp $
+# $Id: keitairc,v 1.5 2004-03-21 11:02:14 morimoto Exp $
 #
 # Copyright (c) 2003 Jun Morimoto <morimoto@xantia.citroen.org>
 # This program is covered by the GNU General Public License 2
@@ -271,7 +271,8 @@ sub on_web_request{
                              'privmsg',
                              Jcode->new($channel)->jis,
                              Jcode->new($message)->jis);
-           &add_message($channel, $config->irc_nick, $message);
+           &add_message($channel, $config->irc_nick,
+                        Jcode->new($message)->euc);
        }
     }