From: Ian Jackson Date: Mon, 15 Jan 2001 02:31:17 +0000 (+0000) Subject: Topic at end of channel info. X-Git-Tag: branchpoint-2001-10-09-tell~37 X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/ircbot/commitdiff_plain/8b6ee6268b33f1788f5898c5ed5a253f43497a51 Topic at end of channel info. --- diff --git a/bot.tcl b/bot.tcl index 15be233..bbee0a0 100755 --- a/bot.tcl +++ b/bot.tcl @@ -1127,13 +1127,7 @@ def_chancmd show { 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 @@ -1143,6 +1137,13 @@ def_chancmd show { 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."