Mercurial > hg > xemacs-beta

comparison lisp/w3/url-auth.el @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 0293115a14e9
children
comparison
equal deleted inserted replaced
25:383a494979f8 26:441bb1e64a06
1 ;;; url-auth.el --- Uniform Resource Locator authorization modules 1 ;;; url-auth.el --- Uniform Resource Locator authorization modules
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/01/19 01:17:29 3 ;; Created: 1997/02/18 23:34:14
4 ;; Version: 1.5 4 ;; Version: 1.6
5 ;; Keywords: comm, data, processes, hypermedia 5 ;; Keywords: comm, data, processes, hypermedia
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
52 is found in the assoc list. If REALM is specified, use that as the realm 52 is found in the assoc list. If REALM is specified, use that as the realm
53 instead of the pathname inheritance method." 53 instead of the pathname inheritance method."
54 (let* ((href (if (stringp url) 54 (let* ((href (if (stringp url)
55 (url-generic-parse-url url) 55 (url-generic-parse-url url)
56 url)) 56 url))
57 (server (or (url-host href) url-current-server)) 57 (server (url-host href))
58 (port (or (url-port href) "80")) 58 (port (or (url-port href) "80"))
59 (path (url-filename href)) 59 (path (url-filename href))
60 user pass byserv retval data) 60 user pass byserv retval data)
61 (setq server (concat server ":" port) 61 (setq server (concat server ":" port)
62 path (cond 62 path (cond
132 instead of hostname:portnum." 132 instead of hostname:portnum."
133 (if args 133 (if args
134 (let* ((href (if (stringp url) 134 (let* ((href (if (stringp url)
135 (url-generic-parse-url url) 135 (url-generic-parse-url url)
136 url)) 136 url))
137 (server (or (url-host href) url-current-server)) 137 (server (url-host href))
138 (port (or (url-port href) "80")) 138 (port (or (url-port href) "80"))
139 (path (url-filename href)) 139 (path (url-filename href))
140 user pass byserv retval data) 140 user pass byserv retval data)
141 (setq path (cond 141 (setq path (cond
142 (realm realm) 142 (realm realm)