X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FAuth%2FLDAP.pm;h=1b33de36a18635bb7f1b4b6494b2ee0f2acb52e9;hb=f97b07787db5cacc0f90338fdb3c1237262917cb;hp=4caeea0c5e0b83564a0838af0a03946f26736645;hpb=684e84d8b410627473b2187c031f0d9143ea1a60;p=kivitendo-erp.git

diff --git a/SL/Auth/LDAP.pm b/SL/Auth/LDAP.pm
index 4caeea0c5..1b33de36a 100644
--- a/SL/Auth/LDAP.pm
+++ b/SL/Auth/LDAP.pm
@@ -2,7 +2,9 @@ package SL::Auth::LDAP;
 
 use English '-no_match_vars';
 
-#use SL::Auth;
+use SL::Auth::Constants qw(:all);
+
+use strict;
 
 sub new {
   $main::lxdebug->enter_sub();
@@ -144,32 +146,32 @@ 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);
 
-  $main::lxdebug->message(LXDebug::DEBUG2, "LDAP authenticate: dn $dn");
+  $main::lxdebug->message(LXDebug->DEBUG2(), "LDAP authenticate: dn $dn");
 
   if (!$dn) {
     $main::lxdebug->leave_sub();
-    return SL::Auth::ERR_BACKEND;
+    return ERR_BACKEND;
   }
 
   my $mesg = $ldap->bind($dn, 'password' => $password);
 
-  $main::lxdebug->message(LXDebug::DEBUG2, "LDAP authenticate: bind mesg " . $mesg->error());
+  $main::lxdebug->message(LXDebug->DEBUG2(), "LDAP authenticate: bind mesg " . $mesg->error());
 
   $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 {
@@ -177,12 +179,15 @@ sub can_change_password {
 }
 
 sub change_password {
-  return SL::Auth::ERR_BACKEND;
+  return ERR_BACKEND;
 }
 
 sub verify_config {
   $main::lxdebug->enter_sub();
 
+  my $form   = $main::form;
+  my $locale = $main::locale;
+
   my $self = shift;
   my $cfg  = $self->{auth}->{LDAP_config};