return (undef);
}
- $dn = "cn=$sn $gn," . get_config ('base_dn');
- ($ou) = get_config ('base_dn') =~ m/\bou\s*=\s*([^,]+)/i;
+ $ou = 'Person';
+ $dn = "cn=$sn $gn,ou=$ou," . get_config ('base_dn');
$entry->add (cn => "$sn $gn", ou => $ou);
$entry->dn ($dn);
$mesg = $Ldap->search
(
- base => get_config ('base_dn'),
+ base => 'ou=Person,' . get_config ('base_dn'),
filter => $filter
);
my $mesg = $Ldap->search
(
- base => get_config ('base_dn'),
+ base => 'ou=Person,' . get_config ('base_dn'),
filter => "(cn=$search)"
);
my $sn = $obj->{'sn'};
my $gn = $obj->{'givenName'};
my $cn = "$sn $gn";
- my $dn = "cn=$cn," . get_config ('base_dn');
+ my $dn = "cn=$cn,ou=Person," . get_config ('base_dn');
$obj->{'cn'} = $cn;