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 42541b1583d638f43809febab977a7759bda65b4..885c841dbf4560d752e7ce57e1837ef83b950a43 100644 (file)
--- 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.