No more debugging.

[ircbot] / bot.tcl

diff --git a/bot.tcl b/bot.tcl
index bbee0a0b86e6643117a3e9414885eea97cfd9470..e313f5b3cf702d0b511b537a5585c0bd15342f17 100755 (executable)
--- a/bot.tcl
+++ b/bot.tcl
@@ -432,10 +432,8 @@ proc note_topic {showoff whoby topic} {
     } else {
        set tryspies $tell
     }
     } else {
        set tryspies $tell
     }

-puts "NT>showoff $showoff|whoby $whoby|topic $topic|tell $tell|tryspies $tryspies|msg $msg<"

     foreach spy $tryspies {
        set see [chandb_get $spy topicsee]
     foreach spy $tryspies {
        set see [chandb_get $spy topicsee]

-puts "NT>spy $spy|see $see<"

        if {[lsearch -exact $see $showoff] >= 0 || \
                ([lsearch -exact $see *] >= 0 && \
                [lsearch -exact $tell $spy] >= 0)} {
        if {[lsearch -exact $see $showoff] >= 0 || \
                ([lsearch -exact $see *] >= 0 && \
                [lsearch -exact $tell $spy] >= 0)} {