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

LEMONLDAP::NG : * bug correction : AuthLDAP can now be used without UserDBLDAP

Browse Source
This commit is contained in:
Xavier Guimard 2008-12-03 16:43:31 +00:00
parent 35df5dddb8
commit b8905b4247
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthLDAP.pm
View File

@ -3,9 +3,10 @@ package Lemonldap::NG::Portal::AuthLDAP;
use Lemonldap::NG::Portal::Simple;
use Lemonldap::NG::Portal::_LDAP;
use Lemonldap::NG::Portal::_WebForm;
use Lemonldap::NG::Portal::UserDBLDAP;
our $VERSION = '0.1';
our @ISA = qw(Lemonldap::NG::Portal::_WebForm);
use base qw(Lemonldap::NG::Portal::_WebForm);
sub ldap {
my $self = shift;
@ -19,12 +20,21 @@ sub ldap {
return $self->{ldap};
}
*_formateFilter = *Lemonldap::NG::Portal::UserDBLDAP::formateFilter;
*_search = *Lemonldap::NG::Portal::UserDBLDAP::search;
sub authenticate {
my $self = shift;
unless ( $self->ldap ) {
return PE_LDAPCONNECTFAILED;
}
# Set the dn unless done before
unless($self->{dn}) {
my $tmp = $self->_subProcess(qw(_formateFilter _search));
return $tmp if($tmp);
}
# Check if we use Ppolicy control
if ( $self->{ldapPpolicyControl} ) {