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 a1c34ad..ed5b90b 100755 (executable)
--- a/bin/generate_mirror_map
+++ b/bin/generate_mirror_map
@@ -2,7 +2,7 @@
 
 use lib '/usr/share/perl5/';
 
-use Mirmon::Mirmon ;
+use Mirmon ;
 
 $m = Mirmon -> new ( '/etc/mirmon.conf' ); 
 
@@ -17,9 +17,9 @@ foreach my $url ( keys %{$state} ) {
        $mirror = $state -> { $url } ; # a Mirmon::Mirror object
        my ($time, $history) = split('-', $mirror->{state_history});
        my $last_state = substr($history,-1,1);
+       next if $last_state eq 'f';
        my $region = $mirror->region;
        $regions_hash->{$region} = 1;
-       next if $last_state eq 'f';
        $mirrors->{ $region } ||= [];
        $url =~ s/^http:\/\///;
        push @{$mirrors->{ $region }}, $url;
@@ -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}}));
        }
 }