on_nick_taken calls getNickInUse() now

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@39 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/IRC/IrcHooks.pl b/src/IRC/IrcHooks.pl
index 8f319d9a622ebaff4fe5fce860d840e7c2ff5811..897bc0049cb8e69e530cad348a167a84b2117892 100644 (file)
--- a/src/IRC/IrcHooks.pl
+++ b/src/IRC/IrcHooks.pl
@@ -461,11 +461,11 @@ sub on_nick {
 sub on_nick_taken {
     my ($self) = @_;
     my $nick = $self->nick;
-    my $newnick = substr($nick,0,8).int(rand(10));
+    my $newnick = substr($nick,0,7)."-";
 
-    &DEBUG("on_nick_taken: changing nick to $newnick.");
-    $self->nick($newnick);
-    $ident     = $newnick;
+    &status("nick taken; changing to temporary nick.");
+    &nick($newnick);
+    &getNickInUse(1);
 }
 
 sub on_notice {