8 die "no file $file" unless -f $file;
10 open (my $fh, '<', $file) or die "Could not open $file: $!";
14 while (my $line = <$fh>) {
16 if ($line =~ /([^:]+): (.*)/) {
19 $data->{$key} = $value;
20 } elsif ($line eq '') {
24 print "Malformed line: $line\n";
28 push @mirrors, $data if $data;
30 foreach my $mirror (@mirrors) {
31 my ($c, $r) = split (/ +/, $mirror->{'country'});
32 printf ("%s http://%s%s\n", $c, $mirror->{'site'}, $mirror->{'grml-http'});
33 if ($mirror->{'grml-ftp'}) {
34 printf ("%s ftp://%s%s\n", $c, $mirror->{'site'}, $mirror->{'grml-ftp'});
36 if ($mirror->{'grml-rsync'}) {
37 printf ("%s rsync://%s/%s\n", $c, $mirror->{'site'}, $mirror->{'grml-rsync'});