- 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