Buenas..
Hice un scrtip para acortar mis URLs en mi blog, el proceso lo hago muy simple:
1- me conecto al sitio is.gd con sockets.
3- Envio la peticion GET con mi URL.
4- Me responde con la URL acortada.
Mi problema, es que en lo que es la trama HTTP me llegan otros valores extras, esto me llega:
1- Url a acortar:
http://lab.sie-group.net.
2- GET que invoco en el socket:
http://is.gd/create.php?format=simple&url=http://lab.sie-group.net3- Respuesta a nivel de socket:
13 http://is.gd/DuSqfL 0.
Si lo hacemos via Navegador, recivo solo:
http://is.gd/DuSqfL, el valor 12 y 0 no se porque estan en la trama, en fin que puedo hacer para sacar la url ?
Este es mi code:
<?php
function is_gd( $url )
{
$host= 'is.gd'; # hostname
$get= 'create.php?format=simple'; # get basico
$get .= '&url='. $url; # concatenamos la url
$puerto= 80; # puerto a consultar
# trama HTTP
$http_request= "GET /$get HTTP/1.1\r\n";
$http_request .= "Host: $host \r\n";
$http_request .= "Connection: close\r\n";
$http_request .= "\r\n";
# consultamos
if( ($fd= @fsockopen($host, $puerto, $errno, $errstr, 10 ))==FALSE ) # abrimos socket return 0; # error, no se abrio el socket
fwrite($fd, $http_request); # enviamos datos $buf=''; # buffer de recepcion
while( !feof($fd) ) # leeremos sockets hasta que termine $buf .= fgets($fd, 2048); # leemos
$estado='';
preg_match("{[0-9]{3}}", $buf, $a); # obtenemos codigo recivido en transferencia $estado= $a[0]; # copiamos estado
$failstatus= array( "400", "406", "502", "503" ); # codigos de error en consulta foreach( $failstatus as $key )
{
if( !strcmp($key, $estado ) ) # si son iguales echo 'Error en consulta: '. $estado;
# return 0; # error en la consulta
}
echo '<br>Respuesta: '. $r[1];
}
?>
Se imprime:
Respuesta: 13 http://is.gd/DuSqfL 0Saludos !
<?php
function is_gd( $url )
{
$host= 'is.gd'; # hostname
$get= 'create.php?format=simple'; # get basico
$get .= '&url='. $url; # concatenamos la url
$puerto= 80; # puerto a consultar
# trama HTTP
$http_request= "GET /$get HTTP/1.1\r\n";
$http_request .= "Host: $host \r\n";
$http_request .= "Connection: close\r\n";
$http_request .= "\r\n";
# consultamos
if( ($fd= @fsockopen($host, $puerto, $errno, $errstr, 10 ))==FALSE ) # abrimos socket return 0; # error, no se abrio el socket
fwrite($fd, $http_request); # enviamos datos $buf=''; # buffer de recepcion
while( !feof($fd) ) # leeremos sockets hasta que termine $buf .= fgets($fd, 2048); # leemos
echo $result[0];
}
is_gd('http://lab.sie-group.net/');
?>
Salida: