28 |
|
|
29 |
opendir(DIR, $dir) or croak "Could not open '$dir': $!"; |
opendir(DIR, $dir) or croak "Could not open '$dir': $!"; |
30 |
DIRENT: for my $entry (readdir DIR) { |
DIRENT: for my $entry (readdir DIR) { |
31 |
|
# next unless $entry =~ /nt/; |
32 |
if (-f "$dir/$entry/desc.html") { |
if (-f "$dir/$entry/desc.html") { |
33 |
my $index = "$dir/$entry/index.html"; |
my $index = "$dir/$entry/index.html"; |
34 |
open F, $index or Carp::confess("Could not open $index: $!"); |
open F, $index or Carp::confess("Could not open $index: $!"); |