procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(url-digest-auth, url-basic-auth):

Browse source 
Rename `path' to `file'.  Use `url-file-directory'.
This commit is contained in:
Richard M. Stallman 2007-10-13 14:03:25 +00:00
parent 76fb5862cd
commit ff51e86df1
1 changed files with 22 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

44
lisp/url/url-auth.el
View file

@ -61,22 +61,22 @@ 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 pathname inheritance method."
instead of the filename inheritance method."
(let* ((href (if (stringp url)
(url-generic-parse-url url)
url))
(server (url-host href))
(port (url-port href))
(path (url-filename href))
(file (url-filename href))
(user (url-user href))
(pass (url-password href))
byserv retval data)
(setq server (format "%s:%d" server port)
path (cond
file (cond
(realm realm)
((string= "" path) "/")
((string-match "/$" path) path)
(t (url-basepath path)))
((string= "" file) "/")
((string-match "/$" file) file)
(t (url-file-directory file)))
byserv (cdr-safe (assoc server
(symbol-value url-basic-auth-storage))))
(cond
@ -86,21 +86,21 @@ instead of the pathname inheritance method."
pass (read-passwd "Password: " nil (or pass "")))
(set url-basic-auth-storage
(cons (list server
(cons path
(cons file
(setq retval
(base64-encode-string
(format "%s:%s" user pass)))))
(symbol-value url-basic-auth-storage))))
(byserv
(setq retval (cdr-safe (assoc path byserv)))
(setq retval (cdr-safe (assoc file byserv)))
(if (and (not retval)
(string-match "/" path))
(string-match "/" file))
(while (and byserv (not retval))
(setq data (car (car byserv)))
(if (or (not (string-match "/" data)) ; It's a realm - take it!
(and
(>= (length path) (length data))
(string= data (substring path 0 (length data)))))
(>= (length file) (length data))
(string= data (substring file 0 (length data)))))
(setq retval (cdr (car byserv))))
(setq byserv (cdr byserv))))
(if (or (and (not retval) prompt) overwrite)
@ -111,7 +111,7 @@ instead of the pathname inheritance method."
retval (base64-encode-string (format "%s:%s" user pass))
byserv (assoc server (symbol-value url-basic-auth-storage)))
(setcdr byserv
(cons (cons path retval) (cdr byserv))))))
(cons (cons file retval) (cdr byserv))))))
(t (setq retval nil)))
(if retval (setq retval (concat "Basic " retval)))
retval))
@ -153,12 +153,12 @@ instead of hostname:portnum."
url))
(server (url-host href))
(port (url-port href))
(path (url-filename href))
(file (url-filename href))
user pass byserv retval data)
(setq path (cond
(setq file (cond
(realm realm)
((string-match "/$" path) path)
(t (url-basepath path)))
((string-match "/$" file) file)
(t (url-file-directory file)))
server (format "%s:%d" server port)
byserv (cdr-safe (assoc server url-digest-auth-storage)))
(cond
@ -168,7 +168,7 @@ instead of hostname:portnum."
pass (read-passwd "Password: ")
url-digest-auth-storage
(cons (list server
(cons path
(cons file
(setq retval
(cons user
(url-digest-auth-create-key
@ -177,15 +177,15 @@ instead of hostname:portnum."
url)))))
url-digest-auth-storage)))
(byserv
(setq retval (cdr-safe (assoc path byserv)))
(setq retval (cdr-safe (assoc file byserv)))
(if (and (not retval) ; no exact match, check directories
(string-match "/" path)) ; not looking for a realm
(string-match "/" file)) ; not looking for a realm
(while (and byserv (not retval))
(setq data (car (car byserv)))
(if (or (not (string-match "/" data))
(and
(>= (length path) (length data))
(string= data (substring path 0 (length data)))))
(>= (length file) (length data))
(string= data (substring file 0 (length data)))))
(setq retval (cdr (car byserv))))
(setq byserv (cdr byserv))))
(if (or (and (not retval) prompt) overwrite)
@ -201,7 +201,7 @@ instead of hostname:portnum."
url)))
byserv (assoc server url-digest-auth-storage))
(setcdr byserv
(cons (cons path retval) (cdr byserv))))))
(cons (cons file retval) (cdr byserv))))))
(t (setq retval nil)))
(if retval
(let ((nonce (or (cdr-safe (assoc "nonce" args)) "nonegiven"))