diff -urN tiarra-20031015/ChangeLog tiarra-20031019/ChangeLog
--- tiarra-20031015/ChangeLog	2003-10-16 01:25:30.000000000 +0900
+++ tiarra-20031019/ChangeLog	2003-10-19 19:48:01.000000000 +0900
@@ -1,3 +1,11 @@
+2003-10-19  phonohawk  <phonohawk@lycos.co.uk>
+
+	* main/IrcIO/Server.pm
+	(person_if_exists):
+	追加。指定されたnickを持つ人物が居れば、そのPersonalInfoを返す。
+	(_RPL_WHOREPLY):
+	サーバー名とnickの位置を間違えていたので修正。
+
 2003-10-16  phonohawk  <phonohawk@lycos.co.uk>
 
 	* module/System/Raw.pm:
@@ -971,7 +979,7 @@
 
 	* これ以前のログは書いていません。
 
-#       Id: $Id: ChangeLog,v 1.108 2003/10/15 16:23:43 admin Exp $
+#       Id: $Id: ChangeLog,v 1.109 2003/10/19 10:41:17 admin Exp $
 #   Author: $Author: admin $
-#     Date: $Date: 2003/10/15 16:23:43 $
-# Revision: $Revision: 1.108 $
+#     Date: $Date: 2003/10/19 10:41:17 $
+# Revision: $Revision: 1.109 $
diff -urN tiarra-20031015/main/IrcIO/Server.pm tiarra-20031019/main/IrcIO/Server.pm
--- tiarra-20031015/main/IrcIO/Server.pm	2003-10-16 01:25:31.000000000 +0900
+++ tiarra-20031019/main/IrcIO/Server.pm	2003-10-19 19:48:01.000000000 +0900
@@ -1,5 +1,5 @@
 # -----------------------------------------------------------------------------
-# $Id: Server.pm,v 1.47 2003/10/14 04:47:59 topia Exp $
+# $Id: Server.pm,v 1.48 2003/10/19 10:41:16 admin Exp $
 # -----------------------------------------------------------------------------
 # IrcIO::ServerはIRCサーバーに接続し、IRCメッセージをやり取りするクラスです。
 # このクラスはサーバーからメッセージを受け取ってチャンネル情報や現在のnickなどを保持しますが、
@@ -118,6 +118,11 @@
     $this->{user_realname} = $def->($conf->name,$general->name);
 }
 
+sub person_if_exists {
+    my ($this, $nick) = @_;
+    $this->{people}{$nick};
+}
+    
 sub person {
     # nick以外は全て省略可能。
     # 未知のnickが指定された場合は新規に追加する。
@@ -932,7 +937,7 @@
     if (defined $p) {
 	$p->username($msg->param(2));
 	$p->userhost($msg->param(3));
-	$p->server($msg->param(5));
+	$p->server($msg->param(4));
 	$p->realname((split / /,$msg->param(7))[1]);
     }