version 1.3, 2002/07/17 17:55:07
|
version 1.5, 2002/08/17 18:59:48
|
Line 1
|
Line 1
|
|
<!DOCTYPE piml PUBLIC "-//TUX/DTD piml 1.0 Final//EN" |
|
"http://lpml.sourceforge.net/DTD/piml.dtd"> |
<!-- sanitycheck.piml --> |
<!-- sanitycheck.piml --> |
<!-- Scott Harrison --> |
<!-- Scott Harrison --> |
|
|
Line 48 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) { |