defset ownfullname "testing bot"
defset ownmailaddr test-irc-bot@example.com
-defset musthaveping_ms 10000
+defset muststartby_ms 10000
defset out_maxburst 6
defset out_interval 2100
defset out_lag_lag 5000
}
proc msg_PING {p c s1} {
- global musthaveping_after
prefix_none
sendout PONG $s1
- if {[info exists musthaveping_after]} {
- after cancel $musthaveping_after
- unset musthaveping_after
+}
+
+proc msg_001 {args} {
+ global muststartby_after
+ if {[info exists muststartby_after]} {
+ after cancel $muststartby_after
+ unset muststartby_after
connected
}
}
proc ensure_connecting {} {
global sock ownfullname host port nick ident socketargs
- global musthaveping_ms musthaveping_after
+ global muststartby_ms muststartby_after
ensure_outqueue
sendout NICK $nick
fileevent $sock readable onread
- set musthaveping_after [after $musthaveping_ms \
- {fail "no ping within timeout"}]
+ set muststartby_after [after $muststartby_ms \
+ {fail "no successfuly connect within timeout"}]
}