handle notice/disconnect

exp · May 3, 2010 · 9116a9e · 9116a9e
1 parent bca5cb6
commit 9116a9e
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/bot.pl b/bot.pl
@@ -114,9 +114,15 @@ sub make_client {
                 },
             );
          },
+	notice => sub {
+	    my ($self, $line) = @_;
+	    say "NOTICE: $line";
+	},
          disconnect => sub {
+	     my ($self, $reason) = @_;
              delete $client->{_nickTimer};
-             say "disconnected: $_[1]! trying to reconnect...";
+             delete $client->{rejoins};
+             say "disconnected: $reason. trying to reconnect...";
              $init->();
          },
          part => sub {