Stuff

TCL:set port 7801 proc localsockfree {sock} {  if {[catch {socket -server {} $sock} rc]} {    return 0  } else {    # server could be started, so the port is not in use locally    catch {close $rc}    return 1  }}  proc accept {chan addr port} {  fconfigure $chan -blocking 0 -buffering line  fileevent $chan readable [list getlines $chan $addr $port]} proc getlines {chan addr port} {  global mysql  set string [gets $chan]  puts $chan "$string recieved"}  # start socket server and wait... :>if {[localsockfree $port]} {  socket -server accept $port} { return "port $port already used.." }PHP:<?php$fp = fsockopen("192.168.1.1", 7801);if (!$fp) {    echo "Unable to open\n";} else {    fwrite($fp, "GET test\r\n");    stream_set_timeout($fp, 2000);    $res = fread($fp, 2000);    $info = stream_get_meta_data($fp);    fclose($fp);    if ($info['timed_out']) {        echo 'Connection timed out!';    } else {        echo $res;    }}?>