Gecko [ 122.154.134.11 ]

Name	Size	Permission
ange-ftp.elc	116.81 KB	-rw-r--r--
browse-url.el.xdg	57.99 KB	-rw-r--r--
browse-url.elc	46.94 KB	-rw-r--r--
dbus.elc	28.38 KB	-rw-r--r--
dig.elc	5.08 KB	-rw-r--r--
dns.elc	11.33 KB	-rw-r--r--
eudc-bob.elc	9.11 KB	-rw-r--r--
eudc-export.elc	5.9 KB	-rw-r--r--
eudc-hotlist.elc	5.71 KB	-rw-r--r--
eudc-vars.elc	14.61 KB	-rw-r--r--
eudc.elc	32.17 KB	-rw-r--r--
eudcb-bbdb.elc	5.41 KB	-rw-r--r--
eudcb-ldap.elc	5.18 KB	-rw-r--r--
eudcb-mab.elc	2.88 KB	-rw-r--r--
eudcb-ph.elc	6.44 KB	-rw-r--r--
goto-addr.elc	9.28 KB	-rw-r--r--
hmac-def.elc	2.07 KB	-rw-r--r--
hmac-md5.elc	2.15 KB	-rw-r--r--
imap.elc	104.58 KB	-rw-r--r--
ldap.elc	14.29 KB	-rw-r--r--
mairix.elc	24.37 KB	-rw-r--r--
net-utils.elc	25.21 KB	-rw-r--r--
netrc.elc	4.79 KB	-rw-r--r--
newst-backend.elc	66.66 KB	-rw-r--r--
newst-plainview.elc	51.17 KB	-rw-r--r--
newst-reader.elc	28.81 KB	-rw-r--r--
newst-ticker.elc	7.82 KB	-rw-r--r--
newst-treeview.elc	67.9 KB	-rw-r--r--
newsticker.elc	1.01 KB	-rw-r--r--
ntlm.elc	12.39 KB	-rw-r--r--
quickurl.elc	16.54 KB	-rw-r--r--
rcirc.elc	89.27 KB	-rw-r--r--
rcompile.elc	3.51 KB	-rw-r--r--
rlogin.elc	10.63 KB	-rw-r--r--
sasl-cram.elc	1.25 KB	-rw-r--r--
sasl-digest.elc	3.75 KB	-rw-r--r--
sasl-ntlm.elc	1.82 KB	-rw-r--r--
sasl.elc	7.39 KB	-rw-r--r--
snmp-mode.elc	15.08 KB	-rw-r--r--
socks.elc	16.21 KB	-rw-r--r--
telnet.elc	9.03 KB	-rw-r--r--
tls.elc	8.04 KB	-rw-r--r--
tramp-cache.elc	8.96 KB	-rw-r--r--
tramp-cmds.elc	9.4 KB	-rw-r--r--
tramp-compat.elc	6 KB	-rw-r--r--
tramp-fish.elc	54.2 KB	-rw-r--r--
tramp-ftp.elc	5.33 KB	-rw-r--r--
tramp-gw.elc	13.27 KB	-rw-r--r--
tramp-smb.elc	50.78 KB	-rw-r--r--
tramp-uu.elc	1.88 KB	-rw-r--r--
tramp.elc	278.99 KB	-rw-r--r--
trampver.elc	1.06 KB	-rw-r--r--
webjump.elc	13.86 KB	-rw-r--r--
xesam.elc	24.5 KB	-rw-r--r--
zeroconf.elc	17.98 KB	-rw-r--r--

