Changeset 1021

Timestamp:

06/30/06 06:07:26

Author:

miyagawa

Message:

ircbot: handle nick_taken error by trying other ones. by Jeff Bisbee

Files:

• trunk/plagger/bin/plagger-ircbot (modified) (2 diffs)

trunk/plagger/bin/plagger-ircbot

@@ -47 +47 @@
-        irc_001          => \&bot_connected,
-        irc_372          => \&bot_motd,
+        irc_433          => \&bot_nick_taken,
-        irc_disconnected => \&bot_reconnect,
-        irc_error        => \&bot_reconnect,
@@ -142 +143 @@
-    $kernel->delay( connect  => 60 );
-}
+
+sub bot_nick_taken
+{
+    my ( $kernel, $heap ) = @_[ KERNEL, HEAP ];
+    if ($config->{nick} !~ /\d$/) {
+        $config->{nick} .= 0;
+    } else {
+        substr( $config->{nick}, -1, 1 )++;
+    }
+    err 'nick taken, trying new nick ' . $config->{nick};
+    $kernel->post( bot => nick => $config->{nick} );
+    $heap->{seen_traffic} = 1;
+}