version 1.40, 2005/08/02 21:25:43
|
version 1.41, 2005/08/15 17:53:33
|
Line 237 END
|
Line 237 END
|
my $choice=<>; |
my $choice=<>; |
chomp($choice); |
chomp($choice); |
my $bad_domain_flag=0; |
my $bad_domain_flag=0; |
my @bad_domain_names=('res','raw','userfiles','priv','adm','uploaded'); |
my @bad_domain_names=('res','raw','userfiles','priv','adm','uploaded', |
|
'editupload'); |
foreach my $bad (@bad_domain_names) { |
foreach my $bad (@bad_domain_names) { |
$bad_domain_flag=1 if $choice eq $bad; |
$bad_domain_flag=1 if $choice eq $bad; |
} |
} |
Line 597 foreach my $v ($perlvar{'lonDefDomain'},
|
Line 598 foreach my $v ($perlvar{'lonDefDomain'},
|
$error.="\nName $v contains 'capa'"; |
$error.="\nName $v contains 'capa'"; |
} |
} |
} |
} |
foreach my $bad ('res','raw','userfiles','priv','adm','uploaded') { |
foreach my $bad ('res','raw','userfiles','priv','adm','uploaded', |
|
'editupload') { |
$error.="\nName $v reserved." if $v eq $bad; |
$error.="\nName $v reserved." if $v eq $bad; |
} |
} |
if ($v=~/\W/) { $error.="\nName $v contains special characters"; } |
if ($v=~/\W/) { $error.="\nName $v contains special characters"; } |
} |
} |
if ($domainDescription!~/^[\w\s]+$/) { |
if ($domainDescription!~/^[\(\)\-\w\s]+$/) { |
$error.="\nDomain Description contains special characters"; |
$error.="\nDomain Description contains special characters"; |
} |
} |
foreach my $v ($perlvar{'lonExpire'},$perlvar{'lonLoadLim'}) { |
foreach my $v ($perlvar{'lonExpire'},$perlvar{'lonLoadLim'}) { |