~mdw
/
ircbot
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
State diagram fig file
[ircbot]
/
bridge.tcl
diff --git
a/bridge.tcl
b/bridge.tcl
index
0836203
..
1282aed
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 {
@@
-24,7
+24,7
@@
proc privmsg_unlogged {p ischan params} {
set towrite "\[$n] [lindex $params 1]"
}
foreach botid $bots {
set towrite "\[$n] [lindex $params 1]"
}
foreach botid $bots {
- upvar #0 bot/$botid/
bn
chan ch
+ upvar #0 bot/$botid/chan ch
puts $ch $towrite
}
} emsg]} {
puts $ch $towrite
}
} emsg]} {
@@
-53,11
+53,11
@@
def_bnbot event {l} {
global channel errorCode
if {[regexp {^1002 JOIN ([^ ]+) \w+} $l dummy n]} {
set bnnicks($n) 1
global channel errorCode
if {[regexp {^1002 JOIN ([^ ]+) \w+} $l dummy n]} {
set bnnicks($n) 1
- sendprivmsg $channel "[bnnick_clean $n] has joined $bnchanfn"
+ sendprivmsg $channel "[bnnick_clean $n] has joined $bnchanfn
.
"
} elseif {[regexp {^1003 LEAVE ([^ ]+) \w+$} $l dummy n]} {
if {"$n" == "$bnnick"} return
catch { unset bnnicks($n) }
} elseif {[regexp {^1003 LEAVE ([^ ]+) \w+$} $l dummy n]} {
if {"$n" == "$bnnick"} return
catch { unset bnnicks($n) }
- sendprivmsg $channel "[bnnick_clean $n] has left $bnchanfn"
+ sendprivmsg $channel "[bnnick_clean $n] has left $bnchanfn
.
"
} elseif {[regexp {^1004 WHISPER ([^ ]+) \w+ "(.*)"$} $l dummy n text]} {
if {[catch {
go_usercommand "$botid $n" $bnchanfn $n $n $text
} elseif {[regexp {^1004 WHISPER ([^ ]+) \w+ "(.*)"$} $l dummy n text]} {
if {[catch {
go_usercommand "$botid $n" $bnchanfn $n $n $text
@@
-99,7
+99,7
@@
proc tellall {msg} {
proc msg_JOIN {p c chan} {
global onchan_nicks
prefix_nick
proc msg_JOIN {p c chan} {
global onchan_nicks
prefix_nick
- tellall "$n has joined $chan"
+ tellall "$n has joined $chan
.
"
set onchan_nicks($n) 1
}
set onchan_nicks($n) 1
}
@@
-108,7
+108,7
@@
proc msg_NICK {p c newnick} {
prefix_nick
kill_nick $n
set onchan_nicks($newnick) 1
prefix_nick
kill_nick $n
set onchan_nicks($newnick) 1
- tellall "$n has changed nicks to $newnick"
+ tellall "$n has changed nicks to $newnick
.
"
}
proc kill_nick {n} { global onchan_nicks; catch { unset onchan_nicks($n) } }
}
proc kill_nick {n} { global onchan_nicks; catch { unset onchan_nicks($n) } }
@@
-125,7
+125,7
@@
proc msg_KILL {p c user why} {
}
proc msg_PART {p c chan} {
prefix_nick
}
proc msg_PART {p c chan} {
prefix_nick
- tellall "$n has left $chan"
+ tellall "$n has left $chan
.
"
kill_nick $n
}
proc msg_QUIT {p c why} {
kill_nick $n
}
proc msg_QUIT {p c why} {