Commit 1843fe74 authored by Clément OUDOT's avatar Clément OUDOT
Browse files

Create stop method for AD backend (#914)

parent 156e8be7
...@@ -7,7 +7,7 @@ package Lemonldap::NG::Portal::AuthAD; ...@@ -7,7 +7,7 @@ package Lemonldap::NG::Portal::AuthAD;
use strict; use strict;
our $VERSION = '1.4.6'; our $VERSION = '1.9.0';
use Lemonldap::NG::Portal::Simple; use Lemonldap::NG::Portal::Simple;
use base qw(Lemonldap::NG::Portal::AuthLDAP); use base qw(Lemonldap::NG::Portal::AuthLDAP);
...@@ -124,4 +124,17 @@ sub authenticate { ...@@ -124,4 +124,17 @@ sub authenticate {
return $res; return $res;
} }
## @method boolean stop
# Define which error codes will stop Multi process
# @param res error code
# @return result 1 if stop is needed
sub stop {
my ( $self, $res ) = @_;
return 1
if ( $res == PE_PP_PASSWORD_EXPIRED
or $res == PE_PP_CHANGE_AFTER_RESET );
return 0;
}
1; 1;
...@@ -10,7 +10,7 @@ use Lemonldap::NG::Portal::_LDAP 'ldap'; #link protected ldap ...@@ -10,7 +10,7 @@ use Lemonldap::NG::Portal::_LDAP 'ldap'; #link protected ldap
use Lemonldap::NG::Portal::_WebForm; use Lemonldap::NG::Portal::_WebForm;
use Lemonldap::NG::Portal::UserDBLDAP; #inherits use Lemonldap::NG::Portal::UserDBLDAP; #inherits
our $VERSION = '1.4.0'; our $VERSION = '1.9.0';
use base qw(Lemonldap::NG::Portal::_WebForm); use base qw(Lemonldap::NG::Portal::_WebForm);
*_formateFilter = *Lemonldap::NG::Portal::UserDBLDAP::formateFilter; *_formateFilter = *Lemonldap::NG::Portal::UserDBLDAP::formateFilter;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment