File: claseurlcheck.php

<?
class urlcheck
{
var $NombreCompleto;
var $ExtraUrlParam;

function urlcheck ($Url)
{
	$this->_Set ($Url);
	return $this;
}

function CambiaUrl ($Url)
{
	$this->_Set ($Url);
}

function IsAlive ($Url=0)
{
	$Retorno=0;
	if ($Url){ $this->_Set ($Url); }
	
	if (!$this->_BienFormada ($this->NombreCompleto)){ return $Retorno; }
	if (!$this->_MandaGet()){ return $Retorno; }

	$Retorno=1;
	
	
	return $Retorno;
}

function _BienFormada ($Url)
{
	$Retorno=0;	
	eregi ("(h{0,1}t{0,2}p{0,1}:{0,1}/{0,1}/{0,1})(w{0,3}\.{0,1})([aA-zZ]+)?\.{1}([aA-zZ]{2,3})", $Url, $ItemsUrl);
	if ($ItemsUrl[3] && $ItemsUrl[4]){ $Retorno=1; }
	return $Retorno;
}

function _Set ($Url)
{
	$this->NombreCompleto='';
	$this->ExtraUrlParam ='';
	
	if (!$this->_BienFormada ($Url)){ return; }
	eregi ("(h{0,1}t{0,2}p{0,1}:{0,1}/{0,1}/{0,1})(w{0,3}\.{0,1})([aA-zZ]+)?\.{1}([aA-zZ]{2,3})(.*)", $Url, $ItemsUrl);
	$this->NombreCompleto = "http://".$ItemsUrl[2].$ItemsUrl[3].'.'.$ItemsUrl[4];
	$this->ExtraUrlParam  = $ItemsUrl[5];
	if (!$this->ExtraUrlParam){ $this->ExtraUrlParam = '/'; }
	
	return;
}

function _MandaGet()
{
	$Retorno=0;
	
	$Sock = $this->_AbreConexion();
	if (!$Sock){ return $Retorno; }
	
	$Mensaje = "GET ".$this->NombreCompleto.$this->ExtraUrlParam." \n\n";

	if (!fwrite ($Sock, $Mensaje))
		{$this->_CierraConexion ($Sock);
		return $Retorno;}
	
	$Contenido='';
	while (!feof ($Sock))
		{$Contenido .= fgets ($Sock, 4096);}	
	$this->_CierraConexion ($Sock);
	
	if (!eregi ("<title>.*404", $Contenido)){ $Retorno=1; } 
	
	return $Retorno;
}

function _AbreConexion()
{
	$Retorno=0;
	eregi ("http://(.+)", $this->NombreCompleto, $ItemsNombre);
	$Retorno = fsockopen ($ItemsNombre[1], 80, $errno, $errstr, 60);
	return $Retorno;
}

function _CierraConexion ($HSock)
{
	fclose ($HSock);
}

}
?>