admin: distfiles/file-fetcher.pl - allow ";" in uris

[sparky]

Author: sparky                       Date: Thu Feb 25 14:49:34 2010 GMT
Module: admin                         Tag: HEAD
---- Log message:
- allow ";" in uris

---- Files affected:
admin/distfiles:
   file-fetcher.pl (1.50 -> 1.51) 

---- Diffs:

================================================================
Index: admin/distfiles/file-fetcher.pl
diff -u admin/distfiles/file-fetcher.pl:1.50 admin/distfiles/file-fetcher.pl:1.51
--- admin/distfiles/file-fetcher.pl:1.50	Mon Feb  8 16:15:48 2010
+++ admin/distfiles/file-fetcher.pl	Thu Feb 25 15:49:29 2010
@@ -54,7 +54,9 @@
   $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 @@
       $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 {
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/admin/distfiles/file-fetcher.pl?r1=1.50&r2=1.51&f=u