X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=blobdiff_plain;f=ledmodule.tcl;h=f95ff215c9830a2ba875565d843896af2211bf63;hb=ad89dcb0eb7b9526a1ecf32ffb04a4124e3de649;hp=1de1e959bcecf337ec2fa7bc43c3b7672916415e;hpb=4aa242d9ce75e3bd0cb5c4c5d73eff3de064d61b;p=ircbot.git

diff --git a/ledmodule.tcl b/ledmodule.tcl
index 1de1e95..f95ff21 100644
--- a/ledmodule.tcl
+++ b/ledmodule.tcl
@@ -146,6 +146,7 @@ proc_mon gotchanlist {ch nll} {
 	if {[mon_nick_is $mm(nopresence) $nl]} continue
 	lappend l $nl
     }
+    ldebug m$m "$ch names: $l"
     set mm(present-$ch) $l
     mon_updateall $m
 }
@@ -455,33 +456,13 @@ proc config_change {} {
 }
 
 proc allchans_shortly {} {
-    global chan_after onchans shortly_alling
-    if {[info exists shortly_alling]} {
-	ldebug {} "global check already pending"
-	return
-    }
-    foreach ch [array names onchans] {
-	manyset $onchans($ch) status after
-	if {"$status" != "shortly"} continue
-	set idle
-    }
-    set shortly_alling [after $chan_after allchans_sendnames]
-}
-
-proc allchans_sendnames {} {
-    global shortly_alling
-    unset shortly_alling
-    ldebug {} "asking for global namelist"
-    sendout NAMES
+    global onchans
+    foreach ch [array names onchans] { chan_shortly $ch }
 }
 
 proc chan_shortly {ch} {
-    global chan_after shortly_alling
+    global chan_after
     set ch [irctolower $ch]
-    if {[info exists shortly_alling]} {
-	ldebug c$ch "global check already pending"
-	return
-    }
     upvar #0 onchans($ch) oc
     if {[info exists oc]} {
 	manyset $oc status after
@@ -498,7 +479,7 @@ proc msg_353 {p c dest type chan nicklist} {
     set lchan [irctolower $chan]
     set nll [irctolower $nicklist]
     regsub -all {[=@*]} $nll {} nll
-    ldebug c$lchan "got names $nll"
+    ldebug c$lchan "all names: $nll"
     foreach m [list_objs monitor] {
 	mon_gotchanlist $m $lchan $nll
     }
@@ -539,6 +520,7 @@ def_ucmd debug {
 
 def_ucmd nodebug {
     prefix_nick
+    ta_nomore
     global debugusers debug_cancelling
     set debugusers {}
     catch { after cancel $debug_cancelling }