Commit 20acceb4 authored by Robert Ricci's avatar Robert Ricci
Browse files

Add .tar as a valid file extension.

parent 7a4428d0
......@@ -85,7 +85,8 @@ if (!($user =~ /^([\w-]+)$/)) {
die("*** $0:\n".
" No such user $user\n");
if (!($URL =~ /^((http|ftp):\/\/[\w.\-\/\@:~]+(\.tar\.gz|\.tgz|\.rpm))$/)) {
if (!($URL =~
/^((http|ftp):\/\/[\w.\-\/\@:~]+(\.tar|\.tar\.gz|\.tgz|\.rpm))$/)) {
die("*** $0:\n".
" Illegal URL given: $URL\n");
} else {
......
......@@ -230,7 +230,8 @@ while (my ($URL, $localfile) = each %tofetch) {
#
sub verifyURL($) {
my ($URL) = @_;
if ($URL =~ /^((http|ftp):\/\/[\w.\-\/\@:~]+(\.tar\.gz|\.tgz|\.rpm))$/) {
if ($URL =~
/^((http|ftp):\/\/[\w.\-\/\@:~]+(\.tar|\.tar\.gz|\.tgz|\.rpm))$/) {
return $1;
} else {
return undef;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment