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

diff --git a/SL/Auth/LDAP.pm b/SL/Auth/LDAP.pm
index 4caeea0c5..10d15c0b8 100644
--- a/SL/Auth/LDAP.pm
+++ b/SL/Auth/LDAP.pm
@@ -4,6 +4,8 @@ use English '-no_match_vars';
 
 #use SL::Auth;
 
+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 SL::Auth->ERR_BACKEND();
   }
 
   my $ldap = $self->_connect();
 
   if (!$ldap) {
     $main::lxdebug->leave_sub();
-    return SL::Auth::ERR_BACKEND;
+    return SL::Auth->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 SL::Auth->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() ? SL::Auth->ERR_PASSWORD() : SL::Auth->OK();
 }
 
 sub can_change_password {
@@ -177,12 +179,15 @@ sub can_change_password {
 }
 
 sub change_password {
-  return SL::Auth::ERR_BACKEND;
+  return SL::Auth->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};