Posted to tcl by apn at Fri Nov 08 11:56:59 GMT 2019view raw

  1. % set base dc=example,dc=com
  2. dc=example,dc=com
  3. % set result [ldap::search $s $base ou=* {}]
  4. {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}}
  5. % llength $result
  6. 4
  7. % join $result \n
  8. 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}}
  9. 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}}
  10. ou=italians,ou=scientists,dc=example,dc=com {uniqueMember uid=tesla,dc=example,dc=com ou italians cn Italians objectClass {groupOfUniqueNames top}}
  11. 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}