/[emacs]/emacs/lisp/net/eudcb-ldap.el
ViewVC logotype

Diff of /emacs/lisp/net/eudcb-ldap.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by pj, Sun Jan 6 16:37:03 2002 UTC revision 1.5 by pj, Sun Jan 6 17:54:21 2002 UTC
# Line 89  Line 89 
89    (mapconcat 'identity (split-string string "\\$") "\n"))    (mapconcat 'identity (split-string string "\\$") "\n"))
90    
91  ;; Cleanup a LDAP record to make it suitable for EUDC:  ;; Cleanup a LDAP record to make it suitable for EUDC:
92  ;;   Make the record a cons-cell instead of a list if the it's single-valued  ;;   Make the record a cons-cell instead of a list if it is single-valued
93  ;;   Filter the $ character in addresses into \n if not done by the LDAP lib  ;;   Filter the $ character in addresses into \n if not done by the LDAP lib
94  (defun eudc-ldap-cleanup-record-filtering-addresses (record)  (defun eudc-ldap-cleanup-record-filtering-addresses (record)
95    (mapcar    (mapcar
# Line 146  attribute names are returned. Default to Line 146  attribute names are returned. Default to
146    (let ((ldap-host-parameters-alist    (let ((ldap-host-parameters-alist
147           (list (cons eudc-server           (list (cons eudc-server
148                       '(scope subtree sizelimit 1)))))                       '(scope subtree sizelimit 1)))))
149      (mapcar 'eudc-ldap-cleanup-record      (mapcar 'eudc-ldap-cleanup-record-simple
150              (ldap-search              (ldap-search
151               (eudc-ldap-format-query-as-rfc1558               (eudc-ldap-format-query-as-rfc1558
152                (list (cons "objectclass"                (list (cons "objectclass"

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26