$fp = fsockopen("dev.isp.fi", 554, $errno, $errstr, 30);
if (!$fp) {
  echo "SERVERI SULKI";
  echo "$errstr ($errno)<br />\n";
 } else {
  echo "SERVERI AUKI<br>";

  $out = "DESCRIBE rtsp://dev.isp.fi/broadcast/test.rm RTSP/1.0".chr(13).chr(10);
  $out .= "CSeq: 0".chr(13).chr(10);
  $out .= "Accept: application/sdp, application/rtsl, application/mheg".chr(13).chr(10).chr(13).chr(10);

  echo "<pre>server input:\n" .$out ."</pre>";

  fwrite($fp, $out);

  $firstline = fgets($fp);

  if (strpos($firstline, "200") === false ) {
    echo "STREAMI POIS PÄÄLTÄ";
  }
  else {
    echo "STREAMI PÄÄLLÄ";
  }

  echo "<pre>server output firstline:\n" .$firstline ."</pre>";

  fclose($fp);
 }