# Init server status to "DOWN" set ax_env(Result) 1 # Open a socket if {[catch {socket $ax_env(ServerHost) $ax_env(ServerPort)} sock]} { puts stderr "$ax_env(ServerHost): $sock" } else { fconfigure $sock -buffering none -eofchar {} # Send the request "some_string" and return puts $sock "talk\n" # Wait for the response from TCP service set line [read $sock] if { [ regexp "Works" $line ] } { # Set server to be "UP" set ax_env(Result) 0 } close $sock }