ucmdr {} "This is fine, but bear in mind that people will be able to mess with your settings. Channel management features need a secure registration." "makes an insecure registration for your nick."
}
}
+ default {
+ error "you mean register / register delete / register insecure"
+ }
}
}
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"}]
}
--- /dev/null
+# Configuration for nCipher
+
+set host cam.irc.devel.ncipher.com
+set host cromer
+set nick Fastness
+set ownfullname "here to Help"
+set ownmailaddr iwj@ncipher.com
+set socketargs {}
+set ident fastness
+
+source bot.tcl
}
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]