Re: enumerating groups

[Padraig R. <rya...@it...>]

Hi,

Does anyone have a code snippet that will enumerate the groups from an ldap
server.

I have the follwing but am a bit stuck...Thanks.

Padraig

##############################################
## Funtion to return All Groups from Ldap   ##
##############################################

sub Get_Groups {

# Arguments to be passed in the following format..
# &Get_Groups;

 $ldap=Net::LDAP->new($Ldap_Server) or die 'Problem with Ldap $@';
 $Filter='(&(cn=*)(objectClass=groupOfUniqueNames))';  #search for all
Groups

 $result=&Search_Ldap($Search_Base, $Filter);
 print "<BR>====DEBUG==== result of group search=".$result if $DEBUG;

 @entries = $result->all_entries; #Store all found groups in table,
 print "<BR>====DEBUG==== entries=".@entries if $DEBUG;

 foreach (@entries) {
   $ptr = $_->get('Name');
   $i = 0;
   foreach $member (@$ptr){ #store each memberid in table
    @memberData = split(/,/, $member);
    $memberData[0] = substr($memberData[0], 4);
    print "<BR>====DEBUG==== Groups=".$Groups[$i] if $DEBUG;

    $Groups[$i] = $memberData[0];
    $i++;
      }
       }
return $Groups;
}


----------------------------------------------------------------
Padraig Ryan
IT Manager
Institute of Technology, Sligo
Ireland

P +353(0)71.55365
F +353(0)71.60475
M +353(0)87.2334062
E rya...@it...
W http://www.itsligo.ie/staff/pryan