--- deliantra/server/ext/irc.ext	2009/01/25 17:36:42	1.15
+++ deliantra/server/ext/irc.ext	2009/06/26 16:02:15	1.17
@@ -70,6 +70,10 @@
    return if $CON;
 
    $CON = AnyEvent::IRC::Client->new;
+   $CON->set_exception_cb (sub {
+      my ($exp, $ev) = @_;
+      warn "IRC: IRC EXCEPTION (event $ev): $exp\n";
+   });
    $CON->connect ($BOTSERVER, $BOTPORT, {
       nick => $BOTNAME,
       user => $BOTNAME,
@@ -99,7 +103,15 @@
          }
       },
       connect => sub {
-         warn "IRC: connected to IRC server: $BOTSERVER:$BOTPORT\n";
+         my ($con, $error) = @_;
+
+         if ($error) {
+            warn "IRC: CONNECT ERROR to IRC server: $BOTSERVER:$BOTPORT: $error\n";
+            undef $CON;
+
+         } else {
+            warn "IRC: connected to IRC server: $BOTSERVER:$BOTPORT\n";
+         }
       },
       registered => sub {
          warn "IRC: successfully logged into IRC server: $BOTSERVER:$BOTPORT\n";