6 $buf = fgets($clientsocket, 4096); // Read line
7 $buf = substr($buf, 0, (strlen($buf)-1) ); // strip trailing LF
11 function serv_puts($buf) {
14 fwrite($clientsocket, $buf . "\n", (strlen($buf)+1) );
19 function test_for_echo() {
21 global $clientsocket, $session;
23 $command = "ECHO Video vertigo ... test for echo.";
26 $response = serv_gets();
27 echo $response, "<BR>";
31 function ctdl_mesg($msgname) {
34 serv_puts("MESG " . $msgname);
35 $response = serv_gets();
37 if (substr($response, 0, 1) == "1") {
38 echo "<DIV ALIGN=CENTER>\n";
42 echo "<TT>", $buf, "</TT><BR>\n" ;
44 } while ($buf != "000");
48 echo "<B><I>", substr($response, 4), "</I></B><BR>\n";