webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-28 11:43:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

geoip-functions.pl: Provide the available locations in upper case.

Browse Source 
Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
This commit is contained in:
Stefan Schantl
2020-06-03 19:29:55 +02:00
parent decef80c7e
commit 51b6f07ce5
1 changed files with 16 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
config/cfgroot/geoip-functions.pl
View File

@@ -170,11 +170,25 @@ sub get_geoip_locations() {
my @locations = (); my @locations = ();
# Get listed country codes from ISO 3166-1. # Get listed country codes from ISO 3166-1.
@locations = &Locale::Codes::Country::all_country_codes(); my @locations_lc = &Locale::Codes::Country::all_country_codes();
# The Codes::Country module provides the country codes only in lower case.
# So we have to loop over the array and convert them into upper case format.
foreach my $ccode (@locations_lc) {
# Convert the country code to uppercase.
my $ccode_uc = uc($ccode);
# Add the converted ccode to the locations array.
push(@locations, $ccode_uc);
}
# Add locations from not_iso_3166_locations. # Add locations from not_iso_3166_locations.
foreach my $location (keys %not_iso_3166_location) { foreach my $location (keys %not_iso_3166_location) {
push(@locations, $location); # Convert the location into uppercase.
my $location_uc = uc($location);
# Add the location to the locations array.
push(@locations, $location_uc);
} }
# Sort locations array in alphabetical order. # Sort locations array in alphabetical order.