Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 28bd71eb

Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt

  • ID 28bd71eb8c1b7c3d11779a8d954017933f7938a5
  • Vorgänger d4dd649f
  • Nachfolger ce156ea1

Mandanten-WebDAV-Upgrade: nicht an Konfigurationseinstellung sondern Existenz von Dateien festmachen

Unterschiede anzeigen:

locale/de/all
1968 1968
  'The LDAP server "#1:#2" is unreachable. Please check config/kivitendo.conf.' => 'Der LDAP-Server "#1:#2" ist nicht erreichbar. Bitte überprüfen Sie die Angaben in config/kivitendo.conf.',
1969 1969
  'The SEPA export has been created.' => 'Der SEPA-Export wurde erstellt',
1970 1970
  'The SEPA strings have been saved.' => 'Die bei SEPA-Überweisungen verwendeten Begriffe wurden gespeichert.',
1971
  'The WebDAV feature is activated.' => 'Das WebDAV-Feature ist aktiviert.',
1971
  'The WebDAV feature has been used.' => 'Das WebDAV-Feature wurde benutzt.',
1972 1972
  'The access rights a user has within a client instance is still governed by his group membership.' => 'Welche Zugriffsrechte ein Benutzer innerhalb eines Mandanten hat, wird weiterhin über Gruppenmitgliedschaften geregelt.',
1973 1973
  'The access rights have been saved.' => 'Die Zugriffsrechte wurden gespeichert.',
1974 1974
  'The account 3804 already exists, the update will be skipped.' => 'Das Konto 3804 existiert schon, das Update wird übersprungen.',
sql/Pg-upgrade2-auth/clients_webdav.pl
9 9

  
10 10
use parent qw(SL::DBUpgrade2::Base);
11 11

  
12
use File::Find ();
12 13
use File::Path qw(make_path);
13 14
use IO::Dir;
14 15
use List::MoreUtils qw(any all);
......
81 82
  symlink '../' . $client->{id}, "webdav/links/${name}";
82 83
}
83 84

  
85
sub _webdav_folders_used {
86
  my ($self, %params) = @_;
87

  
88
  my $contains_files  = 0;
89
  my $wanted          = sub {
90
    $contains_files   = 1 if -f && !m{/(?:\.gitignore|.dummy|webdav-user)$};
91
  };
92

  
93
  File::Find::find({ wanted => $wanted, no_chdir => 1 }, 'webdav');
94

  
95
  return $contains_files;
96
}
97

  
84 98
sub run {
85 99
  my ($self) = @_;
86 100

  
87
  # WebDAV not activated? Remove old folders, and we're done.
88
  return $self->_unlink_old_folders if !$::lx_office_conf{features}->{webdav};
101
  # WebDAV not used? Remove old folders, and we're done.
102
  return $self->_unlink_old_folders if !$self->_webdav_folders_used;
89 103

  
90 104
  # Ensure at least one client exists.
91 105
  $self->_ensure_one_client_exists;
templates/webpages/dbupgrade/auth/clients_webdav.html
5 5
<h1>[%- LxERP.t8("Introduction of clients") %] -- [% LxERP.t8("Handling of WebDAV") %]</h1>
6 6

  
7 7
<p>
8
 [% LxERP.t8("The WebDAV feature is activated.") %]
8
 [% LxERP.t8("The WebDAV feature has been used.") %]
9 9
 [% LxERP.t8("With the introduction of clients each client gets its own WebDAV folder.") %]
10 10
 [% LxERP.t8("In order to migrate the old folder structure into the new structure you have to chose which client the old structure will be assigned to.") %]
11 11
 [% LxERP.t8("All the other clients will start with an empty set of WebDAV folders.") %]
webdav/.gitignore
1
*
2
!.gitignore

Auch abrufbar als: Unified diff