Basic Script to make Web Diagnostic Tool

Script to check Google pagerank, Technorati, Alexa, indexed/backlink, Googlebot last access and DMOZ listing

Links to Other Sites:

Forum WebMaster
Traveling Gateway
The Real Dad's News
Webs Portal
Info Bispak
Nightlife WorldWide

Basic Script to make Web Diagnostic Tool

Hereunder you can find basic php script to run Web Diagnostic. This is a base script before i make some modification including css and html.
This script can check Google pagerank, Technorati, Alexa, indexed/backlink, Googlebot last access and DMOZ listing.

At the end of this article, you can download this script as well. Appreciate if you could donate through paypal icon located on the left screen or give a link on your site to diagnosticoweb.com.

Hereunder are all functions i use on the script (on yellow color). To see php codes, just click on it one by one to expand (or shrink):
Global Variable

$alexa_backlink=0;
$alexa_reach=0;
$techno_inblogs=0;
$techno_inlinks=0;
$techno_update='';

Google Page Rank

Technorati Rank

function get_technorati_rank($url, $apikey)
{
global $techno_url, $techno_inblogs, $techno_inlinks, $techno_update;

$technorati_xml = "http://api.technorati.com/bloginfo?key=" . $apikey . "&url=" . $url;
$xml_parser = xml_parser_create();
/*
$fp = fopen($technorati_xml, "r") or die("Error: Reading XML data.");
$data = "";
while (!feof($fp)) {
$data .= fread($fp, 8192);
}
fclose($fp);
*/
$data=file_get_contents_curl($technorati_xml);
xml_parse_into_struct($xml_parser, $data, $vals, $index);
xml_parser_free($xml_parser);

$index_rank = $index['RANK'][0];
$techno_rank = $vals[$index_rank]['value'];

$index_inblogs = $index['INBOUNDBLOGS'][0];
$techno_inblogs = number_format(trim($vals[$index_inblogs]['value']));
$index_inlinks = $index['INBOUNDLINKS'][0];
$techno_inlinks = number_format(trim($vals[$index_inlinks]['value']));
$index_update = $index['LASTUPDATE'][0];
$techno_update = trim($vals[$index_update]['value']);

return $techno_rank;
}

Alexa Rank and Popularity

Google BackLink

Yahoo Backlink

function yahoo_inlink($uri)
{
$uri = trim(eregi_replace('http://', '', $uri)); $uri = trim(eregi_replace('http', '', $uri));
$url = 'http://siteexplorer.search.yahoo.com/advsearch?p=http://'.$uri.'&bwm=i&bwmf=s&bwmo=&fr2=seo-rd-se';
$v = file_get_contents_curl($url);
preg_match('/of about \(.*?) \<\/strong\>/si',$v,$r);
return ($r[1]) ? $r[1] : '0';
}

Altavista Backlink

AllTheWeb Backlink

Google Indexed

Yahoo Indexed

function yahoo_indexed($uri)
{
$uri = trim(eregi_replace('http://', '', $uri)); $uri = trim(eregi_replace('http', '', $uri));
$url = 'http://siteexplorer.search.yahoo.com/advsearch?p=http://'.$uri.'&bwm=p&bwmf=s&bwmo=d';
$v = file_get_contents_curl($url);
preg_match('/of about \(.*?) \<\/strong\>/si',$v,$r);
return ($r[1]) ? $r[1] : '0';
}

MSN Live Indexed

GoogleBot Last Access

POST request with cURL

function do_post_request_curl($url, $data)
{
$ch = curl_init();
curl_setopt($ch, CURLOPT_URL,$url); // set url to post to
curl_setopt($ch, CURLOPT_RETURNTRANSFER,1); // return into a variable
curl_setopt($ch, CURLOPT_POST, 1); // set POST method
curl_setopt($ch, CURLOPT_POSTFIELDS, $data); // add POST fields
$result = curl_exec($ch); // run the whole process
curl_close($ch);
return $result;
}

DMOZ Listed?

You can paste all the above code into a file like usual php file and name it to whatever you want to name it
Important thing is you must remember the name and not wrong when you call it from demo.php or demo.html

Assume you name it domaintool.php and call to show on your website with demo.php, click here to download both files in zip format and click here to see the demo. Appreciate if you could give me a link to this site when you run it on your site.

In case your server haven't php cURL installed, you must do these steps:

change all file_get_contents_curl($url) become file_get_contents($url) except on function file_get_contents_curl($url)
change all do_post_request_curl become do_post_request except on function do_post_request_curl($url, $data)

Encuesta de usabilidad sobre el sitio web de la Universidad | Survey usability on the website of the University