X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FAuth.pm;h=eb5a7805ad8030618ee063b475a04b1795b2d33a;hb=eeff78958a0c9215921fddd86b94bdf15273bf81;hp=bf2a6a851b0bf69a4c97f1906e139316553d1da5;hpb=7b13e2ead3786c1b72a41378619ee88fa09f3df2;p=kivitendo-erp.git

diff --git a/SL/Auth.pm b/SL/Auth.pm
index bf2a6a851..eb5a7805a 100644
--- a/SL/Auth.pm
+++ b/SL/Auth.pm
@@ -33,6 +33,26 @@ sub new {
   return $self;
 }
 
+sub get_user_dbh {
+  my ($self, $login) = @_;
+  my %user = $self->read_user($login);
+  my $dbh  = DBI->connect(
+    $user{dbconnect},
+    $user{dbuser},
+    $user{dbpasswd},
+    {
+      pg_enable_utf8 => $::locale->is_utf8,
+      AutoCommit     => 0
+    }
+  ) or $::form->dberror;
+
+  if ($user{dboptions}) {
+    $dbh->do($user{dboptions}) or $::form->dberror($user{dboptions});
+  }
+
+  return $dbh;
+}
+
 sub DESTROY {
   my $self = shift;