Gecko [ 122.154.134.11 ]

Name	Size	Permission
url-about.elc	2.7 KB	-rw-r--r--
url-auth.elc	10.21 KB	-rw-r--r--
url-cache.elc	5.79 KB	-rw-r--r--
url-cid.elc	1.44 KB	-rw-r--r--
url-cookie.elc	15.75 KB	-rw-r--r--
url-dav.elc	21.04 KB	-rw-r--r--
url-dired.elc	2.98 KB	-rw-r--r--
url-expand.elc	4.48 KB	-rw-r--r--
url-file.elc	7.68 KB	-rw-r--r--
url-ftp.elc	979 B	-rw-r--r--
url-gw.elc	7.17 KB	-rw-r--r--
url-handlers.elc	15.91 KB	-rw-r--r--
url-history.elc	5.29 KB	-rw-r--r--
url-http.elc	32.76 KB	-rw-r--r--
url-imap.elc	2.32 KB	-rw-r--r--
url-irc.elc	2.88 KB	-rw-r--r--
url-ldap.elc	6.4 KB	-rw-r--r--
url-mailto.elc	3.19 KB	-rw-r--r--
url-methods.elc	4.47 KB	-rw-r--r--
url-misc.elc	3.43 KB	-rw-r--r--
url-news.elc	7.51 KB	-rw-r--r--
url-nfs.elc	4.47 KB	-rw-r--r--
url-ns.elc	2.36 KB	-rw-r--r--
url-parse.elc	14.35 KB	-rw-r--r--
url-privacy.elc	1.88 KB	-rw-r--r--
url-proxy.elc	1.84 KB	-rw-r--r--
url-util.elc	12.18 KB	-rw-r--r--
url-vars.elc	13.65 KB	-rw-r--r--
url.elc	7.69 KB	-rw-r--r--

Code Editor : url-ldap.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:25 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/url/url-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 "`url-ldap.el' was compiled for Emacs 19.29 or later"))

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

(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\"\207" [require url-vars url-parse url-util ldap autoload tls-certificate-information "tls"] 3)
#@20 Default LDAP port.
(defconst url-ldap-default-port 389 (#$ . 784))
(defalias 'url-ldap-expand-file-name 'url-default-expander)
#@77 *An assoc list mapping LDAP attribute names to pretty descriptions of them.
(defvar url-ldap-pretty-names '(("l" . "City") ("objectclass" . "Object Class") ("o" . "Organization") ("ou" . "Organizational Unit") ("cn" . "Name") ("sn" . "Last Name") ("givenname" . "First Name") ("mail" . "Email") ("title" . "Title") ("c" . "Country") ("postalcode" . "ZIP Code") ("telephonenumber" . "Phone Number") ("facsimiletelephonenumber" . "Fax") ("postaladdress" . "Mailing Address") ("description" . "Notes")) (#$ . -917))
#@76 *An assoc list mapping LDAP attribute names to pretty formatters for them.
(defvar url-ldap-attribute-formatters '(("mail" lambda (x) (format "<a href='mailto:%s'>%s</a>" x x)) ("owner" . url-ldap-dn-formatter) ("creatorsname" . url-ldap-dn-formatter) ("jpegphoto" . url-ldap-image-formatter) ("usercertificate" . url-ldap-certificate-formatter) ("modifiersname" . url-ldap-dn-formatter) ("namingcontexts" . url-ldap-dn-formatter) ("defaultnamingcontext" . url-ldap-dn-formatter) ("member" . url-ldap-dn-formatter)) (#$ . -1436))
(defalias 'url-ldap-attribute-pretty-name #[(n) "\302\227	\"\243\206\n�\207" [n url-ldap-pretty-names assoc] 3])
(put 'url-ldap-attribute-pretty-name 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'url-ldap-attribute-pretty-desc #[(n v) "\303\304\"\203\f�\305\306\"\307\227	\"\243\206�\310\n!\207" [n url-ldap-attribute-formatters v string-match "^\$[^;]+\$;" match-string 1 assoc identity] 3])
(put 'url-ldap-attribute-pretty-desc 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'url-ldap-dn-formatter #[(dn) "\301\302!\303\304\260\207" [dn "<a href='/" url-hexify-string "'>" "</a>"] 5])
(defalias 'url-ldap-certificate-formatter #[(data) "\302\303\304\217\210\305\306!\203�\306!\202�\307!\211\204�\310\202%�\311\312\313	\314#\315Q)\207" [data vals nil (byte-code "\300\301!\207" [require ssl] 2) ((error)) fboundp ssl-certificate-information tls-certificate-information "<b>Unable to parse certificate</b>" "<table border=0>\n" mapconcat #[(ava) "\301\302@A#\207" [ava format "<tr><td>%s</td><td>%s</td></tr>\n"] 4] "\n" "</table>\n"] 6])
(defalias 'url-ldap-image-formatter #[(data) "\301\302\303\304!!\"\207" [data format "<img alt='JPEG Photo' src='data:image/jpeg;base64,%s'>" url-hexify-string base64-encode-string] 5])
#@200 Perform an LDAP search specified by URL.
The return value is a buffer displaying the search results in HTML.
URL can be a URL string, or a URL vector of the type returned by
`url-generic-parse-url'.
(defalias 'url-ldap #[(url) ";\203�\306\307!!\202�\310!\204�\311\312!\210\212\313\314!q\210\315c\210\316\317!\204?�\320\321\322\323\324!\325\326\327\330\331\332\333\334\335\261\210\202\243\336\337H>\204M�\311\340!\210\341H\337H>\204]�\311\342!\210\343H\211@\337H>\204p�\311\344!\210@\345H\206\237�@\337H>\204\204�\311\346!\210@\347H\205\237�\350@\337H>\204\231�\311\351!\210@\352H\353\")A\336\211BC\336\211DE\336\211FG\354\355\f\"\203\300�\f\352\336O\356\357\360\f\361\"\"\211@B\fA@C\362\f8D\363\f8E\343\f8F\307B\206\347�\364!B\365\307D\206\362�\366!!D\307E\206\375�\367!ED\370>\204
\311\371D\"\210D\372\236ADC\203#\356\307\360C\373\"\"CF\2039\356\374\360F\373\"\"F\356\375F\"F\376\377F\"\206H\376\201H�F\"\243\317\305
\201I�\201J�A!Q\201K�B\201C�C\201D�D\201E�E\302\n\257\f!AG\320\321\201L�\323\324!\325\326\327\201M�\201N�GG!\201O�\261\210\201P�\201Q�G\"\210\201R�\334\335\261\210.\np)\207" [url url-current-object binddn cl-struct-url-tags data host url-generic-parse-url url-unhex-string vectorp error "Argument is not a valid URL" generate-new-buffer " *url-ldap*" "Content-type: text/html
\n
\n" fboundp ldap-search-internal "<html>\n" " <head>\n" "  <title>LDAP Not Supported</title>\n" "  <base href='" url-recreate-url "'>\n" " </head>\n" " <body>\n" "  <h1>LDAP Not Supported</h1>\n" "  <p>\n" "    This version of Emacs does not support LDAP.\n" "  </p>\n" " </body>\n" "</html>\n" nil 0 "url-filename accessing a non-url" 6 "url-host accessing a non-url" 4 "url-portspec accessing a non-url" 5 "url-fullness accessing a non-url" 9 url-scheme-get-property "url-type accessing a non-url" 1 default-port string-match "^/" mapcar #[(x) "G\301U?\205	�\207" [x 0] 2] split-string "\\?" 2 3 "" intern "base" "(objectClass=*)" (base one sub) "Malformed LDAP URL: Unknown scope: %S" ((base . base) (one . onelevel) (sub . subtree)) "," #[(ext) "\301\302\"\203�\303\304\"\303\305\"B\207\211B\207" [ext string-match "\$[^=]*\$=\$.*\$" match-string 1 2] 4] #[(ext) "\301@!\301A!B\207" [ext url-unhex-string] 3] assoc "bindname" urlobj port base-object attributes scope filter extensions results "!bindname" ":" number-to-string base "  <title>LDAP Search Results</title>\n" "  <h1>" int-to-string " matches</h1>\n" mapc #[(obj) "\301\302\261\210\303\304\"\210\305c\207" [obj "  <hr>\n" "  <table border=1>\n" mapc #[(attr) "AG\305U\203<�\306@\307	\227\n\"\243\206�	)\310@A@\311\312	\"\203+�\313\305	\"\307	\227\f\"\243\2065�\314!*\315\261\207\316\317\320!@\307	\227\n\"\243\206M�	)\310\321\322A\323#\324\325\261\207" [attr n url-ldap-pretty-names v url-ldap-attribute-formatters 1 "   <tr><td>" assoc "</td><td>" string-match #1="^\$[^;]+\$;" match-string identity "</td></tr>\n" "   <tr>\n" format "    <td valign=top>" mapconcat #[(x) "@	\305\306\"\203�\307\310\"\311\227\f\"\243\206�\312\n!*\207" [attr x v n url-ldap-attribute-formatters string-match #1# match-string 1 assoc identity] 3] "<br>\n" "</td>" "   </tr>\n"] 8] "  </table>\n"] 3] "  <hr>\n"] 15 (#$ . 3237)])
(provide 'url-ldap)

${this.title}

Code Editor : url-ldap.elc