my %hash = @_;
my $entry = Net::LDAP::Entry->new ();
my $dn;
+ my $ou;
$entry->add (objectClass => [qw(top organizationalUnit person organizationalPerson inetOrgPerson)]);
}
$dn = "cn=$sn $gn," . get_config ('base_dn');
+ ($ou) = get_config ('base_dn') =~ m/\bou\s*=\s*([^,]+)/i;
- $entry->add (cn => "$sn $gn");
+ $entry->add (cn => "$sn $gn", ou => $ou);
$entry->dn ($dn);
$entry->changetype ('add');