LDAP in progress (#595)

This commit is contained in:
Xavier Guimard 2016-05-07 11:27:08 +00:00
parent 0aa2c4c76f
commit 566dbcc9e2

View File

@ -46,7 +46,8 @@ has ldap => (
has ldapGroupAttributeNameSearch => ( has ldapGroupAttributeNameSearch => (
is => 'rw', is => 'rw',
builder => sub { builder => sub {
return [ return $_[0]->{conf}->{ldapGroupAttributeNameSearch}
? [
split( /\s+/, $_[0]->{conf}->{ldapGroupAttributeNameSearch} ), split( /\s+/, $_[0]->{conf}->{ldapGroupAttributeNameSearch} ),
# Push group attribute value for recursive search # Push group attribute value for recursive search
@ -56,7 +57,8 @@ has ldapGroupAttributeNameSearch => (
? $_[0]->{conf}->{ldapGroupAttributeNameGroup} ? $_[0]->{conf}->{ldapGroupAttributeNameGroup}
: () : ()
) )
]; ]
: [];
} }
); );
@ -96,7 +98,7 @@ s/\$req->\{sessionInfo\}->\{(_?password|mail)\}/\$req->{datas}->{$1}/g;
sub init { sub init {
my ($self) = @_; my ($self) = @_;
1; $self->ldap and $self->filter;
} }
sub getUser { sub getUser {