projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Convenience-Funktion zum Auslesen von Employee-Objekten zu einer AuthGroup
[kivitendo-erp.git]
/
SL
/
Auth
/
LDAP.pm
diff --git
a/SL/Auth/LDAP.pm
b/SL/Auth/LDAP.pm
index
4caeea0
..
1b33de3
100644
(file)
--- a/
SL/Auth/LDAP.pm
+++ b/
SL/Auth/LDAP.pm
@@
-2,7
+2,9
@@
package SL::Auth::LDAP;
use English '-no_match_vars';
use English '-no_match_vars';
-#use SL::Auth;
+use SL::Auth::Constants qw(:all);
+
+use strict;
sub new {
$main::lxdebug->enter_sub();
sub new {
$main::lxdebug->enter_sub();
@@
-144,32
+146,32
@@
sub authenticate {
if ($is_crypted) {
$main::lxdebug->leave_sub();
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();
}
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);
}
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();
if (!$dn) {
$main::lxdebug->leave_sub();
- return
SL::Auth::
ERR_BACKEND;
+ return ERR_BACKEND;
}
my $mesg = $ldap->bind($dn, 'password' => $password);
}
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();
$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 {
}
sub can_change_password {
@@
-177,12
+179,15
@@
sub can_change_password {
}
sub change_password {
}
sub change_password {
- return
SL::Auth::
ERR_BACKEND;
+ return ERR_BACKEND;
}
sub verify_config {
$main::lxdebug->enter_sub();
}
sub verify_config {
$main::lxdebug->enter_sub();
+ my $form = $main::form;
+ my $locale = $main::locale;
+
my $self = shift;
my $cfg = $self->{auth}->{LDAP_config};
my $self = shift;
my $cfg = $self->{auth}->{LDAP_config};