<?

if ($QUERY_STRING) {

  $purl = parse_url($QUERY_STRING);
  if (!($purl[port])) {
     $purl[port] = 80; 
  }

  $fp = fsockopen ($purl[host], $purl[port], &$errno, &$errstr, 30);
  if (!$fp) {
    die("Could not open socket $errstr ($errno)\n");
  } else {
    fputs ($fp, "GET " . $purl[path] . $purl[query] . " HTTP/1.1\r\n");  
    fputs ($fp, "Host: " . $purl[host] . "\r\n");   
    fputs ($fp, "User-Agent: DoCoMo/1.0/SO502i\r\n");
    fputs ($fp, "Connection: close\r\n\r\n");
    while (!feof($fp)) {
       $line = fgets ($fp,128);
       print $line;
    }
  }
} else {
  print("USAGE: enter ? and the url you want to see after the url above");
}
?>