Code Editor : eudcb-ldap.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:31 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/net/eudcb-ldap.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`eudcb-ldap.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301!\210\300\302!\210\303\304!\203�\305\304M\210\202�\306\305\307\"\210\300\207" [require eudc ldap fboundp ldap-get-host-parameter eudc-ldap-get-host-parameter defalias #[(host parameter) "\303\304	\"A\n\"\207" [host ldap-host-parameters-alist parameter plist-get assoc] 4 "Get the value of PARAMETER for HOST in `ldap-host-parameters-alist'."]] 3)
#@51 Alist mapping EUDC attribute names to LDAP names.
(defvar eudc-ldap-attributes-translation-alist '((name . sn) (firstname . givenname) (email . mail) (phone . telephonenumber)) (#$ . 985))
(byte-code "\300\301\302\303#\210\300\304\305\303#\210\300\306\307\303#\210\300\310\311\303#\210\300\312\313\303#\210\300\314\315\303#\210\300\316\317\303#\207" [eudc-protocol-set eudc-query-function eudc-ldap-simple-query-internal ldap eudc-list-attributes-function eudc-ldap-get-field-list eudc-protocol-attributes-translation-alist eudc-ldap-attributes-translation-alist eudc-bbdb-conversion-alist eudc-ldap-bbdb-conversion-alist eudc-protocol-has-default-query-attributes nil eudc-attribute-display-method-alist (("jpegphoto" . eudc-display-jpeg-inline) ("labeledurl" . eudc-display-url) ("audio" . eudc-display-sound) ("labeleduri" . eudc-display-url) ("mail" . eudc-display-mail) ("url" . eudc-display-url)) eudc-switch-to-server-hook (eudc-ldap-check-base)] 4)
#@59 Do some cleanup in a RECORD to make it suitable for EUDC.
(defalias 'eudc-ldap-cleanup-record-simple #[(record) "\301\302\"\207" [record mapcar #[(field) "\301@!AA\203�A\202�A@B\207" [field intern] 2]] 3 (#$ . 1948)])
(defalias 'eudc-filter-$ #[(string) "\301\302\303\304\"\305#\207" [string mapconcat identity split-string "\\$" "\n"] 5])
(defalias 'eudc-ldap-cleanup-record-filtering-addresses #[(record) "\301\302\"\207" [record mapcar #[(field) "\303@!A\211\304>\203�\305\306	\"\n	A\203�	\202�	@*B\207" [field value name intern (postaladdress registeredaddress) mapcar eudc-filter-$] 4]] 3])
#@226 Query the LDAP server with QUERY.
QUERY is a list of cons cells (ATTR . VALUE) where ATTRs should be valid
LDAP attribute names.
RETURN-ATTRS is a list of attributes to return, defaulting to
`eudc-default-return-attributes'.
(defalias 'eudc-ldap-simple-query-internal #[(query &optional return-attrs) "\306\307!	\n<\205�\310\311\n\"#\312\313\305!\203�
\203$�\310\314\f\"\202)�\310\315\f\"\203=�\n\203=�\n\316=\204=�\317\f\n\"\320=\204I�\321\322\f\"\210*\207" [query eudc-server return-attrs final-result result ldap-ignore-attribute-codings ldap-search eudc-ldap-format-query-as-rfc1558 mapcar symbol-name nil boundp eudc-ldap-cleanup-record-filtering-addresses eudc-ldap-cleanup-record-simple all eudc-filter-partial-records list mapc #[(record) "\302\303!	\"\211\207" [record final-result append eudc-filter-duplicate-attributes] 3] eudc-strict-return-matches eudc-duplicate-attribute-handling-method] 6 (#$ . 2568)])
#@171 Return a list of valid attribute names for the current server.
OBJECTCLASS is the LDAP object class for which the valid
attribute names are returned. Default to `person'
(defalias 'eudc-ldap-get-field-list #[(dummy &optional objectclass) "\204�\303\304!\210\305BC\306\307\310\311\312\n\206�\313BC!\314\315$\")\207" [eudc-server ldap-host-parameters-alist objectclass call-interactively eudc-set-server (scope subtree sizelimit 1) mapcar eudc-ldap-cleanup-record-simple ldap-search eudc-ldap-format-query-as-rfc1558 "objectclass" "person" nil t] 7 (#$ . 3510) nil])
#@68 Value is STRING with characters forbidden in LDAP queries escaped.
(defalias 'eudc-ldap-escape-query-special-chars #[(string) "\301\211\211\211\302\303#\304\305#\306\307#\310\311!\312#\207" [string eudc-replace-in-string "\\\\" "\\5c" "(" "\\28" ")" "\\29" char-to-string 0 "\\00"] 7 (#$ . 4087)])
#@61 Format the EUDC QUERY list as a RFC1558 LDAP search filter.
(defalias 'eudc-ldap-format-query-as-rfc1558 #[(query) "\301\302\303\304\305\306\"\"\"\207" [query format "(&%s)" apply concat mapcar #[(item) "\301\302@\303A!#\207" [item format "(%s=%s)" eudc-ldap-escape-query-special-chars] 5]] 7 (#$ . 4392)])
#@34 Customize the EUDC LDAP support.
(defalias 'eudc-ldap-customize #[nil "\300\301!\207" [customize-group eudc-ldap] 2 (#$ . 4708) nil])
#@64 Check if the current LDAP server has a configured search base.
(defalias 'eudc-ldap-check-base #[nil "\303\304\"\206�	\206�\305\306!??\205\"�\307\n\"\204�C\nB\310\302!\207" [eudc-server ldap-default-base ldap-host-parameters-alist eudc-ldap-get-host-parameter base y-or-n-p "No search base defined. Configure it now? " assoc customize-variable] 3 (#$ . 4848)])
(byte-code "\300\301!\210\302\303!\207" [eudc-register-protocol ldap provide eudcb-ldap] 2)

${this.title}

Code Editor : eudcb-ldap.elc