ldap query

% set base dc=example,dc=com
dc=example,dc=com
% set result [ldap::search $s $base ou=* {}]
{ou=mathematicians,dc=example,dc=com {uniqueMember {uid=euclid,dc=example,dc=com uid=riemann,dc=example,dc=com uid=euler,dc=example,dc=com uid=gauss,dc=example,dc=com uid=test,dc=example,dc=com} ou mathematicians cn Mathematicians objectClass {groupOfUniqueNames top}}} {ou=scientists,dc=example,dc=com {uniqueMember {uid=einstein,dc=example,dc=com uid=galieleo,dc=example,dc=com uid=tesla,dc=example,dc=com uid=newton,dc=example,dc=com uid=training,dc=example,dc=com uid=jmacy,dc=example,dc=com} ou scientists cn Scientists objectClass {groupOfUniqueNames top}}} {ou=italians,ou=scientists,dc=example,dc=com {uniqueMember uid=tesla,dc=example,dc=com ou italians cn Italians objectClass {groupOfUniqueNames top}}} {ou=chemists,dc=example,dc=com {ou chemists objectClass {groupOfUniqueNames top} uniqueMember {uid=curie,dc=example,dc=com uid=boyle,dc=example,dc=com uid=nobel,dc=example,dc=com uid=pasteur,dc=example,dc=com} cn Chemists}}
% llength $result
4
% join $result \n
ou=mathematicians,dc=example,dc=com {uniqueMember {uid=euclid,dc=example,dc=com uid=riemann,dc=example,dc=com uid=euler,dc=example,dc=com uid=gauss,dc=example,dc=com uid=test,dc=example,dc=com} ou mathematicians cn Mathematicians objectClass {groupOfUniqueNames top}}
ou=scientists,dc=example,dc=com {uniqueMember {uid=einstein,dc=example,dc=com uid=galieleo,dc=example,dc=com uid=tesla,dc=example,dc=com uid=newton,dc=example,dc=com uid=training,dc=example,dc=com uid=jmacy,dc=example,dc=com} ou scientists cn Scientists objectClass {groupOfUniqueNames top}}
ou=italians,ou=scientists,dc=example,dc=com {uniqueMember uid=tesla,dc=example,dc=com ou italians cn Italians objectClass {groupOfUniqueNames top}}
ou=chemists,dc=example,dc=com {ou chemists objectClass {groupOfUniqueNames top} uniqueMember {uid=curie,dc=example,dc=com uid=boyle,dc=example,dc=com uid=nobel,dc=example,dc=com uid=pasteur,dc=example,dc=com} cn Chemists}