Hello,
I downloaded a search script that is perfect for what I'm looking for, but
there's one problem that I can't figure out. In it, there's a variable for
what files and/or directories that you do NOT want searched ($DMZ). I can't
find the correct format to put in here and the script's tech support
automatically wants access to my server to fix it. Here's the part of the
script that I'm supposed to fill in:
$DMZ .= "";
I need the whole cgi-bin directory, the header.html file, and the
footer.html file to be ignored for searches. I've tried: (doing only the
cgi-bin to save typing and just to find the correct format first)
$DMZ .= "/full/path/to/cgi-bin"; - Does not work
$DMZ .= "/cgi-bin"; - Does not work
Here's the part of the script that reads this so you guys can try and figure
out the correct format it was written for:
if ($ENV{'SERVER_SOFTWARE'} =~ /IIS/)
{
$slash = '\\';
}
else
{
$slash = '/';
}
unless (-e $basedir)
{
print "Fatal Error!\n";
print "Searched for a directory at specified location:\n";
print " $basedir\n";
print "No directory found. Check settings.\n";
exit;
}
@directories = ($basedir);
$maxvar = 1;
for ($i=0;$i<$maxvar;$i++)
{
$directory = @directories[$i];
opendir(DIR,$directory);
@entries = readdir(DIR);
closedir(DIR);
foreach $entry (@entries)
{
next if (($entry eq ".") || ($entry eq ".."));
$full = $directory . $slash . $entry;
next if ($DMZ =~ /$full /i);
if (-d $full)
{
push(@directories,$full);
$maxvar++;
}
elsif ((-T $full) && ($full =~ /(.*)\.(.*)/))
{
push(@FILES,$full) if ($extensions =~ /\.$2\./);
}
}
}
Any ideas?
Thanks!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
