Return to sanitycheck.piml CVS log | Up to [LON-CAPA] / doc / loncapafiles |
version 1.4, 2002/08/15 15:41:57 | version 1.5, 2002/08/17 18:59:48 |
---|---|
Line 50 while (<IN>) { | Line 50 while (<IN>) { |
$dbug=0; | $dbug=0; |
$dbug=1 if $v=~/\W/; | $dbug=1 if $v=~/\W/; |
$dbug=1 if $v=~/\_/; | $dbug=1 if $v=~/\_/; |
# Avoid namespace conflicts under the web server's DocumentRoot. | |
my @badnames=('raw','userfiles','priv','adm','uploaded'); | |
foreach my $bad (@badnames) { | |
$dbug=1 if $v eq $bad; | |
} | |
} | } |
} | } |
if ($hbug) { | if ($hbug) { |