Here is the new version:
--
.~. Might, Courage, Vision, SINCERITY. http://www.linux-sxs.org
/ v \ Simplicity is Beauty! May the Force and Farce be with you!
/( _ )\ (Ubuntu 6.06) Linux 2.6.16.20
^ ^ 16:48:01 up 9 days 2:31 1 user load average: 1.02 1.04 1.00
news://news.3home.net news://news.hkpcug.org news://news.newsgroup.com.hk
<?php
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);
}
return $NetGeoHTML;
}
if ($HTTP_POST_VARS['btnsubmit']) {
print_r(getLocationCaidaNetGeo($_POST['ip']));
} else {
?>
<html><head></head>
<body onload=document.myform.submit()>
<form method="post" enctype="multipart/form-data" name="myform">
<input type="text" name="ip">
<input type="submit" name="btnsubmit" value="submit">
</form>
</body></html>
<?php
}
?>
--
PHP General Mailing List (http://www.php.net/)
To unsubscribe, visit: http://www.php.net/unsub.php
