Add handler for irc_registered.

Hopefully this would be a fix for reconnecting IRC server.

diff --git a/ChangeLog b/ChangeLog
index f605a15..863dce6 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2008-06-25  Makoto Matsushita  <matusita@jp.FreeBSD.org>
+
+       * keitairc, lib/Keitairc/IrcCallback.pm: \e$B:F@\B3;~$K\e(B 001 \e$B$r<u$1$H$C\e(B
+       \e$B$?;~E@$G\e(B part \e$B$7$F$$$?$N$r$7$J$$$h$&$K$9$k!%\e(B
+
 2008-05-12  Makoto Matsushita  <matusita@jp.FreeBSD.org>
 
        * keitairc, etc/dot.keitairc, lib/Keitairc/ClientInfo.pm,

diff --git a/keitairc b/keitairc
index a22a5a6..87855bc 100755 (executable)
--- a/keitairc
+++ b/keitairc
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 # keitairc
-# $Id: keitairc,v 1.56 2008-05-13 02:55:43 matusita Exp $
+# $Id: keitairc,v 1.57 2008-06-25 07:05:52 matusita Exp $
 # $Source: /home/ishikawa/work/keitairc/tmp/keitairc/keitairc,v $
 #
 # Copyright (c) 2003-2008 Jun Morimoto <morimoto@mrmt.net>
@@ -72,6 +72,7 @@ POE::Session->create(
                _start => \&Keitairc::IrcCallback::irc_start,
                autoping => \&Keitairc::IrcCallback::irc_autoping,
                connect => \&Keitairc::IrcCallback::irc_connect,
+               irc_registered => \&Keitairc::IrcCallback::irc_registered,
                irc_001 => \&Keitairc::IrcCallback::irc_001,
                irc_join => \&Keitairc::IrcCallback::irc_join,
                irc_part => \&Keitairc::IrcCallback::irc_part,

diff --git a/lib/Keitairc/IrcCallback.pm b/lib/Keitairc/IrcCallback.pm
index 8278c2c..23786e9 100644 (file)
--- a/lib/Keitairc/IrcCallback.pm
+++ b/lib/Keitairc/IrcCallback.pm
@@ -1,6 +1,6 @@
 # -*-perl-*-
 # Keitairc::IrcCallback
-# $Id: IrcCallback.pm,v 1.10 2008-05-08 15:24:29 matusita Exp $
+# $Id: IrcCallback.pm,v 1.11 2008-06-25 07:05:52 matusita Exp $
 # $Source: /home/ishikawa/work/keitairc/tmp/keitairc/lib/Keitairc/IrcCallback.pm,v $
 #
 # Copyright (c) 2008 Jun Morimoto <morimoto@mrmt.net>
@@ -15,6 +15,11 @@ use strict;
 sub irc_start{
        my ($heap) = @_[HEAP];
        $heap->{Irc}->yield(register => 'all');
+}
+
+################################################################
+sub irc_registered{
+       my ($heap) = @_[HEAP];
        $heap->{Irc}->yield(connect => {});
 }