# Copyright (C) 2005-2013 IP2Location.com
# All Rights Reserved
#
# This library is free software: you can redistribute it and/or
# modify it under the terms of the GNU Lesser General Public
# License as published by the Free Software Foundation, either
# version 3 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public
# License along with this library; If not, see <http://www.gnu.org/licenses/>.
package Geo::IP2Location;
use strict;
use vars qw(@ISA $VERSION @EXPORT);
use bigint;
$VERSION = '5.00';
require Exporter;
@ISA = qw(Exporter);
use constant UNKNOWN => "UNKNOWN IP ADDRESS";
use constant NO_IP => "MISSING IP ADDRESS";
use constant INVALID_IPV6_ADDRESS => "INVALID IPV6 ADDRESS";
use constant INVALID_IPV4_ADDRESS => "INVALID IPV4 ADDRESS";
use constant NOT_SUPPORTED => "This parameter is unavailable for selected data file. Please upgrade the data file.";
use constant MAX_IPV4_RANGE => 4294967295;
use constant MAX_IPV6_RANGE => 340282366920938463463374607431768211455;
use constant IP_COUNTRY => 1;
use constant IP_COUNTRY_ISP => 2;
use constant IP_COUNTRY_REGION_CITY => 3;
use constant IP_COUNTRY_REGION_CITY_ISP => 4;
use constant IP_COUNTRY_REGION_CITY_LATITUDE_LONGITUDE => 5;
use constant IP_COUNTRY_REGION_CITY_LATITUDE_LONGITUDE_ISP => 6;
use constant IP_COUNTRY_REGION_CITY_ISP_DOMAIN => 7;
use constant IP_COUNTRY_REGION_CITY_LATITUDE_LONGITUDE_ISP_DOMAIN => 8;
use constant IP_COUNTRY_REGION_CITY_LATITUDE_LONGITUDE_ZIPCODE => 9;
use constant IP_COUNTRY_REGION_CITY_LATITUDE_LONGITUDE_ZIPCODE_ISP_DOMAIN => 10;
use constant IP_COUNTRY_REGION_CITY_LATITUDE_LONGITUDE_ZIPCODE_TIMEZONE => 11;
use constant IP_COUNTRY_REGION_CITY_LATITUDE_LONGITUDE_ZIPCODE_TIMEZONE_ISP_DOMAIN => 12;
use constant IP_COUNTRY_REGION_CITY_LATITUDE_LONGITUDE_TIMEZONE_NETSPEED => 13;
use constant IP_COUNTRY_REGION_CITY_LATITUDE_LONGITUDE_ZIPCODE_TIMEZONE_ISP_DOMAIN_NETSPEED => 14;
use constant IP_COUNTRY_REGION_CITY_LATITUDE_LONGITUDE_ZIPCODE_TIMEZONE_AREACODE => 15;
use constant IP_COUNTRY_REGION_CITY_LATITUDE_LONGITUDE_ZIPCODE_TIMEZONE_ISP_DOMAIN_NETSPEED_AREACODE => 16;
use constant IP_COUNTRY_REGION_CITY_LATITUDE_LONGITUDE_TIMEZONE_NETSPEED_WEATHER => 17;
use constant IP_COUNTRY_REGION_CITY_LATITUDE_LONGITUDE_ZIPCODE_TIMEZONE_ISP_DOMAIN_NETSPEED_AREACODE_WEATHER => 18;
use constant IP_COUNTRY_REGION_CITY_LATITUDE_LONGITUDE_ISP_DOMAIN_MOBILE => 19;
use constant IP_COUNTRY_REGION_CITY_LATITUDE_LONGITUDE_ZIPCODE_TIMEZONE_ISP_DOMAIN_NETSPEED_AREACODE_WEATHER_MOBILE => 20;
use constant IP_COUNTRY_REGION_CITY_LATITUDE_LONGITUDE_ZIPCODE_TIMEZONE_AREACODE_ELEVATION => 21;
use constant IP_COUNTRY_REGION_CITY_LATITUDE_LONGITUDE_ZIPCODE_TIMEZONE_ISP_DOMAIN_NETSPEED_AREACODE_WEATHER_MOBILE_ELEVATION => 22;
use constant IP_COUNTRY_REGION_CITY_LATITUDE_LONGITUDE_ISP_DOMAIN_MOBILE_USAGETYPE => 23;
use constant IP_COUNTRY_REGION_CITY_LATITUDE_LONGITUDE_ZIPCODE_TIMEZONE_ISP_DOMAIN_NETSPEED_AREACODE_WEATHER_MOBILE_ELEVATION_USAGETYPE => 24;
use constant COUNTRYSHORT => 1;
use constant COUNTRYLONG => 2;
use constant REGION => 3;
use constant CITY => 4;
use constant ISP => 5;
use constant LATITUDE => 6;
use constant LONGITUDE => 7;
use constant DOMAIN => 8;
use constant ZIPCODE => 9;
use constant TIMEZONE => 10;
use constant NETSPEED => 11;
use constant IDDCODE => 12;
use constant AREACODE => 13;
use constant WEATHERSTATIONCODE => 14;
use constant WEATHERSTATIONNAME => 15;
use constant MCC => 16;
use constant MNC => 17;
use constant MOBILEBRAND => 18;
use constant ELEVATION => 19;
use constant USAGETYPE => 20;
use constant ALL => 100;
use constant IPV4 => 0;
use constant IPV6 => 1;
my @COUNTRY_POSITION = (0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2);
my @REGION_POSITION = (0, 0, 0, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3);
my @CITY_POSITION = (0, 0, 0, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4);
my @ISP_POSITION = (0, 0, 3, 0, 5, 0, 7, 5, 7, 0, 8, 0, 9, 0, 9, 0, 9, 0, 9, 7, 9, 0, 9, 7, 9);
my @LATITUDE_POSITION = (0, 0, 0, 0, 0, 5, 5, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5);
my @LONGITUDE_POSITION = (0, 0, 0, 0, 0, 6, 6, 0, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6);
my @DOMAIN_POSITION = (0, 0, 0, 0, 0, 0, 0, 6, 8, 0, 9, 0, 10,0, 10, 0, 10, 0, 10, 8, 10, 0, 10, 8, 10);
my @ZIPCODE_POSITION = (0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 7, 7, 7, 0, 7, 7, 7, 0, 7, 0, 7, 7, 7, 0, 7);
my @TIMEZONE_POSITION = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 8, 7, 8, 8, 8, 7, 8, 0, 8, 8, 8, 0, 8);
my @NETSPEED_POSITION = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 11,0, 11,8, 11, 0, 11, 0, 11, 0, 11);
my @IDDCODE_POSITION = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 12, 0, 12, 0, 12, 9, 12, 0, 12);
my @AREACODE_POSITION = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10 ,13 ,0, 13, 0, 13, 10, 13, 0, 13);
my @WEATHERSTATIONCODE_POSITION = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 14, 0, 14, 0, 14, 0, 14);
my @WEATHERSTATIONNAME_POSITION = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 15, 0, 15, 0, 15, 0, 15);
my @MCC_POSITION = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 16, 0, 16, 9, 16);
my @MNC_POSITION = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10,17, 0, 17, 10, 17);
my @MOBILEBRAND_POSITION = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 11,18, 0, 18, 11, 18);
my @ELEVATON_POSITION = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 11, 19, 0, 19);
my @USAGETYPE_POSITION = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 20);
my @IPV6_COUNTRY_POSITION = (0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2);
my @IPV6_REGION_POSITION = (0, 0, 0, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3);
my @IPV6_CITY_POSITION = (0, 0, 0, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4);
my @IPV6_ISP_POSITION = (0, 0, 3, 0, 5, 0, 7, 5, 7, 0, 8, 0, 9, 0, 9, 0, 9, 0, 9, 7, 9, 0, 9, 7, 9);
my @IPV6_LATITUDE_POSITION = (0, 0, 0, 0, 0, 5, 5, 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5);
my @IPV6_LONGITUDE_POSITION = (0, 0, 0, 0, 0, 6, 6, 0, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6);
my @IPV6_DOMAIN_POSITION = (0, 0, 0, 0, 0, 0, 0, 6, 8, 0, 9, 0, 10,0, 10, 0, 10, 0, 10, 8, 10, 0, 10, 8, 10);
my @IPV6_ZIPCODE_POSITION = (0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 7, 7, 7, 0, 7, 7, 7, 0, 7, 0, 7, 7, 7, 0, 7);
my @IPV6_TIMEZONE_POSITION = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 8, 7, 8, 8, 8, 7, 8, 0, 8, 8, 8, 0, 8);
my @IPV6_NETSPEED_POSITION = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 11,0, 11,8, 11, 0, 11, 0, 11, 0, 11);
my @IPV6_IDDCODE_POSITION = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 12, 0, 12, 0, 12, 9, 12, 0, 12);
my @IPV6_AREACODE_POSITION = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10 ,13 ,0, 13, 0, 13, 10, 13, 0, 13);
my @IPV6_WEATHERSTATIONCODE_POSITION = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 14, 0, 14, 0, 14, 0, 14);
my @IPV6_WEATHERSTATIONNAME_POSITION = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 15, 0, 15, 0, 15, 0, 15);
my @IPV6_MCC_POSITION = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 16, 0, 16, 9, 16);
my @IPV6_MNC_POSITION = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10,17, 0, 17, 10, 17);
my @IPV6_MOBILEBRAND_POSITION = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 11,18, 0, 18, 11, 18);
my @IPV6_ELEVATION_POSITION = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 11, 19, 0, 19);
my @IPV6_USAGETYPE_POSITION = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 20);
sub open {
die "Geo::IP2Location::open() requires a database path name" unless( @_ > 1 and $_[1] );
my ($class, $db_file) = @_;
my $handle;
my $obj;
CORE::open $handle, "$db_file" or die "Geo::IP2Location::open() error opening $db_file";
binmode($handle);
$obj = bless {filehandle => $handle}, $class;
$obj->initialize();
return $obj;
}
sub initialize {
my ($obj) = @_;
$obj->{"databasetype"} = $obj->read8($obj->{filehandle}, 1);
$obj->{"databasecolumn"} = $obj->read8($obj->{filehandle}, 2);
$obj->{"databaseyear"} = $obj->read8($obj->{filehandle}, 3);
$obj->{"databasemonth"} = $obj->read8($obj->{filehandle}, 4);
$obj->{"databaseday"} = $obj->read8($obj->{filehandle}, 5);
$obj->{"databasecount"} = $obj->read32($obj->{filehandle}, 6);
$obj->{"databaseaddr"} = $obj->read32($obj->{filehandle}, 10);
$obj->{"ipversion"} = $obj->read32($obj->{filehandle}, 14);
return $obj;
}
sub get_module_version {
my ($obj) = shift(@_);
return $VERSION;
}
sub get_database_version {
my ($obj) = shift(@_);
return $obj->{"databaseyear"} . "." . $obj->{"databasemonth"} . "." . $obj->{"databaseday"};
}
sub get_country_short {
my ($obj) = shift(@_);
my $ipaddr = shift(@_);
if ($obj->{"ipversion"} == IPV6) {
return $obj->get_ipv6_record($ipaddr, COUNTRYSHORT);
} else {
return $obj->get_record($ipaddr, COUNTRYSHORT);
}
}
sub get_country_long {
my ($obj) = shift(@_);
my $ipaddr = shift(@_);
if ($obj->{"ipversion"} == IPV6) {
return $obj->get_ipv6_record($ipaddr, COUNTRYLONG);
} else {
return $obj->get_record($ipaddr, COUNTRYLONG);
}
}
sub get_region {
my ($obj) = shift(@_);
my $ipaddr = shift(@_);
if ($obj->{"ipversion"} == IPV6) {
return $obj->get_ipv6_record($ipaddr, REGION);
} else {
return $obj->get_record($ipaddr, REGION);
}
}
sub get_city {
my ($obj) = shift(@_);
my $ipaddr = shift(@_);
if ($obj->{"ipversion"} == IPV6) {
return $obj->get_ipv6_record($ipaddr, CITY);
} else {
return $obj->get_record($ipaddr, CITY);
}
}
sub get_isp {
my ($obj) = shift(@_);
my $ipaddr = shift(@_);
if ($obj->{"ipversion"} == IPV6) {
return $obj->get_ipv6_record($ipaddr, ISP);
} else {
return $obj->get_record($ipaddr, ISP);
}
}
sub get_latitude {
my ($obj) = shift(@_);
my $ipaddr = shift(@_);
if ($obj->{"ipversion"} == IPV6) {
return $obj->get_ipv6_record($ipaddr, LATITUDE);
} else {
return $obj->get_record($ipaddr, LATITUDE);
}
}
sub get_zipcode {
my ($obj) = shift(@_);
my $ipaddr = shift(@_);
if ($obj->{"ipversion"} == IPV6) {
return $obj->get_ipv6_record($ipaddr, ZIPCODE);
} else {
return $obj->get_record($ipaddr, ZIPCODE);
}
}
sub get_longitude {
my ($obj) = shift(@_);
my $ipaddr = shift(@_);
if ($obj->{"ipversion"} == IPV6) {
return $obj->get_ipv6_record($ipaddr, LONGITUDE);
} else {
return $obj->get_record($ipaddr, LONGITUDE);
}
}
sub get_domain {
my ($obj) = shift(@_);
my $ipaddr = shift(@_);
if ($obj->{"ipversion"} == IPV6) {
return $obj->get_ipv6_record($ipaddr, DOMAIN);
} else {
return $obj->get_record($ipaddr, DOMAIN);
}
}
sub get_timezone {
my ($obj) = shift(@_);
my $ipaddr = shift(@_);
if ($obj->{"ipversion"} == IPV6) {
return $obj->get_ipv6_record($ipaddr, TIMEZONE);
} else {
return $obj->get_record($ipaddr, TIMEZONE);
}
}
sub get_netspeed {
my ($obj) = shift(@_);
my $ipaddr = shift(@_);
if ($obj->{"ipversion"} == IPV6) {
return $obj->get_ipv6_record($ipaddr, NETSPEED);
} else {
return $obj->get_record($ipaddr, NETSPEED);
}
}
sub get_iddcode {
my ($obj) = shift(@_);
my $ipaddr = shift(@_);
if ($obj->{"ipversion"} == IPV6) {
return $obj->get_ipv6_record($ipaddr, IDDCODE);
} else {
return $obj->get_record($ipaddr, IDDCODE);
}
}
sub get_areacode {
my ($obj) = shift(@_);
my $ipaddr = shift(@_);
if ($obj->{"ipversion"} == IPV6) {
return $obj->get_ipv6_record($ipaddr, AREACODE);
} else {
return $obj->get_record($ipaddr, AREACODE);
}
}
sub get_weatherstationcode {
my ($obj) = shift(@_);
my $ipaddr = shift(@_);
if ($obj->{"ipversion"} == IPV6) {
return $obj->get_ipv6_record($ipaddr, WEATHERSTATIONCODE);
} else {
return $obj->get_record($ipaddr, WEATHERSTATIONCODE);
}
}
sub get_weatherstationname {
my ($obj) = shift(@_);
my $ipaddr = shift(@_);
if ($obj->{"ipversion"} == IPV6) {
return $obj->get_ipv6_record($ipaddr, WEATHERSTATIONNAME);
} else {
return $obj->get_record($ipaddr, WEATHERSTATIONNAME);
}
}
sub get_mcc {
my ($obj) = shift(@_);
my $ipaddr = shift(@_);
if ($obj->{"ipversion"} == IPV6) {
return $obj->get_ipv6_record($ipaddr, MCC);
} else {
return $obj->get_record($ipaddr, MCC);
}
}
sub get_mnc {
my ($obj) = shift(@_);
my $ipaddr = shift(@_);
if ($obj->{"ipversion"} == IPV6) {
return $obj->get_ipv6_record($ipaddr, MNC);
} else {
return $obj->get_record($ipaddr, MNC);
}
}
sub get_mobilebrand {
my ($obj) = shift(@_);
my $ipaddr = shift(@_);
if ($obj->{"ipversion"} == IPV6) {
return $obj->get_ipv6_record($ipaddr, MOBILEBRAND);
} else {
return $obj->get_record($ipaddr, MOBILEBRAND);
}
}
sub get_elevation {
my ($obj) = shift(@_);
my $ipaddr = shift(@_);
if ($obj->{"ipversion"} == IPV6) {
return $obj->get_ipv6_record($ipaddr, ELEVATION);
} else {
return $obj->get_record($ipaddr, ELEVATION);
}
}
sub get_usagetype {
my ($obj) = shift(@_);
my $ipaddr = shift(@_);
if ($obj->{"ipversion"} == IPV6) {
return $obj->get_ipv6_record($ipaddr, USAGETYPE);
} else {
return $obj->get_record($ipaddr, USAGETYPE);
}
}
sub get_all {
my ($obj) = shift(@_);
my $ipaddr = shift(@_);
if ($obj->{"ipversion"} == IPV6) {
return $obj->get_ipv6_record($ipaddr, ALL);
} else {
return $obj->get_record($ipaddr, ALL);
}
}
sub get_ipv6_record {
my ($obj) = shift(@_);
my $ipaddr = shift(@_);
my $mode = shift(@_);
my $dbtype= $obj->{"databasetype"};
if ($ipaddr eq "") {
if ($mode == ALL) {
return (NO_IP, NO_IP, NO_IP, NO_IP, NO_IP, NO_IP, NO_IP, NO_IP, NO_IP, NO_IP, NO_IP, NO_IP, NO_IP, NO_IP, NO_IP, NO_IP, NO_IP, NO_IP);
} else {
return NO_IP;
}
}
if (!$obj->ip_is_ipv6($ipaddr)) {
if ($mode == ALL) {
return (INVALID_IPV6_ADDRESS, INVALID_IPV6_ADDRESS, INVALID_IPV6_ADDRESS, INVALID_IPV6_ADDRESS, INVALID_IPV6_ADDRESS, INVALID_IPV6_ADDRESS, INVALID_IPV6_ADDRESS, INVALID_IPV6_ADDRESS, INVALID_IPV6_ADDRESS, INVALID_IPV6_ADDRESS, INVALID_IPV6_ADDRESS, INVALID_IPV6_ADDRESS, INVALID_IPV6_ADDRESS, INVALID_IPV6_ADDRESS, INVALID_IPV6_ADDRESS, INVALID_IPV6_ADDRESS, INVALID_IPV6_ADDRESS, INVALID_IPV6_ADDRESS);
} else {
return INVALID_IPV6_ADDRESS;
}
}
if (($mode == COUNTRYSHORT) && ($IPV6_COUNTRY_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == COUNTRYLONG) && ($IPV6_COUNTRY_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == REGION) && ($IPV6_REGION_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == CITY) && ($IPV6_CITY_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == ISP) && ($IPV6_ISP_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == LATITUDE) && ($IPV6_LATITUDE_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == LONGITUDE) && ($IPV6_LONGITUDE_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == DOMAIN) && ($IPV6_DOMAIN_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == ZIPCODE) && ($IPV6_ZIPCODE_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == TIMEZONE) && ($IPV6_TIMEZONE_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == NETSPEED) && ($IPV6_NETSPEED_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == IDDCODE) && ($IPV6_IDDCODE_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == AREACODE) && ($IPV6_AREACODE_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == WEATHERSTATIONCODE) && ($IPV6_WEATHERSTATIONCODE_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == WEATHERSTATIONNAME) && ($IPV6_WEATHERSTATIONNAME_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == MCC) && ($IPV6_MCC_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == MNC) && ($IPV6_MNC_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == MOBILEBRAND) && ($IPV6_MOBILEBRAND_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == ELEVATION) && ($IPV6_ELEVATION_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == USAGETYPE) && ($IPV6_USAGETYPE_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
$ipaddr = $obj->expand_ipv6_address($ipaddr);
my $realipno = $obj->hex2int($ipaddr);
my $handle = $obj->{"filehandle"};
my $baseaddr = $obj->{"databaseaddr"};
my $dbcount = $obj->{"databasecount"};
my $dbcolumn = $obj->{"databasecolumn"};
my $low = 0;
my $high = $dbcount;
my $mid = 0;
my $ipfrom = 0;
my $ipto = 0;
my $ipno = 0;
if ($realipno == MAX_IPV6_RANGE) {
$ipno = $realipno - 1;
} else {
$ipno = $realipno;
}
while ($low <= $high) {
$mid = int(($low + $high)/2);
$ipfrom = $obj->read128($handle, $baseaddr + $mid * ($dbcolumn * 4 + 12));
$ipto = $obj->read128($handle, $baseaddr + ($mid + 1) * ($dbcolumn * 4 + 12));
if (($ipno >= $ipfrom) and ($ipno < $ipto)) {
if ($mode == COUNTRYSHORT) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + $mid * ($dbcolumn * 4 + 12) + 12 + 4 * ($IPV6_COUNTRY_POSITION[$dbtype]-1)));
}
if ($mode == COUNTRYLONG) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + $mid * ($dbcolumn * 4 + 12) + 12 + 4 * ($IPV6_COUNTRY_POSITION[$dbtype]-1))+3);
}
if ($mode == REGION) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_REGION_POSITION[$dbtype]-1)));
}
if ($mode == CITY) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_CITY_POSITION[$dbtype]-1)));
}
if ($mode == ISP) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_ISP_POSITION[$dbtype]-1)));
}
if ($mode == LATITUDE) {
return $obj->readFloat($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_LATITUDE_POSITION[$dbtype]-1));
}
if ($mode == LONGITUDE) {
return $obj->readFloat($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_LONGITUDE_POSITION[$dbtype]-1));
}
if ($mode == DOMAIN) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_DOMAIN_POSITION[$dbtype]-1)));
}
if ($mode == ZIPCODE) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_ZIPCODE_POSITION[$dbtype]-1)));
}
if ($mode == TIMEZONE) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_TIMEZONE_POSITION[$dbtype]-1)));
}
if ($mode == NETSPEED) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_NETSPEED_POSITION[$dbtype]-1)));
}
if ($mode == IDDCODE) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_IDDCODE_POSITION[$dbtype]-1)));
}
if ($mode == AREACODE) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_AREACODE_POSITION[$dbtype]-1)));
}
if ($mode == WEATHERSTATIONCODE) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_WEATHERSTATIONCODE_POSITION[$dbtype]-1)));
}
if ($mode == WEATHERSTATIONNAME) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_WEATHERSTATIONNAME_POSITION[$dbtype]-1)));
}
if ($mode == MCC) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_MCC_POSITION[$dbtype]-1)));
}
if ($mode == MNC) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_MNC_POSITION[$dbtype]-1)));
}
if ($mode == MOBILEBRAND) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_MOBILEBRAND_POSITION[$dbtype]-1)));
}
if ($mode == ELEVATION) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_ELEVATION_POSITION[$dbtype]-1)));
}
if ($mode == USAGETYPE) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_USAGETYPE_POSITION[$dbtype]-1)));
}
if ($mode == ALL) {
my $country_short = NOT_SUPPORTED;
my $country_long = NOT_SUPPORTED;
my $region = NOT_SUPPORTED;
my $city = NOT_SUPPORTED;
my $isp = NOT_SUPPORTED;
my $latitude = NOT_SUPPORTED;
my $longitude = NOT_SUPPORTED;
my $domain = NOT_SUPPORTED;
my $zipcode = NOT_SUPPORTED;
my $timezone = NOT_SUPPORTED;
my $netspeed = NOT_SUPPORTED;
my $iddcode = NOT_SUPPORTED;
my $areacode = NOT_SUPPORTED;
my $weatherstationcode = NOT_SUPPORTED;
my $weatherstationname = NOT_SUPPORTED;
my $mcc = NOT_SUPPORTED;
my $mnc = NOT_SUPPORTED;
my $mobilebrand = NOT_SUPPORTED;
my $elevation = NOT_SUPPORTED;
my $usagetype = NOT_SUPPORTED;
if ($IPV6_COUNTRY_POSITION[$dbtype] != 0) {
$country_short = $obj->readStr($handle, $obj->read32($handle, $baseaddr + $mid * ($dbcolumn * 4 + 12) + 12 + 4 * ($IPV6_COUNTRY_POSITION[$dbtype]-1)));
$country_long = $obj->readStr($handle, $obj->read32($handle, $baseaddr + $mid * ($dbcolumn * 4 + 12) + 12 + 4 * ($IPV6_COUNTRY_POSITION[$dbtype]-1))+3);
}
if ($IPV6_REGION_POSITION[$dbtype] != 0) {
$region = $obj->readStr($handle, $obj->read32($handle, $baseaddr + $mid * ($dbcolumn * 4 + 12) + 12 + 4 * ($IPV6_REGION_POSITION[$dbtype]-1)));
}
if ($IPV6_CITY_POSITION[$dbtype] != 0) {
$city = $obj->readStr($handle, $obj->read32($handle, $baseaddr + $mid * ($dbcolumn * 4 + 12) + 12 + 4 * ($IPV6_CITY_POSITION[$dbtype]-1)));
}
if ($IPV6_ISP_POSITION[$dbtype] != 0) {
$isp = $obj->readStr($handle, $obj->read32($handle, $baseaddr + $mid * ($dbcolumn * 4 + 12) + 12 + 4 * ($IPV6_ISP_POSITION[$dbtype]-1)));
}
if ($IPV6_LATITUDE_POSITION[$dbtype] != 0) {
$latitude = $obj->readFloat($handle, $baseaddr + $mid * ($dbcolumn * 4 + 12) + 12 + 4 * ($IPV6_LATITUDE_POSITION[$dbtype]-1));
}
if ($IPV6_LONGITUDE_POSITION[$dbtype] != 0) {
$longitude = $obj->readFloat($handle, $baseaddr + $mid * ($dbcolumn * 4 + 12) + 12 + 4 * ($IPV6_LONGITUDE_POSITION[$dbtype]-1));
}
if ($IPV6_DOMAIN_POSITION[$dbtype] != 0) {
$domain = $obj->readStr($handle, $obj->read32($handle, $baseaddr + $mid * ($dbcolumn * 4 + 12) + 12 + 4 * ($IPV6_DOMAIN_POSITION[$dbtype]-1)));
}
if ($IPV6_ZIPCODE_POSITION[$dbtype] != 0) {
$zipcode = $obj->readStr($handle, $obj->read32($handle, $baseaddr + $mid * ($dbcolumn * 4 + 12) + 12 + 4 * ($IPV6_ZIPCODE_POSITION[$dbtype]-1)));
}
if ($IPV6_TIMEZONE_POSITION[$dbtype] != 0) {
$timezone = $obj->readStr($handle, $obj->read32($handle, $baseaddr + $mid * ($dbcolumn * 4 + 12) + 12 + 4 * ($IPV6_TIMEZONE_POSITION[$dbtype]-1)));
}
if ($IPV6_NETSPEED_POSITION[$dbtype] != 0) {
$netspeed = $obj->readStr($handle, $obj->read32($handle, $baseaddr + $mid * ($dbcolumn * 4 + 12) + 12 + 4 * ($IPV6_NETSPEED_POSITION[$dbtype]-1)));
}
if ($IPV6_IDDCODE_POSITION[$dbtype] != 0) {
$iddcode = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_IDDCODE_POSITION[$dbtype]-1)));
}
if ($IPV6_AREACODE_POSITION[$dbtype] != 0) {
$areacode = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_AREACODE_POSITION[$dbtype]-1)));
}
if ($IPV6_WEATHERSTATIONCODE_POSITION[$dbtype] != 0) {
$weatherstationcode = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_WEATHERSTATIONCODE_POSITION[$dbtype]-1)));
}
if ($IPV6_WEATHERSTATIONNAME_POSITION[$dbtype] != 0) {
$weatherstationname = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_WEATHERSTATIONNAME_POSITION[$dbtype]-1)));
}
if ($IPV6_MCC_POSITION[$dbtype] != 0) {
$mcc = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_MCC_POSITION[$dbtype]-1)));
}
if ($IPV6_MNC_POSITION[$dbtype] != 0) {
$mnc = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_MNC_POSITION[$dbtype]-1)));
}
if ($IPV6_MOBILEBRAND_POSITION[$dbtype] != 0) {
$mobilebrand = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_MOBILEBRAND_POSITION[$dbtype]-1)));
}
if ($IPV6_ELEVATION_POSITION[$dbtype] != 0) {
$elevation = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_ELEVATION_POSITION[$dbtype]-1)));
}
if ($IPV6_USAGETYPE_POSITION[$dbtype] != 0) {
$usagetype = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 12 + 4 * ($IPV6_USAGETYPE_POSITION[$dbtype]-1)));
}
return ($country_short, $country_long, $region, $city, $latitude, $longitude, $zipcode, $timezone, $isp, $domain, $netspeed, $iddcode, $areacode, $weatherstationcode, $weatherstationname, $mcc, $mnc, $mobilebrand, $elevation, $usagetype);
}
} else {
if ($ipno < $ipfrom) {
$high = $mid - 1;
} else {
$low = $mid + 1;
}
}
}
return UNKNOWN;
}
sub get_record {
my ($obj) = shift(@_);
my $ipaddr = shift(@_);
my $mode = shift(@_);
my $dbtype= $obj->{"databasetype"};
if ($ipaddr eq "") {
if ($mode == ALL) {
return (NO_IP, NO_IP, NO_IP, NO_IP, NO_IP, NO_IP, NO_IP, NO_IP, NO_IP, NO_IP, NO_IP, NO_IP, NO_IP, NO_IP, NO_IP, NO_IP, NO_IP, NO_IP);
} else {
return NO_IP;
}
}
if (!$obj->ip_is_ipv4($ipaddr)) {
if ($mode == ALL) {
return (INVALID_IPV4_ADDRESS, INVALID_IPV4_ADDRESS, INVALID_IPV4_ADDRESS, INVALID_IPV4_ADDRESS, INVALID_IPV4_ADDRESS, INVALID_IPV4_ADDRESS, INVALID_IPV4_ADDRESS, INVALID_IPV4_ADDRESS, INVALID_IPV4_ADDRESS, INVALID_IPV4_ADDRESS, INVALID_IPV4_ADDRESS, INVALID_IPV4_ADDRESS, INVALID_IPV4_ADDRESS, INVALID_IPV4_ADDRESS, INVALID_IPV4_ADDRESS, INVALID_IPV4_ADDRESS, INVALID_IPV4_ADDRESS, INVALID_IPV4_ADDRESS);
} else {
return INVALID_IPV4_ADDRESS;
}
}
if (($mode == COUNTRYSHORT) && ($COUNTRY_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == COUNTRYLONG) && ($COUNTRY_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == REGION) && ($REGION_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == CITY) && ($CITY_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == ISP) && ($ISP_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == LATITUDE) && ($LATITUDE_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == LONGITUDE) && ($LONGITUDE_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == DOMAIN) && ($DOMAIN_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == ZIPCODE) && ($ZIPCODE_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == TIMEZONE) && ($TIMEZONE_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == NETSPEED) && ($NETSPEED_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == IDDCODE) && ($IDDCODE_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == AREACODE) && ($AREACODE_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == WEATHERSTATIONCODE) && ($WEATHERSTATIONCODE_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == WEATHERSTATIONNAME) && ($WEATHERSTATIONNAME_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == MCC) && ($MCC_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == MNC) && ($MNC_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == MOBILEBRAND) && ($MOBILEBRAND_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == ELEVATION) && ($ELEVATION_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
if (($mode == USAGETYPE) && ($USAGETYPE_POSITION[$dbtype] == 0)) {
return NOT_SUPPORTED;
}
$ipaddr = $obj->name2ip($ipaddr);
my $realipno = $obj->ip2no($ipaddr);
my $handle = $obj->{"filehandle"};
my $baseaddr = $obj->{"databaseaddr"};
my $dbcount = $obj->{"databasecount"};
my $dbcolumn = $obj->{"databasecolumn"};
my $low = 0;
my $high = $dbcount;
my $mid = 0;
my $ipfrom = 0;
my $ipto = 0;
my $ipno = 0;
if ($realipno == MAX_IPV4_RANGE) {
$ipno = $realipno - 1;
} else {
$ipno = $realipno;
}
while ($low <= $high) {
$mid = int(($low + $high)/2);
$ipfrom = $obj->read32($handle, $baseaddr + $mid * $dbcolumn * 4);
$ipto = $obj->read32($handle, $baseaddr + ($mid + 1) * $dbcolumn * 4);
if (($ipno >= $ipfrom) and ($ipno < $ipto)) {
if ($mode == COUNTRYSHORT) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($COUNTRY_POSITION[$dbtype]-1)));
}
if ($mode == COUNTRYLONG) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($COUNTRY_POSITION[$dbtype]-1))+3);
}
if ($mode == REGION) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($REGION_POSITION[$dbtype]-1)));
}
if ($mode == CITY) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($CITY_POSITION[$dbtype]-1)));
}
if ($mode == ISP) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($ISP_POSITION[$dbtype]-1)));
}
if ($mode == LATITUDE) {
return $obj->readFloat($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($LATITUDE_POSITION[$dbtype]-1));
}
if ($mode == LONGITUDE) {
return $obj->readFloat($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($LONGITUDE_POSITION[$dbtype]-1));
}
if ($mode == DOMAIN) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($DOMAIN_POSITION[$dbtype]-1)));
}
if ($mode == ZIPCODE) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($ZIPCODE_POSITION[$dbtype]-1)));
}
if ($mode == TIMEZONE) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($TIMEZONE_POSITION[$dbtype]-1)));
}
if ($mode == NETSPEED) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($NETSPEED_POSITION[$dbtype]-1)));
}
if ($mode == IDDCODE) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($IDDCODE_POSITION[$dbtype]-1)));
}
if ($mode == AREACODE) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($AREACODE_POSITION[$dbtype]-1)));
}
if ($mode == WEATHERSTATIONCODE) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($WEATHERSTATIONCODE_POSITION[$dbtype]-1)));
}
if ($mode == WEATHERSTATIONNAME) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($WEATHERSTATIONNAME_POSITION[$dbtype]-1)));
}
if ($mode == MCC) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($MCC_POSITION[$dbtype]-1)));
}
if ($mode == MNC) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($MNC_POSITION[$dbtype]-1)));
}
if ($mode == MOBILEBRAND) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($MOBILEBRAND_POSITION[$dbtype]-1)));
}
if ($mode == ELEVATION) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($ELEVATION_POSITION[$dbtype]-1)));
}
if ($mode == USAGETYPE) {
return $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($USAGETYPE_POSITION[$dbtype]-1)));
}
if ($mode == ALL) {
my $country_short = NOT_SUPPORTED;
my $country_long = NOT_SUPPORTED;
my $region = NOT_SUPPORTED;
my $city = NOT_SUPPORTED;
my $isp = NOT_SUPPORTED;
my $latitude = NOT_SUPPORTED;
my $longitude = NOT_SUPPORTED;
my $domain = NOT_SUPPORTED;
my $zipcode = NOT_SUPPORTED;
my $timezone = NOT_SUPPORTED;
my $netspeed = NOT_SUPPORTED;
my $iddcode = NOT_SUPPORTED;
my $areacode = NOT_SUPPORTED;
my $weatherstationcode = NOT_SUPPORTED;
my $weatherstationname = NOT_SUPPORTED;
my $mcc = NOT_SUPPORTED;
my $mnc = NOT_SUPPORTED;
my $mobilebrand = NOT_SUPPORTED;
my $elevation = NOT_SUPPORTED;
my $usagetype = NOT_SUPPORTED;
if ($COUNTRY_POSITION[$dbtype] != 0) {
$country_short = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($COUNTRY_POSITION[$dbtype]-1)));
$country_long = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($COUNTRY_POSITION[$dbtype]-1))+3);
}
if ($REGION_POSITION[$dbtype] != 0) {
$region = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($REGION_POSITION[$dbtype]-1)));
}
if ($CITY_POSITION[$dbtype] != 0) {
$city = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($CITY_POSITION[$dbtype]-1)));
}
if ($ISP_POSITION[$dbtype] != 0) {
$isp = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($ISP_POSITION[$dbtype]-1)));
}
if ($LATITUDE_POSITION[$dbtype] != 0) {
$latitude = $obj->readFloat($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($LATITUDE_POSITION[$dbtype]-1));
}
if ($LONGITUDE_POSITION[$dbtype] != 0) {
$longitude = $obj->readFloat($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($LONGITUDE_POSITION[$dbtype]-1));
}
if ($DOMAIN_POSITION[$dbtype] != 0) {
$domain = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($DOMAIN_POSITION[$dbtype]-1)));
}
if ($ZIPCODE_POSITION[$dbtype] != 0) {
$zipcode = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($ZIPCODE_POSITION[$dbtype]-1)));
}
if ($TIMEZONE_POSITION[$dbtype] != 0) {
$timezone = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($TIMEZONE_POSITION[$dbtype]-1)));
}
if ($NETSPEED_POSITION[$dbtype] != 0) {
$netspeed = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($NETSPEED_POSITION[$dbtype]-1)));
}
if ($IDDCODE_POSITION[$dbtype] != 0) {
$iddcode = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($IDDCODE_POSITION[$dbtype]-1)));
}
if ($AREACODE_POSITION[$dbtype] != 0) {
$areacode = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($AREACODE_POSITION[$dbtype]-1)));
}
if ($WEATHERSTATIONCODE_POSITION[$dbtype] != 0) {
$weatherstationcode = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($WEATHERSTATIONCODE_POSITION[$dbtype]-1)));
}
if ($WEATHERSTATIONNAME_POSITION[$dbtype] != 0) {
$weatherstationname = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($WEATHERSTATIONNAME_POSITION[$dbtype]-1)));
}
if ($MCC_POSITION[$dbtype] != 0) {
$mcc = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($MCC_POSITION[$dbtype]-1)));
}
if ($MNC_POSITION[$dbtype] != 0) {
$mnc = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($MNC_POSITION[$dbtype]-1)));
}
if ($MOBILEBRAND_POSITION[$dbtype] != 0) {
$mobilebrand = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($MOBILEBRAND_POSITION[$dbtype]-1)));
}
if ($ELEVATION_POSITION[$dbtype] != 0) {
$elevation = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($ELEVATION_POSITION[$dbtype]-1)));
}
if ($USAGETYPE_POSITION[$dbtype] != 0) {
$usagetype = $obj->readStr($handle, $obj->read32($handle, $baseaddr + ($mid * $dbcolumn * 4) + 4 * ($USAGETYPE_POSITION[$dbtype]-1)));
}
return ($country_short, $country_long, $region, $city, $latitude, $longitude, $zipcode, $timezone, $isp, $domain, $netspeed, $iddcode, $areacode, $weatherstationcode, $weatherstationname, $mcc, $mnc, $mobilebrand, $elevation, $usagetype);
}
} else {
if ($ipno < $ipfrom) {
$high = $mid - 1;
} else {
$low = $mid + 1;
}
}
}
return UNKNOWN;
}
sub read128
{
my ($obj, $handle, $position) = @_;
my $data = "";
seek($handle, $position-1, 0);
read($handle, $data, 16);
return &bytes2int($data);
}
sub read32
{
my ($obj, $handle, $position) = @_;
my $data = "";
seek($handle, $position-1, 0);
read($handle, $data, 4);
return unpack("V", $data);
}
sub read8
{
my ($obj, $handle, $position) = @_;
my $data = "";
seek($handle, $position-1, 0);
read($handle, $data, 1);
return unpack("C", $data);
}
sub readStr
{
my ($obj, $handle, $position) = @_;
my $data = "";
my $string = "";
seek($handle, $position, 0);
read($handle, $data, 1);
read($handle, $string, unpack("C", $data));
return $string;
}
sub readFloat
{
my ($obj, $handle, $position) = @_;
my $data = "";
seek($handle, $position-1, 0);
read($handle, $data, 4);
my $is_little_endian = unpack("h*", pack("s", 1));
if ($is_little_endian =~ m/^1/) {
# "LITTLE ENDIAN - x86\n";
return unpack("f", $data);
} else {
# "BIG ENDIAN - MAC\n";
return unpack("f", reverse($data));
}
}
sub bytes2int {
my $binip = shift(@_);
my @array = split(//, $binip);
return 0 if ($#array != 15);
my $ip96_127 = unpack("V", $array[0] . $array[1] . $array[2] . $array[3]);
my $ip64_95 = unpack("V", $array[4] . $array[5] . $array[6] . $array[7]);
my $ip32_63 = unpack("V", $array[8] . $array[9] . $array[10] . $array[11]);
my $ip1_31 = unpack("V", $array[12] . $array[13] . $array[14] . $array[15]);
return ($ip1_31 * 4294967296 * 4294967296 * 4294967296) + ($ip32_63 * 4294967296 * 4294967296) + ($ip64_95 * 4294967296) + $ip96_127;
}
sub expand_ipv6_address
{
my ($obj) = shift(@_);
my ($ip) = shift(@_);
$ip =~ s/::/:Z:/;
my @ip = split /:/,$ip;
my $num = scalar (@ip);
foreach (0..(scalar(@ip)-1))
{
$ip[$_] = ('0'x(4-length ($ip[$_]))).$ip[$_];
};
foreach (0..(scalar(@ip)-1))
{
next unless ($ip[$_] eq '000Z');
my @empty = map { $_ = '0'x4 } (0..7);
$ip[$_] = join ':',@empty[0..8-$num];
last;
};
return (uc(join ':', @ip));
};
sub ip_is_ipv4
{
my ($obj) = shift(@_);
my ($ip) = shift(@_);
unless ($ip =~ m/^[\d\.]+$/)
{
return 0;
};
if ($ip =~ m/^\./)
{
return 0;
};
if ($ip =~ m/\.$/)
{
return 0;
};
#if ($ip =~ m/^(\d+)$/ and $1 < 256) { return 1 };
my $n = ($ip =~ tr/\./\./);
unless ($n >= 0 and $n < 4)
{
return 0;
};
if ($ip =~ m/\.\./)
{
return 0;
};
foreach (split /\./,$ip)
{
unless ($_ >= 0 and $_ < 256)
{
return 0;
};
};
return 1;
}
sub ip_is_ipv6
{
my ($obj) = shift(@_);
my ($ip) = shift(@_);
my $n = ($ip =~ tr/:/:/);
return (0) unless ($n > 0 and $n < 8);
my $k;
foreach (split /:/,$ip)
{
$k++;
next if ($_ eq '');
next if (/^[a-f\d]{1,4}$/i);
if ($k == $n+1)
{
next if ($obj->ip_is_ipv4($_));
};
return 0;
};
if ($ip =~ m/^:[^:]/)
{
return 0;
};
if ($ip =~ m/[^:]:$/)
{
return 0;
};
my $m = ($ip =~ s/:(?=:)//g);
if ($m eq "") {
$m = 0;
}
if ($m > 1)
{
return 0;
};
return 1;
};
sub hex2int {
my ($obj) = shift(@_);
my $hexip = shift(@_);
$hexip =~ s/://g;
unless (length ($hexip) == 32)
{
return 0;
};
my $binip = unpack( 'B128', pack( 'H32', $hexip ));
my ($n, $dec) = (Math::BigInt->new(1), Math::BigInt->new(0));
foreach (reverse (split '', $binip))
{
$_ and $dec += $n;
$n*=2;
};
$dec=~s/^\+//;
return $dec;
}
sub ip2no {
my ($obj, $ip) = @_;
my @block = split(/\./, $ip);
my $no = 0;
$no = $block[3];
$no = $no + $block[2] * 256;
$no = $no + $block[1] * 256 * 256;
$no = $no + $block[0] * 256 * 256 * 256;
return $no;
}
sub name2ip {
my ($obj, $host) = @_;
my $ip_address = "";
if ($host =~ m!^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$!) {
$ip_address = $host;
} else {
$ip_address = join('.',unpack('C4',(gethostbyname($host))[4]));
}
return $ip_address;
}
1;
__END__
=head1 NAME
Geo::IP2Location - Fast lookup of country, region, city, latitude, longitude, ZIP code, time zone, ISP, domain name, connection type, IDD code, area code, weather station code and station, MCC, MNC, mobile carrier brand name, elevation, and usage type from IP address by using IP2Location database. Supports IPv4 and IPv6.
=head1 SYNOPSIS
use Geo::IP2Location;
my $obj = Geo::IP2Location->open("IP-COUNTRY-REGION-CITY-LATITUDE-LONGITUDE-ZIPCODE-TIMEZONE-ISP-DOMAIN-NETSPEED-AREACODE-WEATHER-MOBILE-ELEVATION-USAGETYPE.BIN");
my $dbversion = $obj->get_database_version();
my $moduleversion = $obj->get_module_version();
my $countryshort = $obj->get_country_short("20.11.187.239");
my $countrylong = $obj->get_country_long("20.11.187.239");
my $region = $obj->get_region("20.11.187.239");
my $city = $obj->get_city("20.11.187.239");
my $latitude = $obj->get_latitude("20.11.187.239");
my $longitude = $obj->get_longitude("20.11.187.239");
my $isp = $obj->get_isp("20.11.187.239");
my $domain = $obj->get_domain("20.11.187.239");
my $zipcode = $obj->get_zipcode("20.11.187.239");
my $timezone = $obj->get_timezone("20.11.187.239");
my $netspeed = $obj->get_netspeed("20.11.187.239");
my $iddcode = $obj->get_iddcode("20.11.187.239");
my $areacode = $obj->get_areacode("20.11.187.239");
my $weatherstationcode = $obj->get_weatherstationcode("20.11.187.239");
my $weatherstationname = $obj->get_weatherstationname("20.11.187.239");
my $mcc = $obj->get_mcc("20.11.187.239");
my $mnc = $obj->get_mnc("20.11.187.239");
my $brand = $obj->get_mobilebrand("20.11.187.239");
my $elevation = $obj->get_elevation("20.11.187.239");
my $usagetype = $obj->get_usagetype("20.11.187.239");
($cos, $col, $reg, $cit, $lat, $lon, $zip, $tmz, $isp, $dom, $ns, $idd, $area, $wcode, $wname, $mcc, $mnc, $brand, $elevation, $usagetype) = $obj->get_all("20.11.187.239");
($cos, $col, $reg, $cit, $lat, $lon, $zip, $tmz, $isp, $dom, $ns, $idd, $area, $wcode, $wname, $mcc, $mnc, $brand, $elevation, $usagetype) = $obj->get_all("2001:1000:0000:0000:0000:0000:0000:0000");
=head1 DESCRIPTION
This Perl modules provide fast lookup of country, region, city, latitude, longitude, ZIP code, time zone, ISP, domain name, connection type, IDD code, area code, weather station code and station, MCC, MNC, mobile carrier brand name, elevation, and usage type from IP address by using IP2Location database. This module uses a file based database available at IP2Location.com. This database simply contains IP blocks as keys, and other information such as country, region, city, latitude, longitude, ISP and domain name as values. It supports both IP address in IPv4 and IPv6.
This module can be used in many types of projects such as:
1) select the geographically closest mirror
2) analyze your web server logs to determine the countries of your visitors
3) credit card fraud detection
4) software export controls
5) display native language and currency
6) prevent password sharing and abuse of service
7) geotargeting in advertisement
=head1 IP2LOCATION DATABASES
The complete IPv4 and IPv6 database are available at
http://www.ip2location.com
The database will be updated in monthly basis for greater accuracy. Free sample database is available at
http://www.ip2location.com/developers.htm
=head1 CLASS METHODS
=over 4
=item $obj = Geo::IP2Location->open($database_file);
Constructs a new Geo::IP2Location object with the database located at $database_file.
=back
=head1 OBJECT METHODS
=over 4
=item $countryshort = $obj->get_country_short( $ip );
Returns the ISO 3166 country code for an IP address or domain name.
=item $countrylong = $obj->get_country_long( $ip );
Returns the full country name for an IP address or domain name.
=item $region = $obj->get_region( $ip );
Returns the region for an IP address or domain name.
=item $city = $obj->get_city( $ip );
Returns the city for an IP address or domain name.
=item $latitude = $obj->get_latitude( $ip );
Returns the latitude for an IP address or domain name.
=item $longitude = $obj->get_longitude( $ip );
Returns the longitude for an IP address or domain name.
=item $isp = $obj->get_isp( $ip );
Returns the ISP name for an IP address or domain name.
=item $domain = $obj->get_domain( $ip );
Returns the domain name for an IP address or domain name.
=item $zip = $obj->get_zipcode( $ip );
Returns the ZIP code for an IP address or domain name.
=item $tz = $obj->get_timezone( $ip );
Returns the time zone for an IP address or domain name.
=item $ns = $obj->get_netspeed( $ip );
Returns the connection type (DIAL, DSL or COMP) for an IP address or domain name.
=item $idd = $obj->get_iddcode( $ip );
Returns the country IDD calling code for an IP address or domain name.
=item $area = $obj->get_areacode( $ip );
Returns the phone area code code for an IP address or domain name.
=item $wcode = $obj->get_weatherstationcode( $ip );
Returns the nearest weather station code for an IP address or domain name.
=item $wname = $obj->get_weatherstationname( $ip );
Returns the nearest weather station name for an IP address or domain name.
=item $mcc = $obj->get_mcc( $ip );
Returns the mobile carrier code (MCC) for an IP address or domain name.
=item $mnc = $obj->get_mnc( $ip );
Returns the mobile network code (MNC) for an IP address or domain name.
=item $brand = $obj->get_mobilebrand( $ip );
Returns the mobile carrier brand for an IP address or domain name.
=item $elevation = $obj->get_elevation( $ip );
Returns the elevation for an IP address or domain name.
=item $usagetype = $obj->get_usagetype( $ip );
Returns the usage type for an IP address or domain name.
=item ($cos, $col, $reg, $cit, $lat, $lon, $zip, $tmz, $isp, $dom, $ns, $idd, $area, $wcode, $wname, $mcc, $mnc, $brand, $elevation, $usagetype) = $obj->get_all( $ip );
Returns an array of country, region, city, latitude, longitude, ZIP code, time zone, ISP, domain name, connection type, IDD code, area code, weather station code and station, MCC, MNC, mobile carrier brand name, elevation, and usage type for an IP address.
=item $dbversion = $obj->get_database_version();
Returns the version number of database.
=item $moduleversion = $obj->get_module_version();
Returns the version number of Perl module.
=head1 SEE ALSO
http://www.ip2location.com
=head1 VERSION
5.00
=head1 AUTHOR
Copyright (c) 2013 IP2Location.com
All rights reserved. This package is free software; It is licensed under the GPL.
=cut