mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-09 01:25:41 -04:00
Merge branch 'master' of isuckatdomains.net:perlbuut
This commit is contained in:
commit
2c296fcd82
1 changed files with 1 additions and 1 deletions
|
@ -4,7 +4,7 @@ no warnings 'void';
|
||||||
|
|
||||||
sub {
|
sub {
|
||||||
my( $said, $pm ) = @_;
|
my( $said, $pm ) = @_;
|
||||||
my $gi = Geo::IP->new(GEOIP_STANDARD);
|
my $gi = Geo::IP->open("/home/simcop2387/geoip/GeoLiteCity.dat", GEOIP_STANDARD);
|
||||||
|
|
||||||
print "Record for $said->{body}: ";
|
print "Record for $said->{body}: ";
|
||||||
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue