![[BACK]](/icons/back.gif){kind=icon}
Return to sanitycheck.piml CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / doc / loncapafiles|
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) { |