Lines Matching defs:ldap
1 ;;; eudcb-ldap.el --- Emacs Unified Directory Client - LDAP Backend
37 (require 'ldap)
43 (if (fboundp 'ldap-get-host-parameter)
44 (fset 'eudc-ldap-get-host-parameter 'ldap-get-host-parameter)
45 (defun eudc-ldap-get-host-parameter (host parameter)
46 "Get the value of PARAMETER for HOST in `ldap-host-parameters-alist'."
47 (plist-get (cdr (assoc host ldap-host-parameters-alist))
50 (defvar eudc-ldap-attributes-translation-alist
57 (eudc-protocol-set 'eudc-query-function 'eudc-ldap-simple-query-internal
58 'ldap)
59 (eudc-protocol-set 'eudc-list-attributes-function 'eudc-ldap-get-field-list
60 'ldap)
62 'eudc-ldap-attributes-translation-alist 'ldap)
64 'eudc-ldap-bbdb-conversion-alist
65 'ldap)
66 (eudc-protocol-set 'eudc-protocol-has-default-query-attributes nil 'ldap)
74 'ldap)
76 '(eudc-ldap-check-base)
77 'ldap)
79 (defun eudc-ldap-cleanup-record-simple (record)
96 (defun eudc-ldap-cleanup-record-filtering-addresses (record)
110 (defun eudc-ldap-simple-query-internal (query &optional return-attrs)
116 (let ((result (ldap-search (eudc-ldap-format-query-as-rfc1558 query)
121 (if (or (not (boundp 'ldap-ignore-attribute-codings))
122 ldap-ignore-attribute-codings)
124 (mapcar 'eudc-ldap-cleanup-record-filtering-addresses result))
125 (setq result (mapcar 'eudc-ldap-cleanup-record-simple result)))
141 (defun eudc-ldap-get-field-list (dummy &optional objectclass)
148 (let ((ldap-host-parameters-alist
151 (mapcar 'eudc-ldap-cleanup-record-simple
152 (ldap-search
153 (eudc-ldap-format-query-as-rfc1558
159 (defun eudc-ldap-escape-query-special-chars (string)
173 (defun eudc-ldap-format-query-as-rfc1558 (query)
180 (eudc-ldap-escape-query-special-chars (cdr item))))
188 (defun eudc-ldap-customize ()
191 (customize-group 'eudc-ldap))
193 (defun eudc-ldap-check-base ()
195 (unless (or (eudc-ldap-get-host-parameter eudc-server 'base)
196 ldap-default-base
198 ;; If the server is not in ldap-host-parameters-alist we add it for the
200 (if (null (assoc eudc-server ldap-host-parameters-alist))
201 (setq ldap-host-parameters-alist
202 (cons (list eudc-server) ldap-host-parameters-alist)))
203 (customize-variable 'ldap-host-parameters-alist)))
208 (eudc-register-protocol 'ldap)
210 (provide 'eudcb-ldap)
213 ;;; eudcb-ldap.el ends here