Und noch ein Problem: Verzeichnisse von der Suche ausschließen

[sunny]

Hallo!

Also ich hab jetzt einen Lösungsansatz für das Problem (es sollen ja bestimmte Seiten von der Suche ausgeschlossen werden).

Ich erstelle gleich zu beginn zwei Arrays:

Durchsuchbare Inhalte/ Dateien

@files = ('*.shtml','*.htm',
 '*/*.shtml','*/*.htm',
 '*/*/*.shtml','*/*/*.htm');

Nicht zu durchsuchende Dateien

@files_nicht = ('site/bestaetigung.shtml'); # Nur mal ein Beispiel

Und dann weiter unten hab ich folgenden Code eingebaut/umgeändert:

sub get_files
{
&bad_base unless (-e $basedir);
chdir($basedir);
foreach $file (@files)
 {
  $file_ok = 1;
  foreach $temp ($files_nicht)
 {
  if ($temp eq $temp_file || $temp eq $file)
  {
   $file_ok = 0;
  }
 }

if (-d $file && file_ok == 1)
 {
  $filename = "$file$temp_file";
  if (-T $filename)
  {
   push(@FILES,$filename);
  }
 }
 elsif (-T $temp_file && file_ok == 1)
 {
  push(@FILES,$temp_file);
 }
}
}

Allerdings bekomme ich nun überhaupt keine Suchergebnisse mehr, es werden auch die Seiten nicht durchsucht, die nicht im Array files_nicht enthalten sind. Warum? Sieht hier jemand den Fehler?

Vielen Dank,
sunny