@@ -85,7 +85,7 @@ sub update my ( $kernel, $heap, $msg ) = @_[ KERNEL, HEAP, ARG0 ]; eval { foreach (@{ $config->{server_channels} }) { - my ( $channel, $keyword ) = split /,/; + my ( $channel, $keyword ) = split(/,/, $_, 2); Encode::from_to($channel, "utf8", $config->{charset}) if $config->{charset}; if ($config->{announce} =~ /action/i) { $kernel->post( bot => ctcp => $channel, "ACTION $msg"); @@ -140,7 +140,7 @@ sub bot_connected foreach ( @{$config->{server_channels}} ) { msg "joining channel $_"; - my ( $channel, $keyword ) = split /,/; + my ( $channel, $keyword ) = split(/,/, $_, 2); if ($config->{charset}) { $kernel->post( bot => charset => $config->{charset} ); Encode::from_to($channel, "utf8", $config->{charset}); bin/plagger-ircbot d170c27dedfb1d1709c34214f30f597e9e6977ac Mizar mizar.jp@gmail.com http://github.com/miyagawa/plagger/commit/f4c0abd7dbd4c4a5dabeb0a66614e0ad2baaa41b f4c0abd7dbd4c4a5dabeb0a66614e0ad2baaa41b 2009-03-30T17:48:11-07:00 2009-03-30T17:36:17-07:00 bin/plagger-ircbot: change split channel name/key Signed-off-by: Tatsuhiko Miyagawa <miyagawa@gmail.com> 8f42be7f10f1492c19724188678f1a77f4055be4 Tatsuhiko Miyagawa miyagawa@gmail.com