WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/url
Viewing File: /usr/share/emacs/24.3/lisp/url/url-auth.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:50:48 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/url/url-auth.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\303\304\305\"\210\303\306\307\"\207" [require url-vars url-parse autoload url-warn "url" auth-source-search "auth-source"] 3)
#@43 String to usefully prompt for a username.
(defalias 'url-auth-user-prompt #[(url realm) "\302\206\303\304	!\305\306 \307\310#\"\311Q\207" [realm url "Username [for " url-truncate-url-for-viewing url-recreate-url - window-width 10 20 "]: "] 7 (#$ . 720)])
(put 'url-auth-user-prompt 'byte-optimizer 'byte-compile-inline-expand)
#@343 Where usernames and passwords are stored.

Must be a symbol pointing to another variable that will actually store
the information.  The value of this variable is an assoc list of assoc
lists.  The first assoc list is keyed by the server name.  The cdr of
this is an assoc list based on the 'directory' specified by the URL we
are looking up.
(defvar url-basic-auth-storage 'url-http-real-basic-auth-storage (#$ . 1057))
#@375 Get the username/password for the specified URL.
If optional argument PROMPT is non-nil, ask for the username/password
to use for the url and its descendants.  If optional third argument
OVERWRITE is non-nil, overwrite the old username/password pair if it
is found in the assoc list.  If REALM is specified, use that as the realm
instead of the filename inheritance method.
(defalias 'url-basic-auth #[(url &optional prompt overwrite realm args) ";\203\306!\202\f\211\307H\n>\204\310\311\312\300#\210	\313H	\307H\n>\204-\310\311\314\300#\210	\315H	\211\307H\n>\204A\310\311\316\300#\210
\317H\206o
\307H\n>\204U\310\311\314\300#\210
\315H\205o\320
\307H\n>\204j\310\311\314\300#\210
\315H\321\")6	\307H\n>\204\200\310\311\322\300#\210	\323H7	\307H\n>\204\223\310\311\324\300#\210	\325H8	\307H\n>\204\246\310\311\326\300#\210	\327H9\330:\331\211;<\331=\332\3336#>\203\310>\202\3447\334\230\203\323\335\202\344\336\3377\"\203\3407\202\344\3407!7\341?J\"\243;@\203Y;\204Y\342\f\343#\206$\344>>\345>\206\346\347!\350\351 \352\353#\"\354Q*8\206#\355 \"8\342\f\356#\2068\357\360\3319\2067\334#9?7\361\332\3628\3639\364\"#!\211<BD?JBL\210\202;\203\3417;\"\243\211<\204\261\336\3357\"\203\261;\203\261<\204\261;@@=\336\335=\"\203\2427G=GY\203\250=7\307=GO\230\203\250;@A<;A\211;\204x<\204\273@\204\300A\203\342\f\343#\206\346\344>>\345>\206\340\346\347!\350\351 \352\353#\"\354Q*\355 \"8\342\f\356#\206\363\357\360!9\361\332\36289#!<\341?J\"\211;7<B;AB\241\210\202\331<<\203%\365<P<<.\207" [url href cl-struct-url-tags server type urlobj url-generic-parse-url 0 error "%s accessing a non-%s" url-host 4 url-type 1 url-portspec 5 url-scheme-get-property default-port url-filename 6 url-user 2 url-password 3 t nil format "%s:%d" "" "/" string-match "/$" url-file-directory assoc url-do-auth-source-search :user read-string "Username [for " url-truncate-url-for-viewing url-recreate-url - window-width 10 20 "]: " user-real-login-name :secret read-passwd "Password: " base64-encode-string "%s:%s" encode-coding-string utf-8 "Basic " port file user pass enable-recursive-minibuffers byserv retval data realm url-basic-auth-storage prompt overwrite] 11 (#$ . 1484)])
#@236 Where usernames and passwords are stored.
Its value is an assoc list of assoc lists.  The first assoc list is
keyed by the server name.  The cdr of this is an assoc list based
on the 'directory' specified by the url we are looking up.
(defvar url-digest-auth-storage nil (#$ . 3792))
#@47 Create a key for digest authentication method
(defalias 'url-digest-auth-create-key #[(username password realm method uri) ";\203\306!\202\f\307\n\310\310\f\260!\307\310	\311H>\204*\312\313\314\315#\210	\316HQ!
+D\207" [uri info username realm password a1 url-generic-parse-url md5 ":" 0 error "%s accessing a non-%s" url-filename url 6 method cl-struct-url-tags a2] 7 (#$ . 4082)])
#@360 Get the username/password for the specified URL.
If optional argument PROMPT is non-nil, ask for the username/password
to use for the URL and its descendants.  If optional third argument
OVERWRITE is non-nil, overwrite the old username/password pair if it
is found in the assoc list.  If REALM is specified, use that as the realm
instead of hostname:portnum.
(defalias 'url-digest-auth #[(url &optional prompt overwrite realm args) "\205\211	;\203\306	!\202	\211\307H>\204\310\311\312\301#\210\n\313H\n\307H>\2041\310\311\314\301#\210\n\315H\n\2116\307H>\204F\310\311\316\301#\2106\317H\206y6\307H>\204\\\310\311\314\301#\2106\315H\205y\3206\307H>\204s\310\311\314\301#\2106\315H\321\")7\n\307H>\204\212\310\311\322\301#\210\n\323H8\3249\325\211:;\325\211<=\325>?\203\253?\202\274\326\3278\"\203\2708\202\274\3308!8\331\332\f7#\333\f@\"\243<A\203.<\204.\334\f
\335#\206\375\336	??\337?\206\367\340\341	!\342\343 \344\345#\"\346Q*\347 \":\334\f
\350#\206\n\351\352!;\f8:\353:;?B\206\354	%B\211=BD@B@\202\376<\203\373\3338<\"\243\211=\204\206\326\3558\"\203\206<\203\206=\204\206<@@>\326\355>\"\203w8G>GY\203}>8\307>GO\230\203}<@A=<A\211<\204MC\203\376=\204\353A\203\353\334\f
\335#\206\273\336	??\337?\206\265\340\341	!\342\343 \344\345#\"\346Q*\347 \":\334\f
\350#\206\310\351\352!;:\353:;?B\206\331\354	%B\211==\333\f@\"<\202\376<8=B<AB\241\210\202\376\325==\205\207\333\356\"\243\203O\333\357\"\243\206\360\333\356\"\243DE\331\361=@?E\n\307H>\2044\310\311\322\301#\210\n\323H\362=A@\363E\363\364=8\260!D&*\202\207\333\357\"\243\206X\360E\331\365=@?E\n\307H>\204q\310\311\322\301#\210\n\323H\362=A@\363E\363\364=8\260!&).\207" [args url href cl-struct-url-tags server type url-generic-parse-url 0 error "%s accessing a non-%s" url-host 4 url-type 1 url-portspec 5 url-scheme-get-property default-port url-filename 6 t nil string-match "/$" url-file-directory format "%s:%d" assoc url-do-auth-source-search :user read-string "Username [for " url-truncate-url-for-viewing url-recreate-url - window-width 10 20 "]: " user-real-login-name :secret read-passwd "Password: " url-digest-auth-create-key "GET" "/" "opaque" "nonce" "nonegiven" "Digest username=\"%s\", realm=\"%s\",nonce=\"%s\", uri=\"%s\",response=\"%s\", opaque=\"%s\"" md5 ":" 2 "Digest username=\"%s\", realm=\"%s\",nonce=\"%s\", uri=\"%s\",response=\"%s\"" urlobj port file enable-recursive-minibuffers user pass byserv retval data realm url-digest-auth-storage prompt url-request-method overwrite opaque nonce] 14 (#$ . 4491)])
#@105 A list of the registered authorization schemes and various and sundry
information associated with them.
(defvar url-registered-auth-schemes nil (#$ . 7163))
(defalias 'url-do-auth-source-search #[(server type parameter) "\305\306\307\310\311	&\211@\312\n\"\313\f!\203\f \202\f+\207" [server type auth-info parameter token auth-source-search :max 1 :host :port plist-get functionp] 8])
#@1067 Return an authorization string suitable for use in the WWW-Authenticate
header in an HTTP/1.0 request.

URL    is the url you are requesting authorization to.  This can be either a
       string representing the URL, or the parsed representation returned by
       `url-generic-parse-url'
REALM  is the realm at a specific site we are looking for.  This should be a
       string specifying the exact realm, or nil or the symbol 'any' to
       specify that the filename portion of the URL should be used as the
       realm
TYPE   is the type of authentication to be returned.  This is either a string
       representing the type (basic, digest, etc), or nil or the symbol 'any'
       to specify that any authentication is acceptable.  If requesting 'any'
       the strongest matching authentication will be returned.  If this is
       wrong, it's no big deal, the error from the server will specify exactly
       what type of auth to use
PROMPT is boolean - specifies whether to ask the user for a username/password
       if one cannot be found in the cache
(defalias 'url-get-authentication #[(url realm type prompt &optional args) "\204\n\306\307	\"\243\n;\203\310\n!\203\311=\203'\312\313\314\f\"\315\"\242\243\2079\2030\316!\306\227\f\"\243\242\211\205T\317
!\205T
\n\211\205Q
\n\320\211	%	%)\207" [realm args url type url-registered-auth-schemes scheme assoc "realm" url-generic-parse-url any sort mapcar #[(scheme) "\303A@!\203AAA@	\304\211\n$B\207\305\304B\207" [scheme url realm fboundp nil 0] 6] #[(x y) "A\204\302\207A\203	A\204\303\207A\203#	A\203#@	@Y\207\302\207" [x y nil t] 2] symbol-name fboundp nil prompt] 10 (#$ . 7566)])
#@585 Register an HTTP authentication method.

TYPE     is a string or symbol specifying the name of the method.
         This should be the same thing you expect to get returned in
         an Authenticate header in HTTP/1.0 - it will be downcased.
FUNCTION is the function to call to get the authorization information.
         This defaults to `url-?-auth', where ? is TYPE.
RATING   a rating between 1 and 10 of the strength of the authentication.
         This is used when asking for the best authentication for a specific
         URL.  The item with the highest rating is returned.
(defalias 'url-register-auth-scheme #[(type &optional function rating) ";\203\n\227\2029\203\305!\227\202\306\307!	\206$\310\311\312Q!\n\204-\313\2029\n;\2038\314\n!\2029\n\315\"\316	!\204M\317\320\321\322	\"\"\210\f\203Y\f	\nB\241\202b	\nBBB\211,\207" [type function rating url-registered-auth-schemes node symbol-name error "Bad call to `url-register-auth-scheme'" intern "url-" "-auth" 2 string-to-number assoc fboundp url-warn security format "Tried to register `%s' as an auth scheme, but it is not a function!"] 5 (#$ . 9263)])
#@57 Return non-nil if SCHEME is registered as an auth type.
(defalias 'url-auth-registered #[(scheme) "\302	\"\207" [scheme url-registered-auth-schemes assoc] 3 (#$ . 10416)])
(provide 'url-auth)
F1l3 Manager
