Mercurial > hg > xemacs-beta

comparison lisp/ldap.el @ 280:7df0dd720c89 r21-0b38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b38
author cvs
date Mon, 13 Aug 2007 10:32:22 +0200
parents 6330739388db
children c42ec1d1cded
comparison
equal deleted inserted replaced
279:c20b2fb5bb0a 280:7df0dd720c89
3 ;; Copyright (C) 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1997 Free Software Foundation, Inc.
4 4
5 ;; Author: Oscar Figueiredo <Oscar.Figueiredo@di.epfl.ch> 5 ;; Author: Oscar Figueiredo <Oscar.Figueiredo@di.epfl.ch>
6 ;; Maintainer: Oscar Figueiredo <Oscar.Figueiredo@di.epfl.ch> 6 ;; Maintainer: Oscar Figueiredo <Oscar.Figueiredo@di.epfl.ch>
7 ;; Created: Jan 1998 7 ;; Created: Jan 1998
8 ;; Version: $Revision: 1.3 $ 8 ;; Version: $Revision: 1.4 $
9 ;; Keywords: help comm 9 ;; Keywords: help comm
10 10
11 ;; This file is part of XEmacs 11 ;; This file is part of XEmacs
12 12
13 ;; XEmacs is free software; you can redistribute it and/or modify it 13 ;; XEmacs is free software; you can redistribute it and/or modify it
82 (if (null host) 82 (if (null host)
83 (error "No LDAP host specified")) 83 (error "No LDAP host specified"))
84 (setq host-alist 84 (setq host-alist
85 (assoc host ldap-host-parameters-alist)) 85 (assoc host ldap-host-parameters-alist))
86 (message "Opening LDAP connection to %s..." host) 86 (message "Opening LDAP connection to %s..." host)
87 (setq ldap (ldap-open host (alist-to-plist host-alist))) 87 (setq ldap (ldap-open host (alist-to-plist (cdr host-alist))))
88 (message "Searching with LDAP on %s..." host) 88 (message "Searching with LDAP on %s..." host)
89 (setq res (ldap-search-internal ldap filter 89 (setq res (ldap-search-internal ldap filter
90 (cdr (assq 'base host-alist)) 90 (cdr (assq 'base host-alist))
91 (cdr (assq 'scope host-alist)) 91 (cdr (assq 'scope host-alist))
92 attributes attrsonly)) 92 attributes attrsonly))