/[tcldrop]/tcldrop/modules/server/server.tcl
ViewVC logotype

Diff of /tcldrop/modules/server/server.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by fireegl, Tue May 27 15:32:09 2003 UTC revision 1.6 by fireegl, Wed May 28 19:47:53 2003 UTC
# Line 127  proc ::tcldrop::server::server {{serv {} Line 127  proc ::tcldrop::server::server {{serv {}
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

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26