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 ();
my $mesg = $Ldap->search
(
- base => get_config ('base_dn'),
+ base => 'ou=Group,' . get_config ('base_dn'),
filter => "(objectClass=groupOfNames)"
);
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