|
|
@@ -130,17 +130,19 @@ proc ::cims::admin::channelinfo {nick mask hand chan text} {
|
|
|
}
|
|
|
|
|
|
# tell channel infos
|
|
|
- set chanlist [channels]
|
|
|
- set chan_count [llength $chanlist]
|
|
|
+ set chan_list [channels]
|
|
|
+ set chan_count [llength $chan_list]
|
|
|
|
|
|
set output ""
|
|
|
- foreach _try_chan ${chanlist} {
|
|
|
+ foreach _try_chan ${chan_list} {
|
|
|
set q_missing_s ""
|
|
|
set q_missing_e ""
|
|
|
|
|
|
- set userlist [chanlist ${_try_chan}]
|
|
|
+ set userlist [chanlist "${_try_chan}"]
|
|
|
set usercount [llength ${userlist}]
|
|
|
+ ::putils::put_nick ${nick} "${userlist} is ${usercount} in length"
|
|
|
|
|
|
+
|
|
|
if {[lsearch -exact ${userlist} Q] < 0} {
|
|
|
#Q missing
|
|
|
set q_missing_s ",5\002"
|
