.htaccess und .htpasswd nicht einlesen oder nicht ausgeben

[meggamoon]

Sorry, hät ich auch gleich mit posten können - hast recht.

Verzeichnis wird gescannt mit :

sub scan_dir {
my ($new_date,$last_date,$found,$scantype,@lines,@filename,@new_array);
opendir(HOMEDIR, "$base_dir");
@filename = readdir(HOMEDIR);
closedir(HOMEDIR);

open(DATA,"$basedat");
@lines = <DATA>;
close(DATA);
$last_date = shift(@lines);

$scantype = ($FORM{'type'} eq "all") ? '.' : '.'.$FORM{'type'};
foreach $new_line (@filename) {
 next if ($new_line eq '.' || $new_line eq '..');
 next if ($new_line !~ /.*($scantype)$/ );
 foreach $test_line (@lines)  {
  ($file_id,$stub) = split(/|/,$test_line,2);
  if ($new_line eq $file_id) {
   $found =1;
   last;
  }
  $found=0;
 }
 $stamp = time();
 push (@new_array, "$new_line|0|$base_url/$new_line|$stamp|---\n") if ($found == 0);
}
if (@new_array>0) {
 open(FILE,">>$basedat");
 flock(FILE,2) if ($lock == 1);
 unless ($last_date =~ /\w+/) {
  $new_date = &get_date($new_date);
  print FILE ("$new_date\n");
 }
 print FILE (@new_array);
 close(FILE);
}
}

Gruß
meggamoon