;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:22 2024
;;; 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 (#$ . 728))
(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")) (#$ . 861))
#@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)) (#$ . 1378))
(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\201IA!Q\201JB\201CC\201DD\201EE\302\n\257\f!AG\320\321\201K\323\324!\325\326\327\201L\201MGG!\201N\261\210\201O\201PG\"\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 (#$ . 3177)])
(provide 'url-ldap)