chiark
/
gitweb
/
~ijackson
/
ircbot.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f60c41b
)
ACTION works.
author
ijackson
<ijackson>
Sun, 10 Jun 2001 16:37:06 +0000
(16:37 +0000)
committer
ijackson
<ijackson>
Sun, 10 Jun 2001 16:37:06 +0000
(16:37 +0000)
bridge.tcl
patch
|
blob
|
history
irccore.tcl
patch
|
blob
|
history
diff --git
a/bridge.tcl
b/bridge.tcl
index 6f0c9daec3ec2214d84a1c7a7a69e10146f536ea..f0f84f5fcf0780f21ecc5619996c651b41347e4d 100755
(executable)
--- a/
bridge.tcl
+++ b/
bridge.tcl
@@
-9,12
+9,12
@@
source usebnbot.tcl
source stdhelp.tcl
proc privmsg_unlogged {p ischan params} {
source stdhelp.tcl
proc privmsg_unlogged {p ischan params} {
- global bots errorCode errorInfo line_org_
1
char
+ global bots errorCode errorInfo line_org_
end
char
if {$ischan} {
if {[catch {
prefix_nick
set text [lindex $params 1]
if {$ischan} {
if {[catch {
prefix_nick
set text [lindex $params 1]
- if {"$line_org_
1
char" == "\001"} {
+ if {"$line_org_
end
char" == "\001"} {
if {[regexp {^\?ACTION (.*)\?$} $text dummy text]} {
set towrite "* $n $text"
} else {
if {[regexp {^\?ACTION (.*)\?$} $text dummy text]} {
set towrite "* $n $text"
} else {
diff --git
a/irccore.tcl
b/irccore.tcl
index 3ff0bd1e895c062a5e80e69bb0467a9aca3852d7..1ff684037e4899fd669e128401dbeb9b954004a3 100644
(file)
--- a/
irccore.tcl
+++ b/
irccore.tcl
@@
-163,10
+163,10
@@
proc bgerror {msg} {
}
proc onread {args} {
}
proc onread {args} {
- global sock nick calling_nick errorInfo errorCode line_org_
1
char
+ global sock nick calling_nick errorInfo errorCode line_org_
end
char
if {[gets $sock line] == -1} { fail "EOF/error on input" }
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
regsub -all "\[^ -\176\240-\376\]" $line ? line
set org $line