Nick on channel tracking bugfixes

diff --git a/bot.tcl b/bot.tcl
index 106002708e1908a693d779855e8499338aa75af2..0bbc3b7c163e172fa63b9cd76ee427219b593a01 100755 (executable)
--- a/bot.tcl
+++ b/bot.tcl
@@ -281,6 +281,7 @@ proc msg_MODE {p c dest modelist args} {
 }
 
 proc leaving {lchan} {
+    global nick_onchans
     foreach luser [array names nick_onchans] {
        upvar #0 nick_onchans($luser) oc
        set oc [grep tc {"$tc" != "$lchan"} $oc]
@@ -526,7 +527,7 @@ proc msg_366 {p c args} {
        if {[llength names_chans] > 1} {
            set oc [grep tc {[lsearch -exact $tc $names_chans] >= 0} $oc]
        }
-       if {![llength $oc]} { lnick_forget $n }
+       if {![llength $oc]} { lnick_forget $luser }
     }
     unset names_chans
 }