bugfixes

diff --git a/ledmodule.tcl b/ledmodule.tcl
index 1de1e959bcecf337ec2fa7bc43c3b7672916415e..f95ff215c9830a2ba875565d843896af2211bf63 100644 (file)
--- 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
     }
        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
 }
     set mm(present-$ch) $l
     mon_updateall $m
 }


@@ -455,33 +456,13 @@ proc config_change {} {
 }
 
 proc allchans_shortly {} {
 }
 
 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} {
 }
 
 proc chan_shortly {ch} {

-    global chan_after shortly_alling
+    global chan_after

     set ch [irctolower $ch]
     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
     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
     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
     }
     foreach m [list_objs monitor] {
        mon_gotchanlist $m $lchan $nll
     }


@@ -539,6 +520,7 @@ def_ucmd debug {
 
 def_ucmd nodebug {
     prefix_nick
 
 def_ucmd nodebug {
     prefix_nick

+    ta_nomore

     global debugusers debug_cancelling
     set debugusers {}
     catch { after cancel $debug_cancelling }
     global debugusers debug_cancelling
     set debugusers {}
     catch { after cancel $debug_cancelling }