From 8b6ee6268b33f1788f5898c5ed5a253f43497a51 Mon Sep 17 00:00:00 2001 Message-Id: <8b6ee6268b33f1788f5898c5ed5a253f43497a51.1715740768.git.mdw@distorted.org.uk> From: Mark Wooding Date: Mon, 15 Jan 2001 02:31:17 +0000 Subject: [PATCH] Topic at end of channel info. Organization: Straylight/Edgeware From: Ian Jackson --- bot.tcl | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) 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." -- [mdw]