Don't forget last element
[grml-mirrors.git] / masterlist2mirmon
index f191686..0195492 100755 (executable)
@@ -25,7 +25,16 @@ while (my $line = <$fh>) {
     }
 }
 
+push @mirrors, $data if $data;
+
 foreach my $mirror (@mirrors) {
     my ($c, $r) = split (/ +/, $mirror->{'country'});
     printf ("%s http://%s%s\n", $c, $mirror->{'site'}, $mirror->{'grml-http'});
+    if ($mirror->{'grml-ftp'}) {
+        printf ("%s ftp://%s%s\n", $c, $mirror->{'site'}, $mirror->{'grml-ftp'});
+    }
+    if ($mirror->{'grml-rsync'}) {
+        printf ("%s rsync://%s/%s\n", $c, $mirror->{'site'}, $mirror->{'grml-rsync'});
+    }
+
 }