Perl ile tüm Gruplar nasıl geri alınır?

Question

Bir LDAP sunucusuna bağlanan ve tüm kullanıcıları alan bir Perl betiğim var. Şimdiye kadar iyi çalışıyor ama tüm grupları toplamak için bu aramayı filtrelemek istiyorum. Tüm gruplara sahip olduğumda, kullanıcı bu gruplardan birini seçebilir ve ona yalnızca o grubun üyesi olan kullanıcıları göstereceğim. Bu sorguları nasıl yapabilirim? Ben uğraş bu bir:

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

Ama

sonra bazı gruplar tekrarlanır ve el Sonuca filtre gerekir (ve bunu önlemek isterim). Ve ikinci sorgudan ne haber?

Answer 1

tüm grupları elde etmek için "(objectclass=group)" Tüm alt kuruluşuna tek organizationalUnit (kapsam => 'bir') veya grupları retreive olabilir olduğu (kapsam => 'alt')

$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 
} 

daha fazla yardım için

Düzenlendi An Introduction to perl-ldap

---

bkz

Dolayısıyla, aradığınız filtre:

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

Answer 2

Tümü almak için objectclass = * kullanın. cnThe filtresi

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