scsh-conservatory
/
scsh-ldap
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

micro changes

This commit is contained in:
eknauel 2004-02-13 16:51:59 +00:00
parent 9cbc88c8c6
commit 570b38d599
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
etc/sample.scm
View File

@ -3,7 +3,7 @@
(define (open-anonymous-ldap-v3-session host)
(let ((session (ldap-init host)))
(set-ldap-session-option! (ldap-session-option-value protocol-version) 3 session)
(ldap-simple-bind-as-nobody session)
(ldap-simple-bind-anonymous session)
session))
(define (get-value-alist entry)
@ -17,11 +17,11 @@
(with-ldap-session
(open-anonymous-ldap-v3-session host)
(lambda ()
(let ((first-entry
(let ((result
(ldap-search
root-dn (ldap-scope-arguments onelevel)
"(objectClass=*)" ldap-attributes-all-user-attributes #f)))
(let lp ((entry (ldap-first-entry first-entry))
(let lp ((entry (ldap-first-entry result))
(res '()))
(if (not entry)
res