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

+ changed ldap-modify to use the new representation of LDAPMod records 

+ added ldap-add
This commit is contained in:
eknauel 2004-02-16 08:33:13 +00:00
parent 7122c8a1e6
commit 246f7e8929
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
scheme/ldap.scm
View File

@ -568,20 +568,26 @@
(define (ldap-modify dn ldap-modifications . args)
(let-optionals args ((session (current-ldap-session)))
(let ((vec (if (list? ldap-modifications)
(list->vector ldap-modifications)
(vector ldap-modifications))))
(let ((ret-obj
(convert-ldap-return-code (ldap-modify-internal session dn vec))))
(or (ldap-success? ret-obj)
(raise-ldap-condition ret-obj session))))))
(let ((ret-obj
(convert-ldap-return-code
(ldap-modify-internal session dn ldap-modifications))))
(or (ldap-success? ret-obj)
(raise-ldap-condition ret-obj session)))))
;;;
(import-lambda-definition ldap-add-internal
(session dn ldap-modification-vector)
(session dn ldap-modifications)
"scsh_ldap_add")
(define (ldap-add dn ldap-modifications . args)
(let-optionals args ((session (current-ldap-session)))
(let ((ret-obj
(convert-ldap-return-code
(ldap-add-internal session dn ldap-modifications))))
(or (ldap-success? ret-obj)
(raise-ldap-condition ret-obj session)))))
(import-lambda-definition ldap-delete-internal
(session dn)
"scsh_ldap_delete")