X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FAuth%2FLDAP.pm;h=1b33de36a18635bb7f1b4b6494b2ee0f2acb52e9;hb=c692dae18a650bc62c89ca658603d0e0ab2f9a86;hp=10d15c0b8ce481ac2ba549ae3beea02e0158468b;hpb=c510d88bbfea6818ffafaddb7286e88aec96d3b8;p=kivitendo-erp.git

diff --git a/SL/Auth/LDAP.pm b/SL/Auth/LDAP.pm
index 10d15c0b8..1b33de36a 100644
--- a/SL/Auth/LDAP.pm
+++ b/SL/Auth/LDAP.pm
@@ -2,7 +2,7 @@ package SL::Auth::LDAP;
 
 use English '-no_match_vars';
 
-#use SL::Auth;
+use SL::Auth::Constants qw(:all);
 
 use strict;
 
@@ -146,14 +146,14 @@ sub authenticate {
 
   if ($is_crypted) {
     $main::lxdebug->leave_sub();
-    return SL::Auth->ERR_BACKEND();
+    return ERR_BACKEND;
   }
 
   my $ldap = $self->_connect();
 
   if (!$ldap) {
     $main::lxdebug->leave_sub();
-    return SL::Auth->ERR_BACKEND();
+    return ERR_BACKEND;
   }
 
   my $dn = $self->_get_user_dn($ldap, $login);
@@ -162,7 +162,7 @@ sub authenticate {
 
   if (!$dn) {
     $main::lxdebug->leave_sub();
-    return SL::Auth->ERR_BACKEND();
+    return ERR_BACKEND;
   }
 
   my $mesg = $ldap->bind($dn, 'password' => $password);
@@ -171,7 +171,7 @@ sub authenticate {
 
   $main::lxdebug->leave_sub();
 
-  return $mesg->is_error() ? SL::Auth->ERR_PASSWORD() : SL::Auth->OK();
+  return $mesg->is_error() ? ERR_PASSWORD : OK;
 }
 
 sub can_change_password {
@@ -179,7 +179,7 @@ sub can_change_password {
 }
 
 sub change_password {
-  return SL::Auth->ERR_BACKEND();
+  return ERR_BACKEND;
 }
 
 sub verify_config {