append l ", mode " [chandb_get $chan mode]
append l ", userinvite " [chandb_get $chan userinvite] "."
append l "\nManagers: "
- append l [join [chandb_get $chan managers] " "] "\n"
- set t [chandb_get $chan topicset]
- if {[string length $t]} {
- append l "Topic to set: $t"
- } else {
- append l "I will not change the topic."
- }
+ append l [join [chandb_get $chan managers] " "]
foreach {ts sep} {see "\n" tell " "} {
set t [chandb_get $chan topic$ts]
append l $sep
append l "Topic $ts list is empty."
}
}
+ append l "\n"
+ set t [chandb_get $chan topicset]
+ if {[string length $t]} {
+ append l "Topic to set: $t"
+ } else {
+ append l "I will not change the topic."
+ }
ucmdr {} $l
} else {
ucmdr {} "The channel $chan is not managed."