Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-09 11:35:40 -04:00
Code Issues Releases Wiki Activity

fixed up geoip stuff. it always breaks

Browse source
This commit is contained in:
Ryan Voots 2012-09-17 02:41:02 -04:00
parent 995399c27c
commit 4d16b98561
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
plugins/geoip.pm
View file

@ -4,8 +4,10 @@ no warnings 'void', 'once';
sub { sub {
my( $said, $pm ) = @_; my( $said, $pm ) = @_;
$Geo::IP::PP_OPEN_TYPE_PATH = "/home/simcop2387/geoip/"; # $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_type(GEOIP_CITY_EDITION_REV0, GEOIP_STANDARD);
my $gi = Geo::IP->open("/usr/share/GeoIP/GeoIP.dat", GEOIP_STANDARD);
print "Record for $said->{body}: "; print "Record for $said->{body}: ";