}
def_bnbot ensure_connecting {} {
- global musthaveping_ms bnbot
+ global muststartby_ms bnbot
if {[info exists bnchan]} return
defset bnport 6112
set bnchan [open [list | $bnbot $bnhost $bnport] w+]
fconfigure $bnchan -buffering line
- set bnmbokafter [after $musthaveping_ms \
+ set bnmbokafter [after $muststartby_ms \
"fail {bot $botid not ok within timeout}"]
set bnstate Connected
fileevent $bnchan readable [list bnbot_onread $botid]
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
} elseif {[regexp {^1023 EMOTE ([^ ]+) \w+ \"(.*)\"$} $l dummy n text]} {
- if {"$n" == "$bnnick"} return
+ if {![ircnick_compare $n $bnnick]} return
sendprivmsg $channel "* $n $text"
return
}
} elseif {[regexp {^1007 CHANNEL "(.*)"} $l dummy bnchanfn]} {
after cancel $bnmbokafter
unset bnmbokafter
- } elseif {![string length $bnstate]} {
+ } elseif {[info exists bnchanfn]} {
bnbot_event $botid $l
}
}