my $mesg = $Ldap->search
(
- base => get_config ('base_dn'),
+ base => 'ou=Group,' . get_config ('base_dn'),
filter => "(&(objectClass=groupOfNames)(cn=$name))"
);
my $mesg = $Ldap->search
(
- base => get_config ('base_dn'),
+ base => 'ou=Group,' . get_config ('base_dn'),
filter => "(&(objectClass=groupOfNames)(member=$dn))"
);
my $desc = shift;
my @members = @_;
my $dn = _cn_to_dn ($name);
- my ($ou) = get_config ('base_dn') =~ m/\bou\s*=\s*([^,]+)/i;
+ my $ou = 'Group';
my $entry = Net::LDAP::Entry->new ();
$entry->add (ou => $ou);
$entry->add (cn => $name);
$entry->add (member => [map { _cn_to_dn ($_) } (@members)]);
- $entry->add (description => $desc);
+ $entry->add (description => $desc) if ($desc);
$entry->dn ($dn);
$entry->changetype ('add');
my $mesg = $Ldap->search
(
- base => get_config ('base_dn'),
+ base => 'ou=Group,' . get_config ('base_dn'),
filter => "(objectClass=groupOfNames)"
);
$obj->{'description'} = shift;
$entry->changetype ('modify');
- $entry->replace (description => $obj->{'description'});
+ $entry->replace (description => [$obj->{'description'}]);
$entry->update ($Ldap);
}
my $cn = shift;
my $base_dn = get_config ('base_dn') or die;
- return ('cn=' . $cn . ',' . $base_dn);
+ return ('cn=' . $cn . ',ou=Group,' . $base_dn);
}
sub _update_members