From mboxrd@z Thu Jan 1 00:00:00 1970 From: Stefan Schantl To: development@lists.ipfire.org Subject: [PATCH 1/2] geoip-locations.pl: Add get_geoip_locations(). Date: Thu, 10 Jan 2019 20:40:03 +0100 Message-ID: <20190110194004.3341-1-stefan.schantl@ipfire.org> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="===============1411949309034194007==" List-Id: --===============1411949309034194007== Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable This function is used to get all available GeoIP locations. The functions returns them as array, sorted in alphabetical order. Reference #11959 Signed-off-by: Stefan Schantl --- config/cfgroot/geoip-functions.pl | 33 +++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) diff --git a/config/cfgroot/geoip-functions.pl b/config/cfgroot/geoip-functio= ns.pl index e8ce8377f..9f86a09ba 100644 --- a/config/cfgroot/geoip-functions.pl +++ b/config/cfgroot/geoip-functions.pl @@ -178,4 +178,37 @@ sub get_full_country_name($) { return $name; } =20 +# Function to get all available GeoIP locations. +sub get_geoip_locations() { + my @locations; + + # Open the location database. + open(LOCATION, "$geoip_database_dir/$location_database") or die "Could not = open $geoip_database_dir/$location_database. $!\n"; + + # Loop through the file. + while(my $line =3D ) { + # Remove newlines. + chomp($line); + + # Split the line content. + my ($geoname_id, $locale_code, $continent_code, $continent_name, $country_= iso_code, $country_name, $is_in_european_union) =3D split(/\,/, $line); + + # Check if the country_iso_code is upper case. + if($country_iso_code =3D~ /[A-Z]/) { + # Add the current ISO code. + push(@locations, $country_iso_code); + } + } + + # Close filehandle. + close(LOCATION); + + # Sort locations array in alphabetical order. + my @sorted_locations =3D sort(@locations); + + # Return the array.. + return @sorted_locations; +} + + 1; --=20 2.19.1 --===============1411949309034194007==--