Detect socket and IRC errors, reconnect upon them

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: " );