admin: distfiles/file-fetcher.pl One more place where dot is allowed.

[arekm]

Author: arekm                        Date: Sun Mar  8 20:42:54 2009 GMT
Module: admin                         Tag: HEAD
---- Log message:
One more place where dot is allowed.

---- Files affected:
admin/distfiles:
   file-fetcher.pl (1.46 -> 1.47) 

---- Diffs:

================================================================
Index: admin/distfiles/file-fetcher.pl
diff -u admin/distfiles/file-fetcher.pl:1.46 admin/distfiles/file-fetcher.pl:1.47
--- admin/distfiles/file-fetcher.pl:1.46	Sun Dec 16 17:50:31 2007
+++ admin/distfiles/file-fetcher.pl	Sun Mar  8 21:42:49 2009
@@ -51,7 +51,7 @@
 	or die "$file: evil requester: $requester";
   $req_login = "";
   $requester =~ /^([^@]+)\@/ and $req_login = $1;
-  $req_login =~ /^[a-z0-9A-Z_]+$/ or die "$file: evil requester $requester";
+  $req_login =~ /^[a-z0-9A-Z_\.]+$/ or die "$file: evil requester $requester";
   my $flags = <F>;
   $force_reply++ if ($flags =~ /force-reply/);
 	
================================================================

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