diff -urN tiarra-20040822/ChangeLog tiarra-20050214/ChangeLog --- tiarra-20040822/ChangeLog 2005-01-01 05:28:51.000000000 +0900 +++ tiarra-20050214/ChangeLog 2005-11-29 12:16:05.000000000 +0900 @@ -1,3 +1,9 @@ +2005-02-15 Topia + + * main/IrcIO/Server.pm: + - とりあえず 2.11 なサーバに接続できないバグをなおした。 + - ほかの機能はまったく fix できていません、ごめんなさい。 + 2004-08-22 Topia * HACKING: @@ -1993,7 +1999,7 @@ * これ以前のログは書いていません。 -# Id: $Id: ChangeLog,v 1.158 2004/08/22 11:28:41 topia Exp $ +# Id: $Id: ChangeLog,v 1.159 2005/02/14 17:36:29 topia Exp $ # Author: $Author: topia $ -# Date: $Date: 2004/08/22 11:28:41 $ -# Revision: $Revision: 1.158 $ +# Date: $Date: 2005/02/14 17:36:29 $ +# Revision: $Revision: 1.159 $ diff -urN tiarra-20040822/main/IrcIO/Server.pm tiarra-20050214/main/IrcIO/Server.pm --- tiarra-20040822/main/IrcIO/Server.pm 2005-01-01 05:28:51.000000000 +0900 +++ tiarra-20050214/main/IrcIO/Server.pm 2005-11-29 12:16:06.000000000 +0900 @@ -1,5 +1,5 @@ # ----------------------------------------------------------------------------- -# $Id: Server.pm,v 1.59 2004/08/22 11:28:43 topia Exp $ +# $Id: Server.pm,v 1.60 2005/02/14 17:36:29 topia Exp $ # ----------------------------------------------------------------------------- # IrcIO::ServerはIRCサーバーに接続し、IRCメッセージをやり取りするクラスです。 # このクラスはサーバーからメッセージを受け取ってチャンネル情報や現在のnickなどを保持しますが、 @@ -436,7 +436,7 @@ $this->_set_to_next_nick($first_msg->param(1)); return; # 何も返さない→クライアントにはこの結果を知らせない。 } - elsif (grep { $_ eq $reply } (RPL_WELCOME, qw(NOTICE PRIVMSG))) { + elsif (grep { $_ eq $reply } (RPL_HELLO, qw(NOTICE PRIVMSG))) { # RPL_HELLO (irc2.11.x) / NOTICE / PRIVMSG return; # 何もしない }