set nick Blight
set ownfullname "here to Help"
set ownmailaddr blight@chiark.greenend.org.uk
+#set socketargs {-myaddr permutation-city.greenend.org.uk}
+set socketargs {}
source bot.tcl
}
proc ensure_connecting {} {
- global sock ownfullname host port nick
+ global sock ownfullname host port nick socketargs
global musthaveping_ms musthaveping_after
if {[info exists sock]} return
- set sock [socket $host $port]
+ set sock [eval socket $socketargs [list $host $port]]
fconfigure $sock -buffering line
fconfigure $sock -translation crlf