dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Tidy (#2620)

Browse Source
This commit is contained in:
Christophe Maudoux 2021-09-30 23:13:04 +02:00
parent 8235248771
commit ed56a171b9
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/Net/LDAP.pm
View File

@ -14,7 +14,7 @@ use Scalar::Util 'weaken';
use IO::Socket::Timeout;
use utf8;
our $VERSION = '2.0.14';
our $VERSION = '2.0.14';
# INITIALIZATION
@ -138,8 +138,9 @@ sub bind {
if ( $mesg->code ) {
my ($resp) = $mesg->control("1.3.6.1.4.1.42.2.27.8.5.1");
# Check for ppolicy error
my $pp_error = $resp->pp_error if (defined($resp));
my $pp_error = $resp->pp_error if ( defined($resp) );
if ( defined $pp_error ) {
my $ppolicy_error = [
"password expired",
@ -150,18 +151,20 @@ sub bind {
"insufficient password quality",
"password too short",
"password too young",
"password in history",
"password in history"
]->[$pp_error];
$self->{portal}->logger->error( "Error when binding to LDAP server: ". $mesg->error.
" | extended ppolicy control response error: ".$ppolicy_error );
$self->{portal}
->logger->error( "Error when binding to LDAP server: "
. $mesg->error
. " | extended ppolicy control response error: $ppolicy_error"
);
}
else
{
$self->{portal}->logger->error( "Error when binding to LDAP server: ". $mesg->error );
else {
$self->{portal}->logger->error(
"Error when binding to LDAP server: " . $mesg->error );
}
}
}
else {
$mesg = $self->SUPER::bind();
@ -169,7 +172,6 @@ sub bind {
return $mesg;
}
## @method Net::LDAP::Message unbind()
# Reimplementation of Net::LDAP::unbind() to force call to disconnect()
# @return Net::LDAP::Message