tyler.durden
/
pandorafms
mirror of https://github.com/pandorafms/pandorafms.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

2010-03-08 Pablo de la Concepción <pablo.concepcion@artica.es> 

* lib/PandoraFMS/GIS.pm, lib/PandoraFMS/GeoIP.pm: Modified to put
    MaxMind GeoIP PurePerl GPL library into PandoraFMS package.



git-svn-id: https://svn.code.sf.net/p/pandora/code/trunk@2489 c3f86ba8-e40f-0410-aaad-9ba5e7f4b01f
This commit is contained in:
pabloconcepcion 2010-03-08 19:14:28 +00:00
parent 97f4f8d970
commit 85080010ad
3 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pandora_server/ChangeLog
View File

@ -1,3 +1,8 @@
2010-03-08 Pablo de la Concepción <pablo.concepcion@artica.es>
* lib/PandoraFMS/GIS.pm, lib/PandoraFMS/GeoIP.pm: Modified to put
MaxMind GeoIP PurePerl GPL library into PandoraFMS package.
2010-03-04 Sancho Lerena <slerena@artica.es>
* conf/pandora_server.conf: Several typos and better formating.

2
pandora_server/lib/PandoraFMS/GIS.pm
View File

@ -177,7 +177,7 @@ B<Returns>: I<undef> if there is not information available or a B<hash> with:
sub get_reverse_geoip_file($$) {
my ($pa_config,$ip_addr) = @_;
if ($geoIPPurePerlavilable == 1) {
my $geoipdb = Geo::IP::PurePerl->open( $pa_config->{'recon_reverse_geolocation_file'});
my $geoipdb = PandoraFMS::GeoIP->open( $pa_config->{'recon_reverse_geolocation_file'});
if (defined($geoipdb)) {
my $region_info = $geoipdb->get_city_record_as_hash($ip_addr);
logger($pa_config, "Region info found for IP '$ip_addr' is: country:".$region_info->{'country_name'}." region:".$region_info->{'region'}." city:".$region_info->{'city'}." longitude:".$region_info->{'longitude'}." latitude:".$region_info->{'latitude'}, 8);

2
pandora_server/lib/PandoraFMS/GeoIP.pm
View File

@ -1,4 +1,4 @@
package Geo::IP::PurePerl;
package PandoraFMS::GeoIP;
use strict;
use FileHandle;