--- trunk/irc-logger.pl	2006/10/24 12:50:41	40
+++ trunk/irc-logger.pl	2006/10/24 12:51:49	41
@@ -50,6 +50,8 @@
 my $ENCODING = 'ISO-8859-2';
 my $TIMESTAMP = '%Y-%m-%d %H:%M:%S';
 
+my $sleep_on_error = 5;
+
 ## END CONFIG
 
 
@@ -540,6 +542,15 @@
 		warn "## indetify $NICK\n";
 		$_[KERNEL]->post( $IRC_ALIAS => privmsg => 'nickserv', "IDENTIFY $NICK" );
 	},
+	irc_disconnected => sub {
+		warn "## disconnected, reconnecting again\n";
+		$_[KERNEL]->post($IRC_ALIAS => connect => $CONNECT);
+	},
+	irc_socketerr => sub {
+		warn "## socket error... sleeping for $sleep_on_error seconds and retry";
+		sleep($sleep_on_error);
+		$_[KERNEL]->post($IRC_ALIAS => connect => $CONNECT);
+	},
 #	irc_433 => sub {
 #		print "# irc_433: ",$_[ARG1], "\n";
 #		warn "## indetify $NICK\n";