From 80af35e960b379d4aea5166ba51d77a2142ab491 Mon Sep 17 00:00:00 2001
From: David Phillips <david@sighup.nz>
Date: Wed, 26 Jul 2017 22:22:26 +1200
Subject: Detect socket and IRC errors, reconnect upon them

---
 idalius.pl | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'idalius.pl')

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: " );
-- 
cgit v1.1