{
my $pkg = shift;
my $name = shift;
- my $member_dn = _cn_to_dn ($name);
+ my $obj;
+
+ my $mesg = $Ldap->search
+ (
+ base => 'ou=Group,' . get_config ('base_dn'),
+ filter => "(&(objectClass=groupOfNames)(cn=$name))"
+ );
+
+ if ($mesg->is_error ())
+ {
+ warn ("Error while querying LDAP server: " . $mesg->error_text ());
+ return (undef);
+ }
+
+ for ($mesg->entries ())
+ {
+ my $entry = $_;
+ $obj = new ($pkg, $entry);
+ last;
+ }
+
+ return ($obj);
+}
+
+sub load_by_member
+{
+ my $pkg = shift;
+ my $cn = shift;
+ my $dn = _cn_to_dn ($cn);
my @retval = ();
my $mesg = $Ldap->search
(
- base => get_config ('base_dn'),
- filter => "(&(objectClass=groupOfNames)(|(cn=$name)(member=$member_dn)))"
+ base => 'ou=Group,' . get_config ('base_dn'),
+ filter => "(&(objectClass=groupOfNames)(member=$dn))"
);
if ($mesg->is_error ())
return (@retval);
}
-=item LiCoM::Group-E<gt>B<create> (I<$name>, I<$description>, I<@members>)
+
+=item LiCoM::Group-E<gt>B<create> (I<$name>, I<$description>, I<@member_cns>)
Creates and returns a new group. At least one member has to be given to meet
-LDAP requirements. I<@members> is an array of B<LiCoM::Person>-objects.
+LDAP requirements. I<@members> is an array of CNs.
=cut
my $desc = shift;
my @members = @_;
my $dn = _cn_to_dn ($name);
+ my $ou = 'Group';
my $entry = Net::LDAP::Entry->new ();
$entry->add (objectClass => [qw(top groupOfNames)]);
+ $entry->add (ou => $ou);
$entry->add (cn => $name);
- $entry->add (member => [map { $_->get ('dn') } (@members)]);
- $entry->add (description => $desc);
+ $entry->add (member => [map { _cn_to_dn ($_) } (@members)]);
+ $entry->add (description => $desc) if ($desc);
$entry->dn ($dn);
$entry->changetype ('add');
my $mesg = $Ldap->search
(
- base => get_config ('base_dn'),
+ base => 'ou=Group,' . get_config ('base_dn'),
filter => "(objectClass=groupOfNames)"
);
$obj->{'description'} = shift;
$entry->changetype ('modify');
- $entry->replace (description => $obj->{'description'});
+ $entry->replace (description => [$obj->{'description'}]);
$entry->update ($Ldap);
}
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