Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision c394b872

Von Moritz Bunkus vor mehr als 14 Jahren hinzugefügt

  • ID c394b87234f29076cdcf0ee8c3c2abab6208a1c7
  • Vorgänger 56e57179
  • Nachfolger df956e31

Administrierbarkeit der webdav-user-Dateien entfernt

Hinweis zum Grund aus doc/Changelog:

- Die Möglichkeit, den Zugriff auf die WebDAV-Verzeichnisse für
jeden Benutzer einzustellen, wurde ersatzlos entfernt. Grund ist,
dass das dafür benötigte Benutzerpasswort bei
LDAP-Authentifizierung nicht bekannt ist. Es wird Administratoren,
die eine solche Zugriffskontrolle benötigen, empfohlen, die
Authentifizierungsmodule des Webservers entsprechend zu
konfigurieren. Bei Apache sind dies die Module mod_auth_pgsql für
in der Datenbank gespeicherte Passwörter und mod_authnz_ldap für
Authentifizierung gegenüber externen LDAP-Servern.

Fix für Bug 1326.

Unterschiede anzeigen:

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