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 foreach my $mirror (@mirrors) {
29 my ($c, $r) = split (/ +/, $mirror->{'country'});
30 printf ("%s http://%s%s\n", $c, $mirror->{'site'}, $mirror->{'grml-http'});
31 if ($mirror->{'grml-ftp'}) {
32 printf ("%s ftp://%s%s\n", $c, $mirror->{'site'}, $mirror->{'grml-ftp'});
34 if ($mirror->{'grml-rsync'}) {
35 printf ("%s rsync://%s/%s\n", $c, $mirror->{'site'}, $mirror->{'grml-rsync'});