lemonldap-ng/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDB/AD.pm

36 lines
783 B
Perl
Raw Normal View History

2016-05-20 06:49:00 +02:00
# UserDB::AD inherits from UserDB::LDAP. It just redefined default filter
2016-05-19 23:00:58 +02:00
package Lemonldap::NG::Portal::UserDB::AD;
use strict;
use Mouse;
2021-01-02 18:58:40 +01:00
our $VERSION = '2.0.11';
2016-05-19 23:00:58 +02:00
extends 'Lemonldap::NG::Portal::UserDB::LDAP';
2016-06-09 20:40:20 +02:00
# PROPERTIES
2016-05-19 23:00:58 +02:00
has filter => (
is => 'rw',
lazy => 1,
builder => sub {
$_[0]->{conf}->{AuthLDAPFilter} ||=
'(&(sAMAccountName=$user)(objectClass=person))';
$_[0]->{conf}->{mailLDAPFilter} ||=
'(&(mail=$mail)(objectClass=person))';
return $_[0]->buildFilter;
}
);
has findUserFilter => (
is => 'ro',
lazy => 1,
builder => sub {
$_[0]->conf->{AuthLDAPFilter}
|| $_[0]->conf->{LDAPFilter}
|| '(&(sAMAccountName=$user)(objectClass=person))';
}
);
2016-05-19 23:00:58 +02:00
1;