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 {
}
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