26 lines
549 B
Perl
26 lines
549 B
Perl
# UserDB::AD inherits from UserDB::LDAP. It just redefined default filter
|
|
package Lemonldap::NG::Portal::UserDB::AD;
|
|
|
|
use strict;
|
|
use Mouse;
|
|
|
|
our $VERSION = '2.0.0';
|
|
|
|
extends 'Lemonldap::NG::Portal::UserDB::LDAP';
|
|
|
|
# PROPERTIES
|
|
|
|
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;
|
|
}
|
|
);
|
|
|
|
1;
|