function GetHTML ( $url , & $delta , $corto = false , $complet = true ) {
$url_stuff = parse_url ( $url );
$fp = fsockopen ( $url_stuff [ 'host' ], 80 , $errno , $errstr , 30 );
if (! $fp ) {
exit;
} else {
$header = "GET " . $url_stuff [ 'path' ] . "?" . $url_stuff [ 'query' ] ;
$header = $header . " HTTP/1.0/r/nHost: " . $url_stuff [ 'host' ] . "/r/n/r/n" ;
fputs ( $fp , $header );
//Separar contenido...
$header = '' ;
$body = '' ;
$act = false ;
$fin = false ;
while ((! feof ( $fp )) && ! $fin ) {
$line = fgets ( $fp , 1024 );
if (! $act ) {
if ( strpos ( $line , "/r/n" , 0 ) == 0 ) {
$header .= $line ;
if (! $complet ) $fin = true ;
$act = true ;
} else {
$header .= $line ;
}
} else {
if ( $corto ) {
if ( eregi ( "<body([^>]*)>" , $line , $o )) $fin = true ;
}
if (! $fin ) $body = $body . $line ;
}
}
//Seguir location...
$ret = strpos ( $header , "Location:" , 0 );
if ( $ret !== false ) {
$fin = strpos ( $header , "/r/n" , $ret + 9 );
$nueva = substr ( $header , $ret + 9 , $fin - $ret - 9 );
$body = GetHTML ( $nueva , $delta , $corto , $complet );
} else {
$delta = $url ;
}
fclose ( $fp );
}
return $body ;
}