Revision c394b872
Von Moritz Bunkus vor mehr als 14 Jahren hinzugefügt
bin/mozilla/admin.pl | ||
---|---|---|
536 | 536 |
$main::auth->change_password($form->{login}, $form->{new_password}); |
537 | 537 |
} |
538 | 538 |
|
539 |
my ($login, $password, $newfile); |
|
540 |
if ($main::webdav) { |
|
541 |
my @webdavdirs = |
|
542 |
qw(angebote bestellungen rechnungen anfragen lieferantenbestellungen einkaufsrechnungen); |
|
543 |
foreach my $directory (@webdavdirs) { |
|
544 |
my $file = "webdav/" . $directory . "/webdav-user"; |
|
545 |
if ($form->{$directory}) { |
|
546 |
if (open(HTACCESS, "$file")) { |
|
547 |
while (<HTACCESS>) { |
|
548 |
($login, $password) = split(/:/, $_); |
|
549 |
if ($login ne $form->{login}) { |
|
550 |
$newfile .= $_; |
|
551 |
} |
|
552 |
} |
|
553 |
close(HTACCESS); |
|
554 |
} |
|
555 |
open(HTACCESS, "> $file") or die "cannot open $file $ERRNO\n"; |
|
556 |
$newfile .= $myconfig->{login} . ":" . $myconfig->{password} . "\n"; |
|
557 |
print(HTACCESS $newfile); |
|
558 |
close(HTACCESS); |
|
559 |
} else { |
|
560 |
$form->{$directory} = 0; |
|
561 |
if (open(HTACCESS, "$file")) { |
|
562 |
while (<HTACCESS>) { |
|
563 |
($login, $password) = split(/:/, $_); |
|
564 |
if ($login ne $form->{login}) { |
|
565 |
$newfile .= $_; |
|
566 |
} |
|
567 |
} |
|
568 |
close(HTACCESS); |
|
569 |
} |
|
570 |
open(HTACCESS, "> $file") or die "cannot open $file $ERRNO\n"; |
|
571 |
print(HTACCESS $newfile); |
|
572 |
close(HTACCESS); |
|
573 |
} |
|
574 |
} |
|
575 |
} |
|
576 |
|
|
577 | 539 |
$form->{templates} =~ s|.*/||; |
578 | 540 |
$form->{templates} = "$main::templates/$form->{templates}"; |
579 | 541 |
$form->{mastertemplates} =~ s|.*/||; |
Auch abrufbar als: Unified diff
Administrierbarkeit der webdav-user-Dateien entfernt
Hinweis zum Grund aus doc/Changelog:
Fix für Bug 1326.