From: Michael Prokop <mika@grml.org>
Date: Fri, 9 Jul 2021 16:25:50 +0000 (+0200)
Subject: bin/masterlist2mirmon: properly report URLs without leading "/" in list
X-Git-Url: http://git.grml.org/?p=grml-mirrors.git;a=commitdiff_plain;h=25db0ed4493adddab00fff6ce09a71609b662050

bin/masterlist2mirmon: properly report URLs without leading "/" in list

Otherwise /etc/mirmon/mirror.list gets generated with a missing "/" in
the URL (between server/site name and download path) if we don't use
'Grml-http: /grml/' but 'Grml-http: grml/' in Mirrors.masterlist

Fixes: 83b1fc53
Thanks: David Schmitt for the bugreport
---

diff --git a/bin/masterlist2mirmon b/bin/masterlist2mirmon
index 0195492..f6ba62a 100755
--- a/bin/masterlist2mirmon
+++ b/bin/masterlist2mirmon
@@ -29,9 +29,9 @@ 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'});
+    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'});
+        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'});