From: Stefan Schantl <stefan.schantl@ipfire.org>
Date: Wed, 3 Jun 2020 17:29:55 +0000 (+0200)
Subject: geoip-functions.pl: Provide the available locations in upper case.
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=51b6f07ce5eca18c18e7bf4fa83e8bc5788824ca;p=people%2Fms%2Fipfire-2.x.git

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

Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
---

diff --git a/config/cfgroot/geoip-functions.pl b/config/cfgroot/geoip-functions.pl
index 42541b1583..885c841dbf 100644
--- a/config/cfgroot/geoip-functions.pl
+++ b/config/cfgroot/geoip-functions.pl
@@ -170,11 +170,25 @@ sub get_geoip_locations() {
 	my @locations = ();
 
 	# 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.
 	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.