chiark / gitweb /
Add missing ucmdr {} {} cvs/branch-2001-10-09-tell merge-2001-10-09-tell
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Fri, 15 Mar 2002 22:41:22 +0000 (22:41 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Fri, 15 Mar 2002 22:41:22 +0000 (22:41 +0000)
bot.tcl

diff --git a/bot.tcl b/bot.tcl
index 9a7daea46ccba615f69a6aedcfff40133b9503df..4ec949dfcef980787ba6b6b23947e4533174bef5 100755 (executable)
--- a/bot.tcl
+++ b/bot.tcl
@@ -1147,11 +1147,13 @@ proc channelmgr_monoop {} {
 def_ucmd op {
     channelmgr_monoop
     sendout MODE $target +o $n
+    ucmdr {} {}
 }
 
 def_ucmd leave {
     channelmgr_monoop
     doleave $target
+    ucmdr {} {}
 }
 
 def_ucmd invite {
@@ -1886,6 +1888,7 @@ def_ucmd kill {
     set reason "at request of user $nu"
     if {[ta_anymore]} { append reason "; $text" }
     sendout KILL $target $reason
+    ucmdr {} {}
 }
 
 def_ucmd summon {