projects
/
licom.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bugfix: The created entries no longer are in the `top' or `organizationalUnit' object...
[licom.git]
/
lib
/
LiCoM
/
Person.pm
diff --git
a/lib/LiCoM/Person.pm
b/lib/LiCoM/Person.pm
index
6ba43a9
..
887e39e
100644
(file)
--- a/
lib/LiCoM/Person.pm
+++ b/
lib/LiCoM/Person.pm
@@
-105,8
+105,9
@@
sub create
my %hash = @_;
my $entry = Net::LDAP::Entry->new ();
my $dn;
my %hash = @_;
my $entry = Net::LDAP::Entry->new ();
my $dn;
+ my $ou;
- $entry->add (objectClass => [qw(
top organizationalUnit
person organizationalPerson inetOrgPerson)]);
+ $entry->add (objectClass => [qw(person organizationalPerson inetOrgPerson)]);
for (keys %hash)
{
for (keys %hash)
{
@@
-165,8
+166,9
@@
sub create
}
$dn = "cn=$sn $gn," . get_config ('base_dn');
}
$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');
$entry->dn ($dn);
$entry->changetype ('add');