diff options
-rwxr-xr-x | idalius.pl | 12 |
1 files changed, 11 insertions, 1 deletions
@@ -52,7 +52,9 @@ POE::Session->create( irc_public irc_msg irc_nick - irc_disconnected ) ], + irc_disconnected + irc_error + irc_socketerr) ], ], heap => { irc => $irc }, ); @@ -194,6 +196,14 @@ sub irc_disconnected { $irc->yield(connect => { }); } +sub irc_error { + $irc->yield(connect => { }); +} + +sub irc_socketerr { + $irc->yield(connect => { }); +} + sub _default { my ($event, $args) = @_[ARG0 .. $#_]; my @output = ( "$event: " ); |