From 6425c2d6d84966e13ce4551efa34af153314c427 Mon Sep 17 00:00:00 2001 Message-Id: <6425c2d6d84966e13ce4551efa34af153314c427.1715829855.git.mdw@distorted.org.uk> From: Mark Wooding Date: Mon, 15 Jan 2001 15:34:39 +0000 Subject: [PATCH] Actually cope with nick changes. Organization: Straylight/Edgeware From: Ian Jackson --- bot.tcl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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] -- [mdw]