Revision 895309b3
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| SL/Common.pm | ||
|---|---|---|
| 11 | 11 |
use utf8; |
| 12 | 12 |
use strict; |
| 13 | 13 |
|
| 14 |
use Carp; |
|
| 14 | 15 |
use Time::HiRes qw(gettimeofday); |
| 15 | 16 |
use Data::Dumper; |
| 16 | 17 |
|
| ... | ... | |
| 354 | 355 |
return $main::lxdebug->leave_sub() |
| 355 | 356 |
unless ($::lx_office_conf{features}->{webdav} && $form->{id});
|
| 356 | 357 |
|
| 358 |
croak "No client set in \$::auth" unless $::auth->client; |
|
| 359 |
|
|
| 357 | 360 |
my ($path, $number); |
| 358 | 361 |
|
| 359 | 362 |
$form->{WEBDAV} = [];
|
| ... | ... | |
| 382 | 385 |
|
| 383 | 386 |
$number =~ s|[/\\]|_|g; |
| 384 | 387 |
|
| 385 |
$path = "webdav/${path}/${number}";
|
|
| 388 |
$path = "webdav/" . $::auth->client->{id} . "/${path}/${number}";
|
|
| 386 | 389 |
|
| 387 | 390 |
if (!-d $path) {
|
| 388 | 391 |
mkdir_with_parents($path); |
| ... | ... | |
| 390 | 393 |
} else {
|
| 391 | 394 |
my $base_path = $ENV{'SCRIPT_NAME'};
|
| 392 | 395 |
$base_path =~ s|[^/]+$||; |
| 393 |
# wo kommt der wert für dir her? es wird doch gar nichts übergeben? fix für strict my $dir jb 21.2. |
|
| 394 | 396 |
if (opendir my $dir, $path) {
|
| 395 | 397 |
foreach my $file (sort { lc $a cmp lc $b } readdir $dir) {
|
| 396 | 398 |
next if (($file eq '.') || ($file eq '..')); |
Auch abrufbar als: Unified diff
WebDAV-Pfad für Mandaten gefixt