X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FAuthClient.pm;h=0c9e5a97f864b246e4d9dce8e8b5443904f28f64;hb=d3c4f19b2fe207da2b42d2be41b12916109e6293;hp=e83bb16bf8bff6109e610e041e9213e4381079d7;hpb=58af8f75b600ef09aed98b0709554816fcd27073;p=kivitendo-erp.git

diff --git a/SL/DB/AuthClient.pm b/SL/DB/AuthClient.pm
index e83bb16bf..0c9e5a97f 100644
--- a/SL/DB/AuthClient.pm
+++ b/SL/DB/AuthClient.pm
@@ -5,6 +5,7 @@ use strict;
 use Carp;
 use File::Path ();
 
+use SL::DBConnect;
 use SL::DB::MetaSetup::AuthClient;
 use SL::DB::Manager::AuthClient;
 use SL::DB::Helper::Util;
@@ -44,14 +45,13 @@ sub _before_save_remember_old_name {
 sub _after_save_ensure_webdav_symlink_correctness {
   my ($self) = @_;
 
-  $self->ensure_webdav_symlink_correctness($self->{__before_save_remember_old_name}) if $self->id && $::lx_office_conf{features}->{webdav};
+  $self->ensure_webdav_symlink_correctness($self->{__before_save_remember_old_name}) if $self->id;
   return 1;
 }
 
 sub _after_delete_delete_webdav_symlink {
   my ($self) = @_;
 
-  return 1 if !$::lx_office_conf{features}->{webdav};
   my $name = $self->webdav_symlink_basename;
   unlink "webdav/links/${name}";
   return 1;
@@ -84,8 +84,6 @@ sub webdav_symlink_basename {
 sub ensure_webdav_symlink_correctness {
   my ($self, $old_name) = @_;
 
-  return unless $::lx_office_conf{features}->{webdav};
-
   croak "Need object ID" unless $self->id;
 
   my $new_symlink = $self->webdav_symlink_basename;
@@ -108,4 +106,87 @@ sub ensure_webdav_symlink_correctness {
   symlink '../' . $self->id, "${base_path}/${new_symlink}";
 }
 
+sub get_dbconnect_args {
+  my ($self, %params) = @_;
+
+  return (
+    'dbi:Pg:dbname=' . $self->dbname . ';host=' . ($self->dbhost || 'localhost') . ';port=' . ($self->dbport || 5432),
+    $self->dbuser,
+    $self->dbpasswd,
+    SL::DBConnect->get_options(%params),
+  );
+}
+
+sub dbconnect {
+  my ($self, %params) = @_;
+  return SL::DBConnect->connect($self->get_dbconnect_args(%params));
+}
+
 1;
+__END__
+
+=pod
+
+=encoding utf8
+
+=head1 NAME
+
+SL::DB::AuthClient - RDBO model for the auth.clients table
+
+=head1 FUNCTIONS
+
+=over 4
+
+=item C<dbconnect [%params]>
+
+Establishes a new database connection to the database configured for
+C<$self>. Returns a database handle as returned by
+L<SL::DBConnect/connect> (which is either a normal L<DBI> handle or
+one handled by L<DBIx::Log4perl>).
+
+C<%params> are optional parameters passed as the fourth argument to
+L<SL::DBConnect/connect>. They're first filtered through
+L<SL::DBConnect/get_options> so the UTF-8 flag will be set properly.
+
+=item C<ensure_webdav_symlink_correctness>
+
+Handles the symlink creation/deletion for the WebDAV folder. Does
+nothing if WebDAV is not enabled in the configuration.
+
+For each existing client a symbolic link should exist in the directory
+C<webdav/links> pointing to the actual WebDAV directory which is the
+client's database ID.
+
+The symbolic link's name is the client's name sanitized a bit. It's
+calculated by L</webdav_symlink_basename>.
+
+=item C<get_dbconnect_args [%params]>
+
+Returns an array of database connection parameters suitable for
+passing to L<SL::DBConnect/connect>.
+
+C<%params> are optional parameters passed as the fourth argument to
+L<SL::DBConnect/connect>. They're first filtered through
+L<SL::DBConnect/get_options> so the UTF-8 flag will be set properly.
+
+=item C<validate>
+
+Returns an array of human-readable error messages if the object must
+not be saved and an empty list if nothing's wrong.
+
+=item C<webdav_symlink_basename>
+
+Returns the base name of the symbolic link for the WebDAV C<links>
+sub-folder.
+
+=back
+
+=head1 BUGS
+
+Nothing here yet.
+
+=head1 AUTHOR
+
+Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>
+
+=cut