/usr/share/perl5/Lemonldap/NG/Portal/UserDBAD.pm is in liblemonldap-ng-portal-perl 1.9.16-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | ##@file
# AD user database backend file
##@class
# AD user database backend class
package Lemonldap::NG::Portal::UserDBAD;
use strict;
our $VERSION = '1.9.1';
use base qw(Lemonldap::NG::Portal::UserDBLDAP);
## @apmethod protected int formateFilter()
# Set the default LDAP filter for AD.
# By default, the user is searched in the LDAP server with sAMAccountName.
# @return Lemonldap::NG::Portal constant
sub formateFilter {
my $self = shift;
$self->{AuthLDAPFilter} ||= '(&(sAMAccountName=$user)(objectClass=person))';
$self->{mailLDAPFilter} ||= '(&(mail=$mail)(objectClass=person))';
return $self->SUPER::formateFilter;
}
1;
|