Projekt

Allgemein

Profil

Herunterladen (3,47 KB) Statistiken
| Zweig: | Markierung: | Revision:

kivitendo/sql/Pg-upgrade2-auth/clients_webdav.pl @ 1466e54a

790e4a45 Moritz Bunkus
# @tag: clients_webdav
# @description: WebDAV-Migration für Mandanten
# @depends: clients
# @ignore: 0
4eab0ccf Moritz Bunkus
package SL::DBUpgrade2::Auth::clients_webdav;
790e4a45 Moritz Bunkus
use strict;
use utf8;

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

28bd71eb Moritz Bunkus
use File::Find ();
790e4a45 Moritz Bunkus
use File::Path qw(make_path);
use IO::Dir;
use List::MoreUtils qw(any all);
use List::Util qw(first);

use SL::DBConnect;
use SL::DBUtils;
use SL::Template;
use SL::Helper::Flash;

use Rose::Object::MakeMethods::Generic (
'scalar --get_set_init' => [ qw(clients old_folders) ],
);

sub init_clients {
my ($self) = @_;
return [ selectall_hashref_query($::form, $self->dbh, qq|SELECT * FROM auth.clients ORDER BY lower(name)|) ];
}

sub init_old_folders {
tie my %dir, 'IO::Dir', 'webdav';
return [ sort grep { -d } keys %dir ];
}

sub _unlink_old_folders {
my ($self, %params) = @_;

rmdir $_ for @{ $self->old_folders };

return 1;
}

sub _ensure_one_client_exists {
my ($self, %params) = @_;

return if 0 != scalar @{ $self->clients };

my $sql = <<SQL;
INSERT INTO auth.clients (name, dbhost, dbport, dbname, dbuser, dbpasswd, is_default)
VALUES (?, ?, 5432, ?, ?, ?, true)
SQL

$self->dbh->do($sql, undef, $::locale->text('Default Client (unconfigured)'), ($::locale->text('unconfigured')) x 4);

undef $self->{clients};
}

sub _move_files_into {
my ($self, $client) = @_;

tie my %dir, 'IO::Dir', 'webdav';
my @entries = grep { !m/^\.\.?$/ } keys %dir;

make_path('webdav/' . $client->{id});
rename "webdav/$_", "webdav/" . $client->{id} . "/$_" for @entries;
}

sub _create_folders {
my ($self, $client) = @_;
make_path('webdav/' . $client->{id} . "/$_") for qw(angebote bestellungen anfragen lieferantenbestellungen verkaufslieferscheine einkaufslieferscheine gutschriften rechnungen einkaufsrechnungen);
}

sub _create_symlink {
my ($self, $client) = @_;

my $name = $client->{name} // '';
$name =~ s:/+:_:g;

make_path('webdav/links');
symlink '../' . $client->{id}, "webdav/links/${name}";
}

28bd71eb Moritz Bunkus
sub _webdav_folders_used {
my ($self, %params) = @_;

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

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

return $contains_files;
}

790e4a45 Moritz Bunkus
sub run {
my ($self) = @_;

28bd71eb Moritz Bunkus
# WebDAV not used? Remove old folders, and we're done.
return $self->_unlink_old_folders if !$self->_webdav_folders_used;
790e4a45 Moritz Bunkus
# Ensure at least one client exists.
$self->_ensure_one_client_exists;

my $client_to_use;
if (1 == scalar @{ $self->clients }) {
# Exactly one client? Great, use that one without bothering the
# user.
$client_to_use = $self->clients->[0];

} else {
# If there's more than one client then let the user select which
# client to move the old files into. Maybe she already did?
$client_to_use = first { $_->{id} == $::form->{client_id} } @{ $self->clients } if $::form->{client_id};

if (!$client_to_use) {
# Nope, let's select it.
print $::form->parse_html_template('dbupgrade/auth/clients_webdav', { SELF => $self, default_client => (first { $_->{is_default} } @{ $self->clients }) });
return 2;
}
}

# Move files for the selected client.
$self->_move_files_into($client_to_use);

# Create the directory structures for all (even the selected client
# -- folders might be missing).
for (@{ $self->clients }) {
$self->_create_folders($_);
$self->_create_symlink($_);
}

return 1;
}

1;