<?php
if(isset($_GET['host'])&&!ereg("^ *$",$_GET['host'])){
            $host=$_GET['host'];
        }else{
            echo"<span id=\"error\"><b>Error</b>: No ha definido el <i>host</i>.</span><br />";
            $error=true;
    }
if(isset($_GET['uri'])&&!ereg("^ *$",$_GET['uri'])){
            $uri=$_GET['uri'];
        }else{
            echo"<span id=\"error\"><b>Error</b>: No ha definido el <i>uri</i> al cual se enviarán los datos.</span><br />";
            $error=true;
    }
if(isset($_GET['vars'])&&!ereg("^ *$",$_GET['vars'])){
            $vars=$_GET['vars'];
        }else{
            echo"<span id=\"error\"><b>Error</b>: No ha definido <i>vars</i>.</span><br />";
            $error=true;
    }
if(isset($_GET['puerto'])&&!ereg("^ *$",$_GET['puerto'])){
            $puerto=$_GET['puerto'];
        }else{
            echo"<span id=\"error\"><b>Error</b>: Es necesario definir el <i>puerto</i> por el cual se ejecutará la conexión.</span><br />";
            $error=true;
    }
if(isset($error)&&$error==true)exit;

$header = "Host: $host\r\n";
$header .= "User-Agent: PHP Script\r\n";
$header .= "Content-Type: application/x-www-form-urlencoded\r\n";
$header .= "Content-Length: ".strlen($vars)."\r\n";
$header .= "Connection: close\r\n\r\n";

$fp = pfsockopen("tcp://".$host, $puerto, $errno, $errstr, 30);
if($fp){
        fputs($fp, "POST $uri HTTP/1.1\r\n");
        fputs($fp, $header.$vars);
        fwrite($fp, $out);
        
        if(isset($_GET[view])){
                echo"<pre>";
                while (!feof($fp)) {
                        echo fgets($fp, 128);
                    }
                echo"</pre>";
            }
        fclose($fp);
        echo"ok";
    }else{
        echo"error";
    }
?>