+ my $obj;
+
+ my $mesg = $Ldap->search
+ (
+ base => 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);