Broken Link Checker

if(@$_REQUEST['url'] && checkImage())
{
$url = trim($_REQUEST['url']);
$url = preg_match("#^https?://#i",$url) ? $url : "http://".$url;
$_REQUEST['url'] = $url;
$url = parse_url($url);
$url['path'] = @$url['path'] ? $url['path'] : "/";

$baseurl = $url['scheme']."://";
$unp = @$url['user'] ? urlencode($url['user']) : "";
$unp .= @$url['pass'] ? (":".urlencode($url['pass'])) : "";
$unp = $unp ? "$unp@" : "";

$baseurl .= $unp . $url['host'];
$dirurl = $baseurl.dirname($url['path']);

$content = fetch($_REQUEST['url']);
$content = preg_replace("#]*>.*?#ims","",$content);
$basehref = false;

if(preg_match("#]*>|\s+>|>)#si",$content,$matches))
{
$basehrefurl = $matches[1];
$basehrefurl = preg_match("#^('|")(.*)\1#i",$basehrefurl,$m) ? $m[2] : $basehrefurl;
if(!preg_match("#^https?://#i",$basehrefurl))
{
if(strpos($basehrefurl,"/")===0)
{
$basehrefurl = $basehrefurl.$dirurl;
}
else
{
$basehrefurl = (strrpos($basehrefurl,"/")===strlen($basehrefurl)-1 ? $basehrefurl : $basehrefurl."/" ).$dirurl;
}
}
preg_match("#(^.+?://.+?)(/.*$|$)#",$basehrefurl,$basehrefroot);
$basehrefroot = $basehrefroot[1];
$basehref = true;
}

preg_match_all("#<(\w+) [^>]*?(href|src)=(\S*?)(?:\s+[^>]*>|\s+>|>)#si",$content,$matches);
$resources = array();
foreach($matches[2] as $k=>$v)
{
$resources[$v][] = preg_match("#^('|")(.*)\1#i",$matches[3][$k],$m) ? $m[2] : $matches[3][$k];
}

$total = 0;
foreach($resources as $i=>$res)
{
foreach($res as $k=>$v)
{
if(preg_match("#^(\w+?)://#",$v))
{
continue;
}

if(preg_match("#^(\w+?):#",$v))
{
unset($resources[$i][$k]);
continue;
}

if(strpos($v,"?")===0)
{
$resources[$i][$k] = $basehref ? $basehrefurl.$v : $baseurl.$url['path'].$v;
continue;
}

if(strpos($v,"/")===0)
{
$resources[$i][$k] = $basehref ? $basehrefroot.$v : $baseurl.$v;
continue;
}
else
{
$resources[$i][$k] = $basehref ? $basehrefurl.$v : $baseurl."/".$v;
continue;
}
}

$total += count($res);
}

echo "
Total is: $total

EOF;
}
}
echo "

($i) $v

";
}
?>