Changeset 7567

Timestamp:

03/06/08 17:57:09 (5 years ago)

Author:

typester

Message:

Skypeから複数行おくられるとIRCで一行目しか表示されずコンフューズしまくったのでフィックス

Files:

• lang/perl/Skype4IRC/trunk/lib/Skype4IRC/IRCD.pm (modified) (2 diffs)

lang/perl/Skype4IRC/trunk/lib/Skype4IRC/IRCD.pm

@@ -52 +52 @@
 
     $kernel->call( update_contact => [[$nick, $nick]] );
-    $self->ircd->yield( daemon_cmd_privmsg => $nick => $self->{nick} => $message );
+    $self->ircd->yield( daemon_cmd_privmsg => $nick => $self->{nick} => $_ ) for split /\r?\n/, $message;
 }
 
@@ -66 +66 @@
     }
 
-    $self->ircd->yield( daemon_cmd_privmsg => $nick => $data->{channel} => $data->{message} );
+    $self->ircd->yield( daemon_cmd_privmsg => $nick => $data->{channel} => $_ ) for split /\r?\n/, $data->{message};
 }