From 570b38d5998dc91be2d9a0b8f2969c74fe5d1c7d Mon Sep 17 00:00:00 2001 From: eknauel Date: Fri, 13 Feb 2004 16:51:59 +0000 Subject: [PATCH] micro changes --- etc/sample.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/etc/sample.scm b/etc/sample.scm index 878252a..2eb11be 100644 --- a/etc/sample.scm +++ b/etc/sample.scm @@ -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