Gecko [ goons4good.org ]

Name	Size	Permission	Date
url-about.elc	2.65 KB	-rw-r--r--	2023-06-07 04:11
url-auth.elc	10.36 KB	-rw-r--r--	2023-06-07 04:11
url-cache.elc	6.93 KB	-rw-r--r--	2023-06-07 04:11
url-cid.elc	1.39 KB	-rw-r--r--	2023-06-07 04:11
url-cookie.elc	17.15 KB	-rw-r--r--	2023-06-07 04:11
url-dav.elc	21.09 KB	-rw-r--r--	2023-06-07 04:11
url-dired.elc	2.48 KB	-rw-r--r--	2023-06-07 04:11
url-domsuf.elc	1.67 KB	-rw-r--r--	2023-06-07 04:11
url-expand.elc	4.66 KB	-rw-r--r--	2023-06-07 04:11
url-file.elc	7.54 KB	-rw-r--r--	2023-06-07 04:11
url-ftp.elc	920 B	-rw-r--r--	2023-06-07 04:11
url-future.elc	8.23 KB	-rw-r--r--	2023-06-07 04:11
url-gw.elc	6.49 KB	-rw-r--r--	2023-06-07 04:11
url-handlers.elc	18.13 KB	-rw-r--r--	2023-06-07 04:11
url-history.elc	5.07 KB	-rw-r--r--	2023-06-07 04:11
url-http.elc	35.74 KB	-rw-r--r--	2023-06-07 04:11
url-imap.elc	2.17 KB	-rw-r--r--	2023-06-07 04:11
url-irc.elc	2.73 KB	-rw-r--r--	2023-06-07 04:11
url-ldap.elc	6.27 KB	-rw-r--r--	2023-06-07 04:11
url-mailto.elc	3.13 KB	-rw-r--r--	2023-06-07 04:11
url-methods.elc	4.23 KB	-rw-r--r--	2023-06-07 04:11
url-misc.elc	3.34 KB	-rw-r--r--	2023-06-07 04:11
url-news.elc	7.38 KB	-rw-r--r--	2023-06-07 04:11
url-nfs.elc	4.4 KB	-rw-r--r--	2023-06-07 04:11
url-ns.elc	2.3 KB	-rw-r--r--	2023-06-07 04:11
url-parse.elc	17.43 KB	-rw-r--r--	2023-06-07 04:11
url-privacy.elc	1.64 KB	-rw-r--r--	2023-06-07 04:11
url-proxy.elc	1.93 KB	-rw-r--r--	2023-06-07 04:11
url-queue.elc	14.1 KB	-rw-r--r--	2023-06-07 04:11
url-util.elc	16.82 KB	-rw-r--r--	2023-06-07 04:11
url-vars.elc	12.92 KB	-rw-r--r--	2023-06-07 04:11
url.elc	8.87 KB	-rw-r--r--	2023-06-07 04:11

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:11:30 2023
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/url/url-ldap.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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

(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 (#$ . 724))
(defalias 'url-ldap-expand-file-name 'url-default-expander)
#@76 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")) (#$ . 857))
#@75 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)) (#$ . 1374))
(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!\210r\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\253\336\337H>\204O�\311\340\341\300#\210\342H\337H>\204a�\311\340\343\300#\210\344H\211@\337H>\204v�\311\340\345\300#\210@\346H\206\251�@\337H>\204\214�\311\340\347\300#\210@\350H\205\251�\351@\337H>\204\243�\311\340\347\300#\210@\350H\352\")A\336\211BC\336\211DE\336\211FG\353\354\f\"\203\312�\f\350\336O\355\356\357\f\360\"\"\211@B\fA@C\361\f8D\362\f8E\344\f8F\307B\206\361�\363!B\364\307D\206\374�\365!!D\307E\206\366!ED\367>\204\311\370D\"\210D\371\236ADC\203-\355\307\357C\372\"\"CF\203C\355\373\357F\372\"\"F\355\374F\"F\375\376F\"\206P\375\377F\"\243\317\305
\201H�\201I�A!Q\201J�B\201C�C\201D�D\201E�E\302\n\257\f!AG\320\321\201K�\323\324!\325\326\327\201L�\201M�GG!\201N�\261\210\201O�\201P�G\"\210\201Q�\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 "%s accessing a non-%s" url-filename 6 url-host 4 url-portspec 5 url-type 1 url-scheme-get-property 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" "!bindname" urlobj port base-object attributes scope filter extensions results ":" 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 (#$ . 3173)])
(provide 'url-ldap)