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 |
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" |