chiark
/
gitweb
/
~mdw
/
ircbot
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a49f299
)
Topic at end of channel info.
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Mon, 15 Jan 2001 02:31:17 +0000
(
02:31
+0000)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Mon, 15 Jan 2001 02:31:17 +0000
(
02:31
+0000)
bot.tcl
patch
|
blob
|
blame
|
history
diff --git
a/bot.tcl
b/bot.tcl
index 15be233ebc8038ecbd18aa3e6560a3df6c2bbc09..bbee0a0b86e6643117a3e9414885eea97cfd9470 100755
(executable)
--- 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 ", 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
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 "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."
ucmdr {} $l
} else {
ucmdr {} "The channel $chan is not managed."