From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 15 Jan 2001 15:34:39 +0000 (+0000)
Subject: Actually cope with nick changes.
X-Git-Tag: branchpoint-2001-10-09-tell~31
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/ircbot/commitdiff_plain/6425c2d6d84966e13ce4551efa34af153314c427

Actually cope with nick changes.
---

diff --git a/bot.tcl b/bot.tcl
index b26d1c6..876a238 100755
--- a/bot.tcl
+++ b/bot.tcl
@@ -619,15 +619,15 @@ proc msg_NICK {p c newnick} {
     prefix_nick
     recordlastseen_n $n "changing nicks to $newnick" 0
     recordlastseen_n $newnick "changing nicks from $n" 1
+    set luser [irctolower $n]
+    set lusernew [irctolower $newnick]
     foreach ary $nick_arys {
-	upvar #0 nick_${ary}($n) old
-	upvar #0 nick_${ary}($newnick) new
+	upvar #0 nick_${ary}($luser) old
+	upvar #0 nick_${ary}($lusernew) new
 	if {[info exists new]} { error "nick collision ?! $ary $n $newnick" }
 	if {[info exists old]} { set new $old; unset old }
     }
-    upvar #0 nick_onchans($new) oc
-    set luser [irctolower $n]
-    set lusernew [irctolower $newnick]
+    upvar #0 nick_onchans($lusernew) oc
     foreach ch $oc {
 	upvar #0 chan_nicks($ch) nlist
 	set nlist [grep tn {"$tn" != "$luser"} $nlist]