1
keitairc の再接続
keitairc を使っていて、繋ぎ先の irc proxy との接続が切れると再接続してくれないのが不便だったので少しいじってみた。disconnect 時に connect と同じ処理をしているだけなんだけど、これで動くのかは未確認。
POE::Session->new(
...
irc_disconnected => \&on_irc_disconnected,
);
...
sub on_irc_disconnected{
my $kernel = $_[KERNEL];
$kernel->post('keitairc' => 'connect' => {
Nick => $config->irc_nick,
Username => $config->irc_username,
Ircname => $config->irc_desc,
Server => $config->irc_server,
Port => $config->irc_port,
Password => $config->irc_password
});
}しばらく試してみて、うまく動くようなら patch 投げてみよう。retly 回数や delay はどうやって与えたらいいんだろう?
