Signed-off-by: Dominik Csapak <d.csapak@proxmox.com>
- my ($ldap, $base_dn, $classes, $filter) = @_;
+ my ($ldap, $base_dn, $classes, $filter, $group_name_attr) = @_;
my $tmp = "(|";
for my $class (@$classes) {
my $tmp = "(|";
for my $class (@$classes) {
my $page = Net::LDAP::Control::Paged->new(size => 100);
my $page = Net::LDAP::Control::Paged->new(size => 100);
+ my $attrs = [ 'member', 'uniqueMember' ];
+ push @$attrs, $group_name_attr if $group_name_attr;
my @args = (
base => $base_dn,
scope => "subtree",
filter => $filter,
control => [ $page ],
my @args = (
base => $base_dn,
scope => "subtree",
filter => $filter,
control => [ $page ],
- attrs => [ 'member', 'uniqueMember' ],
$members = [$entry->get_value('uniqueMember')];
}
$group->{members} = $members;
$members = [$entry->get_value('uniqueMember')];
}
$group->{members} = $members;
+ if ($group_name_attr && (my $name = $entry->get_value($group_name_attr))) {
+ $group->{name} = $name;
+ }