From bf2219c8986584a46747dc8ac2eda79c2714f7e5 Mon Sep 17 00:00:00 2001
From: sparky <sparky@pld-linux.org>
Date: Thu, 25 Feb 2010 14:49:29 +0000
Subject: [PATCH] - allow ";" in uris

Changed files:
    file-fetcher.pl -> 1.51
---
 file-fetcher.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/file-fetcher.pl b/file-fetcher.pl
index c7fdf18..a8637e7 100644
--- 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 {
-- 
2.44.0