chiark / gitweb /
When failing, print right msg.
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 15 Jul 2001 12:12:24 +0000 (12:12 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 15 Jul 2001 12:12:24 +0000 (12:12 +0000)
usebnbot.tcl

index 8e227c6a8a00eb6089150c1222443cd1751844f8..b164f12831be89b965efefe5fa9624a75e6d5acf 100644 (file)
@@ -42,7 +42,7 @@ def_bnbot writemsg {str} {
 
 def_bnbot onread {args} {
     global channel
-    if {[gets $bnchan l] == -1} { fail "bot $bot EOF/error on input" }
+    if {[gets $bnchan l] == -1} { fail "bot $botid EOF/error on input" }
     if {[regexp {^1005 TALK ([^ ]+) \w+ \"(.*)\"$} $l dummy n text]} {
        sendprivmsg $channel "\[$n] $text"
        return