aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xidalius.pl12
1 files changed, 11 insertions, 1 deletions
diff --git a/idalius.pl b/idalius.pl
index ef157ec..151e61c 100755
--- a/idalius.pl
+++ b/idalius.pl
@@ -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: " );