Hieronder de integrale code van de html-pagina. Pas in de broncode alle url's aan (verwijzen nu naar de kompoos.nl).
<?php header("Cache-Control:public");header("Content-Type:text/html;charset=utf-8");ob_start("ob_gzhandler");?>
<!DOCTYPE html><html lang="nl">
<head>
<meta http-equiv="content-type" content="text/html;charset=utf-8" />
<title>link checker / ONLINE service</title>
<meta name="keywords" content="check,link,online" />
<meta name="description" content='linkchecker ONLINE. service om alle links op jouw pagina te controleren.' />
<meta name="author" content="Bobik" />
<meta name="robots" content="noimageclick" />
<style type="text/css">
.linkchecker a{
color:#00e;
background:inherit;
padding:1px 8px 1px 8px}
.linkchecker a:hover{
color:#0a0;
background:inherit}
.link-check-vink{padding:2px 16px 2px 6px;
color:#060;
background:inherit;
font-style:italic;
font-weight:bold}
</style>
</head>
<body style="font-family:sans-serif">
<h1>KOMPOOS.NL</h1>
<h2>link checker</h2>
<h3><a href="/">home</a> » <a href="/website-tools/">website-tools</a> » <a href="/website-tools/online/">online</a> » <a href="/website-tools/online/link-checker.html">link-checker.html</a></h3>
<p><strong><em><a href="/site-map.html">sitemap</a></em></strong></p>
<hr />
<h4>check alle links op jouw pagina</h4>
<?php
error_reporting(E_ALL);
function haal_urls($dehtml,$deurl){
$info=@parse_url($deurl);
$stukjes=explode("\r\n\r\n",$dehtml,2);
$dehtml=$stukjes[1];
unset($stukjes);
$matches=array();
preg_match_all("|href\=\"?'?`?([[:alnum:]:?=&@/;._-]+)\"?'?`?|i",$dehtml,&$matches);
$delinks=array();
$geefterug=$matches[1];
for($i=0;isset($geefterug[$i]);$i++) {
if(preg_match("|^http://(.*)|i",$geefterug[$i])){
$delinks[]=$geefterug[$i];
}elseif(preg_match("|^/(.*)|i",$geefterug[$i])){
$delinks[]="http://" . $info["host"] . "" .$geefterug[$i];}}
return $delinks;}
function haal_unieke_urls($dehtml,$deurl){
if(!$dehtml){return false;}
$deurls=haal_urls($dehtml,$deurl);
$alleurls=array();
for($i=0;isset($deurls[$i]);$i++) {
if(!in_array($deurls[$i],$alleurls)) {
$alleurls[]=$deurls[$i];}}
return $alleurls;}
function haal_alles($deurl){
$info=@parse_url($deurl);
$fp=@fsockopen($info["host"],80,$errno,$errstr,1);
if(!$fp){
return false;}else{
if (empty($info["path"])){
$info["path"] = "/";}
$query="";
if(isset($info["query"])){
$query="?" . $info["query"]. "";}
$out="POST " .$info["path"] . "" . $query . " HTTP/1.0\r\n";
$out.="Host: " . $info["host"] . "\r\n";
$out.="Connection: close \r\n";
$out.="User-Agent: kompoos_link_checker/1.4\r\n\r\n";
fwrite($fp, $out);
$dehtml='';
while(!feof($fp)) {
$dehtml .= fread($fp, 8192);}
fclose($fp);}
return $dehtml;}
function haal_head($deurl){
$info=@parse_url($deurl);
$fp=@fsockopen($info["host"],80,$errno,$errstr,1);
if(!$fp){return false;}else{
if(empty($info["path"])){
$info["path"]="/";}
$query="";
if(isset($info["query"])){
$query="?" . $info["query"] . "";}
$out="HEAD " . $info["path"] . "" . $query . " HTTP/1.0\r\n";
$out.="Host: " . $info["host"] . "\r\n";
$out.="Connection: close \r\n";
$out.="User-Agent: kompoos_link_checker/1.4\r\n\r\n";
fwrite($fp, $out);
$dehtml='';
while(!feof($fp)) {
$dehtml.=fread($fp, 8192);}
fclose($fp);}
return $dehtml;}
function geef_de_status($header){
$headers=explode("\r\n",$header);
unset($header);
for($i=0;isset($headers[$i]);$i++){
if(preg_match("/HTTP\/[0-9A-Za-z +]/i",$headers[$i])){
$status=preg_replace("/http\/[0-9]\.[0-9]/i", "", $headers[$i]);}}
return $status;}
if(isset($_POST['url'])){
print "<ul>\n";
print " <li><a href=\"http://kompoos.nl/website-tools/online/link-checker.html\" title=\" site index \">NIEUWE INVOER</a></li>\n";
print "</ul>\n";
print "<h1><a href=\"" . $_POST['url'] . "\">" . $_POST['url'] . "</a></h1> <p class=\"linkchecker\">\n";
flush();
$dehtml=haal_alles($_POST['url']);
if(!$dehtml){
print "deze link kan niet gecheckt worden<br /><br />\n";
}else{
$isdecode=geef_de_status($dehtml);
print "" . $isdecode . "<br /><br />\n";
$deurls=haal_unieke_urls($dehtml,$_POST['url']);
for($i=0;isset($deurls[$i]);$i++) {
$tekst1="<a href=\"" . htmlspecialchars($deurls[$i]) . "\">" . htmlspecialchars($deurls[$i]) . "</a><br />";
flush();
$dehtml=haal_head($deurls[$i]);
if(!$dehtml) {
$isdecode="een zoekrobot kan deze link een penalty geven\n";
}else{
$isdecode=geef_de_status($dehtml);}
$isdecode=str_replace('200 OK', '<span class="link-check-vink">Ѵ</span>' ,$isdecode);
print "" . $isdecode . " " . $tekst1 . "\n";
flush();
usleep(50000);
}
echo "</p>";
print "<ul>\n";
print " <li><a href=\"http://kompoos.nl/website-tools/online/link-checker.html\" title=\" nieuwe invoer \">NIEUWE INVOER</a></li>\n";
print "</ul>\n";}}else{
print "<form action=\"link-checker.html\" onsubmit='is_bezig()' method=\"post\">\n";
print " <input type=\"text\" name=\"url\" value=\"http://\" size=\"40\" />\n";
print " <input type=\"submit\" value=\"Check links\" />\n";
print "</form>\n";}
?>
<h1 id="link_checken"><sup>idle...</sup></h1>
<script>
/*global document: false */
function is_bezig()
{document.getElementById("link_checken").innerHTML="busy...";}
</script>
</body></html>