Mercurial > emacs
comparison lisp/net/eudcb-ldap.el @ 42578:281571076b02
(eudc-ldap-get-field-list): Do not try to call non-existent function.
author | Pavel Janík <Pavel@Janik.cz> |
---|---|
date | Sun, 06 Jan 2002 17:54:21 +0000 |
parents | fcac9cd201ad |
children | 897623591168 |
comparison
equal
deleted
inserted
replaced
42577:5b7e0e31b555 | 42578:281571076b02 |
---|---|
87 | 87 |
88 (defun eudc-filter-$ (string) | 88 (defun eudc-filter-$ (string) |
89 (mapconcat 'identity (split-string string "\\$") "\n")) | 89 (mapconcat 'identity (split-string string "\\$") "\n")) |
90 | 90 |
91 ;; Cleanup a LDAP record to make it suitable for EUDC: | 91 ;; 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 | 92 ;; 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 | 93 ;; Filter the $ character in addresses into \n if not done by the LDAP lib |
94 (defun eudc-ldap-cleanup-record-filtering-addresses (record) | 94 (defun eudc-ldap-cleanup-record-filtering-addresses (record) |
95 (mapcar | 95 (mapcar |
96 (function | 96 (function |
97 (lambda (field) | 97 (lambda (field) |
144 (or eudc-server | 144 (or eudc-server |
145 (call-interactively 'eudc-set-server)) | 145 (call-interactively 'eudc-set-server)) |
146 (let ((ldap-host-parameters-alist | 146 (let ((ldap-host-parameters-alist |
147 (list (cons eudc-server | 147 (list (cons eudc-server |
148 '(scope subtree sizelimit 1))))) | 148 '(scope subtree sizelimit 1))))) |
149 (mapcar 'eudc-ldap-cleanup-record | 149 (mapcar 'eudc-ldap-cleanup-record-simple |
150 (ldap-search | 150 (ldap-search |
151 (eudc-ldap-format-query-as-rfc1558 | 151 (eudc-ldap-format-query-as-rfc1558 |
152 (list (cons "objectclass" | 152 (list (cons "objectclass" |
153 (or objectclass | 153 (or objectclass |
154 "person")))) | 154 "person")))) |