Auth Konstanten ausgelagert in ein eigenes Package.

[kivitendo-erp.git] / SL / Auth / LDAP.pm

diff --git a/SL/Auth/LDAP.pm b/SL/Auth/LDAP.pm
index 10d15c0..1b33de3 100644 (file)
--- 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 {