Code:
function getLocationCaidaNetGeo($ip)
{
$NetGeoURL = "http://netgeo.caida.org/perl/netgeo.cgi?target=".$ip;
if($NetGeoFP = fopen($NetGeoURL,r))
{
ob_start();
fpassthru($NetGeoFP);
$NetGeoHTML = ob_get_contents();
ob_end_clean();
fclose($NetGeoFP);
}
preg_match ("/LAT:(.*)/i", $NetGeoHTML, $temp) or die("Could not find element LAT");
$location[0] = $temp[1];
preg_match ("/LONG:(.*)/i", $NetGeoHTML, $temp) or die("Could not find element LONG");
$location[1] = $temp[1];
return $location;
}