3 use lib '/usr/share/perl5/';
7 $m = Mirmon -> new ( '/etc/mirmon.conf' );
9 $conf = $m->conf ; # a Mirmon::Conf object
10 $state = $m->state ; # the mirmon state
14 foreach my $url ( keys %{$state} ) {
15 next unless $url =~ /^http/;
16 $mirror = $state -> { $url } ; # a Mirmon::Mirror object
17 my ($time, $history) = split('-', $mirror->{state_history});
18 my $last_state = substr($history,-1,1);
19 next if $last_state eq 'f';
20 my $region = $mirror->region;
21 $mirrors->{ $region } ||= [];
22 $url =~ s/^http:\/\///;
23 push @{$mirrors->{ $region }}, $url;
26 foreach my $region (keys %{$mirrors}) {
27 printf ("%s %s\n", lc($region), join('|', @{$mirrors->{$region}}));