From 012bae2be9731e5552f4a5dd66046e86596090e6 Mon Sep 17 00:00:00 2001 From: matusita Date: Wed, 25 Jun 2008 07:05:52 +0000 Subject: [PATCH] Add handler for irc_registered. Hopefully this would be a fix for reconnecting IRC server. --- ChangeLog | 5 +++++ keitairc | 3 ++- lib/Keitairc/IrcCallback.pm | 7 ++++++- 3 files changed, 13 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index f605a15..863dce6 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2008-06-25 Makoto Matsushita + + * keitairc, lib/Keitairc/IrcCallback.pm: 再接続時に 001 を受けとっ + た時点で part していたのをしないようにする． + 2008-05-12 Makoto Matsushita * keitairc, etc/dot.keitairc, lib/Keitairc/ClientInfo.pm, diff --git a/keitairc b/keitairc index a22a5a6..87855bc 100755 --- 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 @@ -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 --- 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 @@ -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 => {}); } -- 2.11.0