version 1.8, 2023/08/23 20:39:06
|
version 1.9, 2023/08/23 22:21:05
|
Line 201 sub directory_listing {
|
Line 201 sub directory_listing {
|
return OK; |
return OK; |
} |
} |
$dirpath =~ s{/$}{}; |
$dirpath =~ s{/$}{}; |
opendir my $dir, $dirpath or die "Cannot open directory: $dirpath"; |
my @files; |
my @files = readdir $dir; |
if (opendir(my $dir, $dirpath)) { |
closedir $dir; |
@files = readdir($dir); |
|
closedir($dir); |
|
} else { |
|
$request->content_type('text/plain'); |
|
$request->print("Error opening directory: $dirpath"); |
|
$request->status(403); |
|
return OK; |
|
} |
my $dirname = $dirpath; |
my $dirname = $dirpath; |
$dirname =~ s{^.*/([^/]*)$}{$1}; |
$dirname =~ s{^.*/([^/]*)$}{$1}; |
$res .= "<directory name=\"$dirname\">\n"; |
$res .= "<directory name=\"$dirname\">\n"; |