Revision c394b872
Von Moritz Bunkus vor mehr als 14 Jahren hinzugefügt
SL/AM.pm | ||
---|---|---|
1544 | 1544 |
$auth->create_or_refresh_session(); |
1545 | 1545 |
} |
1546 | 1546 |
|
1547 |
if ($webdav) { |
|
1548 |
my @webdavdirs = |
|
1549 |
qw(angebote bestellungen rechnungen anfragen lieferantenbestellungen einkaufsrechnungen); |
|
1550 |
foreach my $directory (@webdavdirs) { |
|
1551 |
my $file = "webdav/" . $directory . "/webdav-user"; |
|
1552 |
my $newfile; |
|
1553 |
if ($myconfig->{$directory}) { |
|
1554 |
open(HTACCESS, "$file") or die "cannot open webdav-user $!\n"; |
|
1555 |
while (<HTACCESS>) { |
|
1556 |
my ($login, $password) = split(/:/, $_); |
|
1557 |
if ($login ne $form->{login}) { |
|
1558 |
$newfile .= $_; |
|
1559 |
} |
|
1560 |
} |
|
1561 |
close(HTACCESS); |
|
1562 |
open(HTACCESS, "> $file") or die "cannot open webdav-user $!\n"; |
|
1563 |
$newfile .= $myconfig->{login} . ":" . $myconfig->{password} . "\n"; |
|
1564 |
print(HTACCESS $newfile); |
|
1565 |
close(HTACCESS); |
|
1566 |
} else { |
|
1567 |
$form->{$directory} = 0; |
|
1568 |
open(HTACCESS, "$file") or die "cannot open webdav-user $!\n"; |
|
1569 |
while (<HTACCESS>) { |
|
1570 |
my ($login, $password) = split(/:/, $_); |
|
1571 |
if ($login ne $form->{login}) { |
|
1572 |
$newfile .= $_; |
|
1573 |
} |
|
1574 |
} |
|
1575 |
close(HTACCESS); |
|
1576 |
open(HTACCESS, "> $file") or die "cannot open webdav-user $!\n"; |
|
1577 |
print(HTACCESS $newfile); |
|
1578 |
close(HTACCESS); |
|
1579 |
} |
|
1580 |
} |
|
1581 |
} |
|
1582 |
|
|
1583 | 1547 |
$main::lxdebug->leave_sub(); |
1584 | 1548 |
|
1585 | 1549 |
return $rc; |
Auch abrufbar als: Unified diff
Administrierbarkeit der webdav-user-Dateien entfernt
Hinweis zum Grund aus doc/Changelog:
Fix für Bug 1326.