Cómo recuperar todos los grupos desde LDAP con Perl

Question

Tengo un script Perl que se une a un servidor LDAP y recupera todos los usuarios. Hasta ahora funciona bien, pero quiero filtrar esa búsqueda para reunir todos los grupos. Una vez que tenga todos los grupos, el usuario puede seleccionar uno de estos grupos y le mostraré solo los usuarios que sean miembros de ese grupo. ¿Cómo puedo hacer esas consultas? He probado esta:

my $mesg = $ldap->search(
    base => $base, 
    filter => '(objectclass=user)', 
    attrs => ['memberOf'] 
); 

Pero entonces algunos grupos se repiten y que tendrán que filtrar manualmente el resultado (y me gustaría evitar eso). ¿Y qué hay de la segunda consulta?

Answer 1

filtro cnThe para obtener todos los grupos es "(objectclass=group)" se puede retreive grupos en una sola organizationalUnit (scope => 'uno'), o en todo suborganización (scope => 'sub')

$mesg = $ldap->search( filter=>"(&(objectclass=group)(cn=the group choosen by the user)", 
         base=>"ou=Monou,dc=societe,dc=fr" 
         scope=>"sub" 
         attrs=> ['cn', 'member']); 
@entries = $mesg->entries; 
foreach $entry (@entries) 
{ 
    $entry->dump; 
    @member = $entry->get_value("member"); # returns all members 
} 

Para más ayuda, consulta An Introduction to perl-ldap

---

Editado

Entonces el filtro que estabas buscando es:

(&(objectClass=user)(memberof=CN=Mongroupe,OU=MonOU,DC=societe,DC=fr)) 

Answer 2

Use objectclass = * para obtener todo.

my $msg = $ldap->search(base => $dn, 
      scope => 'one', 
      filter => "(objectclass=*)"); 
$msg->all_entries;