127 |
callevent connect-server |
callevent connect-server |
128 |
set fail [catch { connect $serv $port -timeout ${server-timeout} -myaddr ${my-ip} -control ::tcldrop::server::Read -errors ::tcldrop::server::ConnectErrors -writable ::tcldrop::server::Write } idx] |
set fail [catch { connect $serv $port -timeout ${server-timeout} -myaddr ${my-ip} -control ::tcldrop::server::Read -errors ::tcldrop::server::ConnectErrors -writable ::tcldrop::server::Write } idx] |
129 |
if {!$fail} { |
if {!$fail} { |
130 |
::tcldrop::idx::ChInfo $idx [list handle (server) hostname $serv port $port type SERVER other serv timestamp [set timestamp [unixtime]]] |
::tcldrop::idx::ChInfo $idx [list handle (server) remote $serv hostname $serv port $port type SERVER other serv timestamp [set timestamp [unixtime]]] |
131 |
# Eggdrop compatibility stuff: |
# Eggdrop compatibility stuff: |
132 |
set server "$serv:$port" |
set server "$serv:$port" |
133 |
set server-online $timestamp |
set server-online $timestamp |