When failing, print right msg.

[ircbot] / bot.tcl

diff --git a/bot.tcl b/bot.tcl
index 3da92b3f490237dbeb4cad56fe9d8cabc3e03d6f..1119fbfc02494e759bf434ed039dec435a0584bc 100755 (executable)
--- a/bot.tcl
+++ b/bot.tcl
@@ -376,9 +376,10 @@ proc nick_case {user} {
 }
 
 proc msg_NICK {p c newnick} {
-    global nick_arys nick_case
+    global nick_arys nick_case calling_nick
     prefix_nick
     recordlastseen_n $n "changing nicks to $newnick" 0
+    set calling_nick $newnick
     recordlastseen_n $newnick "changing nicks from $n" 1
     set luser [irctolower $n]
     lnick_marktime_cancel $luser