mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 19:15:40 -04:00
35 lines
1,014 B
Perl
35 lines
1,014 B
Perl
use GeoIP2::Database::Reader;
|
|
use Socket;
|
|
|
|
use strict;
|
|
no warnings 'void', 'once';
|
|
|
|
sub {
|
|
my( $said, $pm ) = @_;
|
|
|
|
my $ip = $said->{body};
|
|
|
|
$ip =~ s/#.*//;
|
|
$ip =~ s/^\s+|\s+$//g;
|
|
|
|
if ($ip =~ /\D/) {
|
|
my $packed = gethostbyname($ip);
|
|
$ip = inet_ntoa($packed);
|
|
}
|
|
|
|
my $reader = GeoIP2::Database::Reader->new(file => '/home/ryan/bots/perlbuut/var/GeoLite2-City.mmdb');
|
|
my $asn_reader = GeoIP2::Database::Reader->new(file => '/home/ryan/bots/perlbuut/var/GeoLite2-ASN.mmdb');
|
|
|
|
print "Record for $said->{body}: ";
|
|
my $record = $reader->city(ip => $ip);
|
|
my $asn_record = $asn_reader->asn(ip => $ip);
|
|
|
|
my $subdiv = eval {($record->subdivisions)[0]->name};
|
|
|
|
my $location = join(', ', grep {!!$_} ($record->city->name, $subdiv, $record->country->name));
|
|
|
|
print $location, " ASN: ", $asn_record->autonomous_system_organization, "(", $asn_record->autonomous_system_number, ")";
|
|
};
|
|
|
|
__DATA__
|
|
geoip 192.168.32.45 or geoip example.com; returns the country associated with the resolved IP address.
|