ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/url/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/url/url-ldap.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 583))
(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")) (#$ . 716))
#@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)) (#$ . 1233))
(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) "\3021 \303\304!0\202 \210\202 \210\305\306!\203 \306!\202 \307!\211\204( \310\2020 \311\312\313 \314#\315Q)\207" [data vals (error) require ssl 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\255\336\337H >\204P \340\341\300D\"\210\342H \337H >\204c \340\341\300D\"\210\343H \211 @\337H >\204z \340\341\300@D\"\210@\344H\206\261 @\337H >\204\222 \340\341\300@D\"\210@\345H\205\261 \346@\337H >\204\253 \340\341\300@D\"\210@\345H\347\") A\336\211 B C\336\211 D E\336\211 F G\350\351\f\"\203\322 \f\345\336O\352\353\354\f\355\"\"\211@B\fA@C\356\f8D\357\f8E\343\f8F\307B\206\371 \360!B\361\307D\206\362!!D\307E\206\363!ED\364>\204 \311\365D\"\210D\366\236ADC\2035\352\307\354C\367\"\"CF\203K\352\370\354F\367\"\"F\352\371F\"F\372\373F\"\206X\372\374F\"\243\317\305
\375\376A!Q\377B\201C C\201D D\201E E\302\n\257\f!AG\320\321\201H \323\324!\325\326\327\201I \201J GG!\201K \261 \210\201L \201M G\"\210\201N \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 signal wrong-type-argument 6 4 5 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" ":" number-to-string base urlobj port base-object attributes scope filter extensions results " <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 (#$ . 3011)])
(provide 'url-ldap)
Kontol Shell Bypass