generate_mirror_map: output region in uppercase

[grml-mirrors.git] / bin / generate_mirror_map

diff --git a/bin/generate_mirror_map b/bin/generate_mirror_map
index d41107c..ed5b90b 100755 (executable)
--- a/bin/generate_mirror_map
+++ b/bin/generate_mirror_map
@@ -29,8 +29,8 @@ my @regions = keys(%$regions_hash);
 
 foreach my $region (@regions) {
        if (scalar(@{$mirrors->{$region}}) == 0) {
-               printf ("%s %s\n", lc($region), join('|', @{$mirrors->{'DE'}}));
+               printf ("%s %s\n", uc($region), join('|', @{$mirrors->{'DE'}}));
        } else {
-               printf ("%s %s\n", lc($region), join('|', @{$mirrors->{$region}}));
+               printf ("%s %s\n", uc($region), join('|', @{$mirrors->{$region}}));
        }
 }