From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 10 Jun 2001 16:37:06 +0000 (+0000)
Subject: ACTION works.
X-Git-Tag: branchpoint-2001-10-09-tell~10
X-Git-Url: https://git.distorted.org.uk/~mdw/ircbot/commitdiff_plain/892f5a82345005e6847a9443df7ac83088361be1?hp=1ae11f7934181234a916b14a3128eccf29932a44

ACTION works.
---

diff --git a/bridge.tcl b/bridge.tcl
index 6f0c9da..f0f84f5 100755
--- a/bridge.tcl
+++ b/bridge.tcl
@@ -9,12 +9,12 @@ source usebnbot.tcl
 source stdhelp.tcl
 
 proc privmsg_unlogged {p ischan params} {
-    global bots errorCode errorInfo line_org_1char
+    global bots errorCode errorInfo line_org_endchar
     if {$ischan} {
 	if {[catch {
 	    prefix_nick
 	    set text [lindex $params 1]
-	    if {"$line_org_1char" == "\001"} {
+	    if {"$line_org_endchar" == "\001"} {
 		if {[regexp {^\?ACTION (.*)\?$} $text dummy text]} {
 		    set towrite "* $n $text"
 		} else {
diff --git a/irccore.tcl b/irccore.tcl
index 3ff0bd1..1ff6840 100644
--- a/irccore.tcl
+++ b/irccore.tcl
@@ -163,10 +163,10 @@ proc bgerror {msg} {
 }
 
 proc onread {args} {
-    global sock nick calling_nick errorInfo errorCode line_org_1char
+    global sock nick calling_nick errorInfo errorCode line_org_endchar
 
     if {[gets $sock line] == -1} { fail "EOF/error on input" }
-    set line_org_1char [string range $line 0 0]
+    set line_org_endchar [string range $line end end]
     regsub -all "\[^ -\176\240-\376\]" $line ? line
     set org $line