mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 16:55:42 -04:00
23 lines
594 B
Perl
23 lines
594 B
Perl
use Geo::IP;
|
|
|
|
no warnings 'void', 'once';
|
|
|
|
sub {
|
|
my( $said, $pm ) = @_;
|
|
# $Geo::IP::PP_OPEN_TYPE_PATH = "/usr/share/GeoIP/";
|
|
# my $gi = Geo::IP->open_type(GEOIP_CITY_EDITION_REV0, GEOIP_STANDARD);
|
|
my $gi = Geo::IP->open("/usr/share/GeoIP/GeoIP.dat", GEOIP_STANDARD);
|
|
|
|
|
|
print "Record for $said->{body}: ";
|
|
|
|
if( $said->{body} =~ /[a-zA-Z]/ ) {
|
|
print $gi->country_code_by_name( $said->{body} );
|
|
}
|
|
else {
|
|
print $gi->country_code_by_addr( $said->{body} );
|
|
}
|
|
};
|
|
|
|
__DATA__
|
|
geoip 192.168.32.45 or geoip example.com; returns the country associated with the resolved IP address.
|