- allow ";" in uris

Changed files:
    file-fetcher.pl -> 1.51

diff --git a/file-fetcher.pl b/file-fetcher.pl
index c7fdf186b7c621d174f30949dd660b44b02cf8f1..a8637e710c613eab77288e90baa86c4b1a733892 100644 (file)
--- a/file-fetcher.pl
+++ b/file-fetcher.pl
@@ -54,7 +54,9 @@ sub read_spool_file()
   $requester =~ /^([^@]+)\@/ and $req_login = $1;
   $req_login =~ /^[a-z0-9A-Z_.]+$/ or die "$file: evil requester $requester";
   $spec = <F>;
+  chomp $spec;
   $spec =~ s/\.spec$//;
+
   my $flags = <F>;
   $force_reply++ if ($flags =~ /force-reply/);
 
@@ -64,7 +66,7 @@ sub read_spool_file()
       $problems .= $_;
       next;
     }
-    if (/^([a-f0-9]{32})\s+((ftp|http|https|no-url|no-url-copy):\/\/([=\@\?a-z0-9A-Z:\+\~\.,\-\/_]|\%[0-9])+)\s*$/) {
+    if (/^([a-f0-9]{32})\s+((ftp|http|https|no-url|no-url-copy):\/\/([=\@\?a-z0-9A-Z:;\+\~\.,\-\/_]|\%[0-9])+)\s*$/) {
       if (/\/$/) {
        $problems .= "$file: cannot fetch dir";
       } else {