Revision ac84f80b
Von Sven Schöling vor etwa 11 Jahren hinzugefügt
| SL/Common.pm | ||
|---|---|---|
| 21 | 21 |
use File::Spec; |
| 22 | 22 |
use List::MoreUtils qw(apply); |
| 23 | 23 |
use POSIX (); |
| 24 |
use Encode qw(decode); |
|
| 24 | 25 |
|
| 25 | 26 |
use SL::DBUtils; |
| 26 | 27 |
|
| ... | ... | |
| 355 | 356 |
my $base_path = $ENV{'SCRIPT_NAME'};
|
| 356 | 357 |
$base_path =~ s|[^/]+$||; |
| 357 | 358 |
if (opendir my $dir, $path) {
|
| 358 |
foreach my $file (sort { lc $a cmp lc $b } readdir $dir) {
|
|
| 359 |
foreach my $file (sort { lc $a cmp lc $b } map { decode("UTF-8", $_) } readdir $dir) {
|
|
| 359 | 360 |
next if (($file eq '.') || ($file eq '..')); |
| 360 | 361 |
|
| 361 | 362 |
my $fname = $file; |
Auch abrufbar als: Unified diff
Dateinamen im webdav aus utf8 decoden. Nicht NFC normalisieren, die müssen hinterher als URLs funktionieren.