Mercurial > hg > xemacs-beta

comparison lisp/w3/url-http.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 364816949b59
children a145efe76779
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
1 ;;; url-http.el --- HTTP Uniform Resource Locator retrieval code 1 ;;; url-http.el --- HTTP Uniform Resource Locator retrieval code
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/01/26 03:56:59 3 ;; Created: 1997/02/08 05:29:12
4 ;; Version: 1.11 4 ;; Version: 1.13
5 ;; Keywords: comm, data, processes 5 ;; Keywords: comm, data, processes
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.
131 (not (boundp 'proxy-info))) 131 (not (boundp 'proxy-info)))
132 nil 132 nil
133 (let ((url-basic-auth-storage 133 (let ((url-basic-auth-storage
134 url-proxy-basic-authentication)) 134 url-proxy-basic-authentication))
135 (url-get-authentication url nil 'any nil)))) 135 (url-get-authentication url nil 'any nil))))
136 (proxy-obj (if (boundp 'proxy-info) 136 (proxy-obj (if (and (boundp 'proxy-info) proxy-info)
137 (url-generic-parse-url proxy-info))) 137 (url-generic-parse-url proxy-info)))
138 (real-fname (if proxy-obj (url-filename proxy-obj) fname)) 138 (real-fname (if proxy-obj (url-filename proxy-obj) fname))
139 (host (or (and proxy-obj (url-host proxy-obj)) 139 (host (or (and proxy-obj (url-host proxy-obj))
140 url-current-server)) 140 url-current-server))
141 (auth (if (cdr-safe (assoc "Authorization" url-request-extra-headers)) 141 (auth (if (cdr-safe (assoc "Authorization" url-request-extra-headers))
581 (progn 581 (progn
582 (url-lazy-message "Contacting %s:%s" server port) 582 (url-lazy-message "Contacting %s:%s" server port)
583 (let ((process 583 (let ((process
584 (url-open-stream "WWW" url-working-buffer server 584 (url-open-stream "WWW" url-working-buffer server
585 (string-to-int port)))) 585 (string-to-int port))))
586 (if (stringp process) 586 (if (not (processp process))
587 (progn 587 nil
588 (set-buffer url-working-buffer)
589 (erase-buffer)
590 (setq url-current-mime-type "text/html"
591 url-current-mime-viewer
592 (mm-mime-info "text/html" nil 5))
593 (insert "<title>ERROR</title>\n"
594 "<h1>ERROR - Could not establish connection</h1>"
595 "<p>"
596 "The browser could not establish a connection "
597 (format "to %s:%s.<P>" server port)
598 "The server is either down, or the URL"
599 (format "(%s) is malformed.<p>" (url-view-url t)))
600 (message "%s" process))
601 (progn 588 (progn
602 (url-process-put process 'url (or proxy-info url)) 589 (url-process-put process 'url (or proxy-info url))
603 (process-kill-without-query process) 590 (process-kill-without-query process)
604 (process-send-string process request) 591 (process-send-string process request)
605 (url-lazy-message "Request sent, waiting for response...") 592 (url-lazy-message "Request sent, waiting for response...")