libdir.'/filelib.php');
require_once($CFG->libdir.'/geoip/geoipcity.inc');
require_login();
$ip = optional_param('ip', getremoteaddr(), PARAM_HOST);
$user = optional_param('user', $USER->id, PARAM_INT);
if (isset($CFG->iplookup)) {
//clean up of old settings
set_config('iplookup', NULL);
}
$info = array($ip);
$note = array();
if (!preg_match('/(^\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/', $ip, $match)) {
print_error('invalidipformat', 'error');
}
if ($match[1] > 255 or $match[2] > 255 or $match[3] > 255 or $match[4] > 255) {
print_error('invalidipformat', 'error');
}
if ($match[1] == '127' or $match[1] == '10' or ($match[1] == '172' and $match[2] >= '16' and $match[2] <= '31') or ($match[1] == '192' and $match[2] == '168')) {
print_error('iplookupprivate', 'error');
}
if ($user) {
if ($user = get_record('user', 'id', $user, 'deleted', 0)) {
$info[] = fullname($user);
}
}
if (!empty($CFG->geoipfile) and file_exists($CFG->geoipfile)) {
$gi = geoip_open($CFG->geoipfile, GEOIP_STANDARD);
$location = geoip_record_by_addr($gi, $ip);
geoip_close($gi);
if (empty($location)) {
print_error('iplookupfailed', 'error', '', $ip);
}
if (!empty($location->city)) {
$info[] = $location->city;
}
if (!empty($location->country_code)) {
$countries = get_list_of_countries();
if (isset($countries[$location->country_code])) {
// prefer our localized country names
$info[] = $countries[$location->country_code];
} else {
$info[] = $location->country_name;
}
}
$longitude = $location->longitude;
$latitude = $location->latitude;
$note[] = get_string('iplookupmaxmindnote', 'admin');
} else {
$ipdata = download_file_content('http://netgeo.caida.org/perl/netgeo.cgi?target='.$ip);
if ($ipdata === false) {
error('Can not connect to NetGeo server at http://netgeo.caida.org, please check proxy settings or better install MaxMind GeoLite City data file.');
}
$matches = null;
if (!preg_match('/LAT:\s*(-?\d+\.\d+)/s', $ipdata, $matches)) {
print_error('iplookupfailed', 'error', '', $ip);
}
$latitude = (float)$matches[1];
if (!preg_match('/LONG:\s*(-?\d+\.\d+)/s', $ipdata, $matches)) {
print_error('iplookupfailed', 'error', '', $ip);
}
$longitude = (float)$matches[1];
if (preg_match('/CITY:\s*([^<]*)/', $ipdata, $matches)) {
if (!empty($matches[1])) {
$info[] = s($matches[1]);
}
}
if (preg_match('/COUNTRY:\s*([^<]*)/', $ipdata, $matches)) {
if (!empty($matches[1])) {
$countrycode = $matches[1];
$countries = get_list_of_countries();
if (isset($countries[$countrycode])) {
// prefer our localized country names
$info[] = $countries[$countrycode];
} else {
$info[] = $countrycode;
}
}
}
$note[] = get_string('iplookupnetgeonote', 'admin');
}
if (empty($CFG->googlemapkey)) {
$info = implode(' - ', $info);
$note = implode('
', $note);
$imgwidth = 620;
$imgheight = 310;
$dotwidth = 18;
$dotheight = 30;
$dx = round((($longitude + 180) * ($imgwidth / 360)) - $imgwidth - $dotwidth/2);
$dy = round((($latitude + 90) * ($imgheight / 180)));
print_header(get_string('iplookup', 'admin').': '.$info, $info);
echo '';
echo '
';
echo '
';
echo '
'.$note.'
';
print_footer('empty');
} else {
$info = implode(' - ', $info);
$note = implode('
', $note);
$meta = '
';
print_header(get_string('iplookup', 'admin').': '.$info, $info, '', '', $meta, false, ' ', '', false, 'onload="load()" onunload="GUnload()"');
echo '';
echo ''.$note.'
';
print_footer('empty');
}
?>