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)
{
return (undef);
}
- $dn = "cn=$sn $gn," . get_config ('base_dn');
+ $ou = 'Person';
+ $dn = "cn=$sn $gn,ou=$ou," . get_config ('base_dn');
- $entry->add (cn => "$sn $gn");
+ $entry->add (cn => "$sn $gn", ou => $ou);
$entry->dn ($dn);
$entry->changetype ('add');
$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;
=item I<$obj>-E<gt>B<uri> ([I<@uri>])
-=item I<$obj>-E<gt>B<group> ([I<@groups>])
-
Get or set the attribute. This is the same as calling S<I<$obj>-E<gt>B<set>
(I<$field>, I<\@values>)> or S<I<$obj>-E<gt>B<get> (I<$field>)>.
}
if (!defined ($ValidFields{$field}))
{
- return (undef);
+ return;
}
if (defined ($value))
$entry->update ($Ldap);
}
- $obj->{$field} = [] unless (defined ($obj->{$field}));
+ if (!defined ($obj->{$field}) and $ValidFields{$field})
+ {
+ $obj->{$field} = [];
+ }
if (wantarray () and $ValidFields{$field})
{