Bugfixes, and production bot.

[ircbot] / usebnbot.tcl

diff --git a/usebnbot.tcl b/usebnbot.tcl
index f7a1ed4ca9011a4c8083876eb956cd85bcb708e2..ee7737ac3063f47d0caeb68a05e1a23f12ddef7d 100644 (file)
--- a/usebnbot.tcl
+++ b/usebnbot.tcl
@@ -69,7 +69,7 @@ def_bnbot onread {args} {
     } elseif {[regexp {^1007 CHANNEL "(.*)"} $l dummy bnchanfn]} {
        after cancel $bnmbokafter
        unset bnmbokafter
-    } elseif {![string length $bnstate]} {
+    } elseif {[info exists bnchanfn]} {
        bnbot_event $botid $l
     }
 }