54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1 ;;; url-http.el --- HTTP retrieval routines
|
54830
ccfdda7b76d2
(url-http-parse-headers, url-http-file-exists-p): Remove unused var `version'.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
2
|
|
79720
|
3 ;; Copyright (C) 1999, 2001, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
|
54830
ccfdda7b76d2
(url-http-parse-headers, url-http-file-exists-p): Remove unused var `version'.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
4
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
5 ;; Author: Bill Perry <wmperry@gnu.org>
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
6 ;; Keywords: comm, data, processes
|
54932
fd6856033c18
(url-http-head-file-attributes, url-http-file-attributes):
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
7
|
54830
ccfdda7b76d2
(url-http-parse-headers, url-http-file-exists-p): Remove unused var `version'.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
8 ;; This file is part of GNU Emacs.
|
ccfdda7b76d2
(url-http-parse-headers, url-http-file-exists-p): Remove unused var `version'.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
9 ;;
|
ccfdda7b76d2
(url-http-parse-headers, url-http-file-exists-p): Remove unused var `version'.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
|
ccfdda7b76d2
(url-http-parse-headers, url-http-file-exists-p): Remove unused var `version'.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
11 ;; it under the terms of the GNU General Public License as published by
|
|
78222
|
12 ;; the Free Software Foundation; either version 3, or (at your option)
|
54830
ccfdda7b76d2
(url-http-parse-headers, url-http-file-exists-p): Remove unused var `version'.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
13 ;; any later version.
|
ccfdda7b76d2
(url-http-parse-headers, url-http-file-exists-p): Remove unused var `version'.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
14 ;;
|
ccfdda7b76d2
(url-http-parse-headers, url-http-file-exists-p): Remove unused var `version'.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
15 ;; GNU Emacs is distributed in the hope that it will be useful,
|
ccfdda7b76d2
(url-http-parse-headers, url-http-file-exists-p): Remove unused var `version'.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
ccfdda7b76d2
(url-http-parse-headers, url-http-file-exists-p): Remove unused var `version'.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
ccfdda7b76d2
(url-http-parse-headers, url-http-file-exists-p): Remove unused var `version'.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
18 ;; GNU General Public License for more details.
|
ccfdda7b76d2
(url-http-parse-headers, url-http-file-exists-p): Remove unused var `version'.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
19 ;;
|
ccfdda7b76d2
(url-http-parse-headers, url-http-file-exists-p): Remove unused var `version'.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
20 ;; You should have received a copy of the GNU General Public License
|
ccfdda7b76d2
(url-http-parse-headers, url-http-file-exists-p): Remove unused var `version'.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
|
|
64084
|
22 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
|
23 ;; Boston, MA 02110-1301, USA.
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
24
|
54830
ccfdda7b76d2
(url-http-parse-headers, url-http-file-exists-p): Remove unused var `version'.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
25 ;;; Commentary:
|
ccfdda7b76d2
(url-http-parse-headers, url-http-file-exists-p): Remove unused var `version'.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
26
|
ccfdda7b76d2
(url-http-parse-headers, url-http-file-exists-p): Remove unused var `version'.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
27 ;;; Code:
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
28
|
|
66990
|
29 (eval-when-compile (require 'cl))
|
|
|
30 (defvar url-http-extra-headers)
|
|
|
31 (defvar url-http-target-url)
|
|
75234
|
32 (defvar url-http-proxy)
|
|
75662
|
33 (defvar url-http-connection-opened)
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
34 (require 'url-gw)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
35 (require 'url-util)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
36 (require 'url-parse)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
37 (require 'url-cookie)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
38 (require 'mail-parse)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
39 (require 'url-auth)
|
|
69043
|
40 (require 'url)
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
41 (autoload 'url-cache-create-filename "url-cache")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
42
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
43 (defconst url-http-default-port 80 "Default HTTP port.")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
44 (defconst url-http-asynchronous-p t "HTTP retrievals are asynchronous.")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
45 (defalias 'url-http-expand-file-name 'url-default-expander)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
46
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
47 (defvar url-http-real-basic-auth-storage nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
48 (defvar url-http-proxy-basic-auth-storage nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
49
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
50 (defvar url-http-open-connections (make-hash-table :test 'equal
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
51 :size 17)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
52 "A hash table of all open network connections.")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
53
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
54 (defvar url-http-version "1.1"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
55 "What version of HTTP we advertise, as a string.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
56 Valid values are 1.1 and 1.0.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
57 This is only useful when debugging the HTTP subsystem.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
58
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
59 Setting this to 1.0 will tell servers not to send chunked encoding,
|
|
69043
|
60 and other HTTP/1.1 specific features.")
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
61
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
62 (defvar url-http-attempt-keepalives t
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
63 "Whether to use a single TCP connection multiple times in HTTP.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
64 This is only useful when debugging the HTTP subsystem. Setting to
|
|
69043
|
65 nil will explicitly close the connection to the server after every
|
|
|
66 request.")
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
67
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
68 ;(eval-when-compile
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
69 ;; These are all macros so that they are hidden from external sight
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
70 ;; when the file is byte-compiled.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
71 ;;
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
72 ;; This allows us to expose just the entry points we want.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
73
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
74 ;; These routines will allow us to implement persistent HTTP
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
75 ;; connections.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
76 (defsubst url-http-debug (&rest args)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
77 (if quit-flag
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
78 (let ((proc (get-buffer-process (current-buffer))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
79 ;; The user hit C-g, honor it! Some things can get in an
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
80 ;; incredibly tight loop (chunked encoding)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
81 (if proc
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
82 (progn
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
83 (set-process-sentinel proc nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
84 (set-process-filter proc nil)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
85 (error "Transfer interrupted!")))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
86 (apply 'url-debug 'http args))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
87
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
88 (defun url-http-mark-connection-as-busy (host port proc)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
89 (url-http-debug "Marking connection as busy: %s:%d %S" host port proc)
|
76821
1fdf9fc79e3e
(url-http-mark-connection-as-busy, url-http-mark-connection-as-free): Clear
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
90 (set-process-query-on-exit-flag proc t)
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
91 (puthash (cons host port)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
92 (delq proc (gethash (cons host port) url-http-open-connections))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
93 url-http-open-connections)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
94 proc)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
95
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
96 (defun url-http-mark-connection-as-free (host port proc)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
97 (url-http-debug "Marking connection as free: %s:%d %S" host port proc)
|
73905
efe611a754cc
(url-http-mark-connection-as-free, url-http-find-free-connection):
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
98 (when (memq (process-status proc) '(open run connect))
|
73501
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
99 (set-process-buffer proc nil)
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
100 (set-process-sentinel proc 'url-http-idle-sentinel)
|
76821
1fdf9fc79e3e
(url-http-mark-connection-as-busy, url-http-mark-connection-as-free): Clear
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
101 (set-process-query-on-exit-flag proc nil)
|
73501
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
102 (puthash (cons host port)
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
103 (cons proc (gethash (cons host port) url-http-open-connections))
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
104 url-http-open-connections))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
105 nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
106
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
107 (defun url-http-find-free-connection (host port)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
108 (let ((conns (gethash (cons host port) url-http-open-connections))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
109 (found nil))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
110 (while (and conns (not found))
|
73905
efe611a754cc
(url-http-mark-connection-as-free, url-http-find-free-connection):
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
111 (if (not (memq (process-status (car conns)) '(run open connect)))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
112 (progn
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
113 (url-http-debug "Cleaning up dead process: %s:%d %S"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
114 host port (car conns))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
115 (url-http-idle-sentinel (car conns) nil))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
116 (setq found (car conns))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
117 (url-http-debug "Found existing connection: %s:%d %S" host port found))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
118 (pop conns))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
119 (if found
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
120 (url-http-debug "Reusing existing connection: %s:%d" host port)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
121 (url-http-debug "Contacting host: %s:%d" host port))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
122 (url-lazy-message "Contacting host: %s:%d" host port)
|
|
69043
|
123 (url-http-mark-connection-as-busy
|
|
|
124 host port
|
|
|
125 (or found
|
|
|
126 (let ((buf (generate-new-buffer " *url-http-temp*")))
|
|
|
127 ;; `url-open-stream' needs a buffer in which to do things
|
|
|
128 ;; like authentication. But we use another buffer afterwards.
|
69296
64b44b996827
(url-http-find-free-connection): Don't kill the process
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
129 (unwind-protect
|
64b44b996827
(url-http-find-free-connection): Don't kill the process
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
130 (let ((proc (url-open-stream host buf host port)))
|
73347
2530d72a03db
(url-http-find-free-connection): Handle url-open-stream returning nil.
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
131 ;; url-open-stream might return nil.
|
2530d72a03db
(url-http-find-free-connection): Handle url-open-stream returning nil.
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
132 (when (processp proc)
|
2530d72a03db
(url-http-find-free-connection): Handle url-open-stream returning nil.
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
133 ;; Drop the temp buffer link before killing the buffer.
|
2530d72a03db
(url-http-find-free-connection): Handle url-open-stream returning nil.
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
134 (set-process-buffer proc nil))
|
69328
7383e30e90bb
(url-http-find-free-connection): Fix braino in last fix.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
135 proc)
|
|
69043
|
136 (kill-buffer buf)))))))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
137
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
138 ;; Building an HTTP request
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
139 (defun url-http-user-agent-string ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
140 (if (or (eq url-privacy-level 'paranoid)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
141 (and (listp url-privacy-level)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
142 (memq 'agent url-privacy-level)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
143 ""
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
144 (format "User-Agent: %sURL/%s%s\r\n"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
145 (if url-package-name
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
146 (concat url-package-name "/" url-package-version " ")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
147 "")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
148 url-version
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
149 (cond
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
150 ((and url-os-type url-system-type)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
151 (concat " (" url-os-type "; " url-system-type ")"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
152 ((or url-os-type url-system-type)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
153 (concat " (" (or url-system-type url-os-type) ")"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
154 (t "")))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
155
|
74477
90adadb81dba
(url-http-create-request): Remove url argument, use the buffer-local
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
156 (defun url-http-create-request (&optional ref-url)
|
90adadb81dba
(url-http-create-request): Remove url argument, use the buffer-local
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
157 "Create an HTTP request for `url-http-target-url', referred to by REF-URL."
|
90adadb81dba
(url-http-create-request): Remove url argument, use the buffer-local
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
158 (declare (special proxy-info
|
|
73600
|
159 url-http-method url-http-data
|
|
|
160 url-http-extra-headers))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
161 (let* ((extra-headers)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
162 (request nil)
|
|
73600
|
163 (no-cache (cdr-safe (assoc "Pragma" url-http-extra-headers)))
|
|
75234
|
164 (using-proxy url-http-proxy)
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
165 (proxy-auth (if (or (cdr-safe (assoc "Proxy-Authorization"
|
|
73600
|
166 url-http-extra-headers))
|
74477
90adadb81dba
(url-http-create-request): Remove url argument, use the buffer-local
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
167 (not using-proxy))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
168 nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
169 (let ((url-basic-auth-storage
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
170 'url-http-proxy-basic-auth-storage))
|
74477
90adadb81dba
(url-http-create-request): Remove url argument, use the buffer-local
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
171 (url-get-authentication url-http-target-url nil 'any nil))))
|
90adadb81dba
(url-http-create-request): Remove url argument, use the buffer-local
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
172 (real-fname (concat (url-filename url-http-target-url)
|
90adadb81dba
(url-http-create-request): Remove url argument, use the buffer-local
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
173 (url-recreate-url-attributes url-http-target-url)))
|
90adadb81dba
(url-http-create-request): Remove url argument, use the buffer-local
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
174 (host (url-host url-http-target-url))
|
|
73600
|
175 (auth (if (cdr-safe (assoc "Authorization" url-http-extra-headers))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
176 nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
177 (url-get-authentication (or
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
178 (and (boundp 'proxy-info)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
179 proxy-info)
|
74477
90adadb81dba
(url-http-create-request): Remove url argument, use the buffer-local
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
180 url-http-target-url) nil 'any nil))))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
181 (if (equal "" real-fname)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
182 (setq real-fname "/"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
183 (setq no-cache (and no-cache (string-match "no-cache" no-cache)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
184 (if auth
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
185 (setq auth (concat "Authorization: " auth "\r\n")))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
186 (if proxy-auth
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
187 (setq proxy-auth (concat "Proxy-Authorization: " proxy-auth "\r\n")))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
188
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
189 ;; Protection against stupid values in the referer
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
190 (if (and ref-url (stringp ref-url) (or (string= ref-url "file:nil")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
191 (string= ref-url "")))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
192 (setq ref-url nil))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
193
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
194 ;; We do not want to expose the referer if the user is paranoid.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
195 (if (or (memq url-privacy-level '(low high paranoid))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
196 (and (listp url-privacy-level)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
197 (memq 'lastloc url-privacy-level)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
198 (setq ref-url nil))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
199
|
|
73600
|
200 ;; url-http-extra-headers contains an assoc-list of
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
201 ;; header/value pairs that we need to put into the request.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
202 (setq extra-headers (mapconcat
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
203 (lambda (x)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
204 (concat (car x) ": " (cdr x)))
|
|
73600
|
205 url-http-extra-headers "\r\n"))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
206 (if (not (equal extra-headers ""))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
207 (setq extra-headers (concat extra-headers "\r\n")))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
208
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
209 ;; This was done with a call to `format'. Concatting parts has
|
65804
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
210 ;; the advantage of keeping the parts of each header together and
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
211 ;; allows us to elide null lines directly, at the cost of making
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
212 ;; the layout less clear.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
213 (setq request
|
65804
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
214 ;; We used to concat directly, but if one of the strings happens
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
215 ;; to being multibyte (even if it only contains pure ASCII) then
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
216 ;; every string gets converted with `string-MAKE-multibyte' which
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
217 ;; turns the 127-255 codes into things like latin-1 accented chars
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
218 ;; (it would work right if it used `string-TO-multibyte' instead).
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
219 ;; So to avoid the problem we force every string to be unibyte.
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
220 (mapconcat
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
221 ;; FIXME: Instead of `string-AS-unibyte' we'd want
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
222 ;; `string-to-unibyte', so as to properly signal an error if one
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
223 ;; of the strings contains a multibyte char.
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
224 'string-as-unibyte
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
225 (delq nil
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
226 (list
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
227 ;; The request
|
|
73600
|
228 (or url-http-method "GET") " "
|
74477
90adadb81dba
(url-http-create-request): Remove url argument, use the buffer-local
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
229 (if using-proxy (url-recreate-url url-http-target-url) real-fname)
|
65804
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
230 " HTTP/" url-http-version "\r\n"
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
231 ;; Version of MIME we speak
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
232 "MIME-Version: 1.0\r\n"
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
233 ;; (maybe) Try to keep the connection open
|
74477
90adadb81dba
(url-http-create-request): Remove url argument, use the buffer-local
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
234 "Connection: " (if (or using-proxy
|
65804
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
235 (not url-http-attempt-keepalives))
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
236 "close" "keep-alive") "\r\n"
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
237 ;; HTTP extensions we support
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
238 (if url-extensions-header
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
239 (format
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
240 "Extension: %s\r\n" url-extensions-header))
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
241 ;; Who we want to talk to
|
74477
90adadb81dba
(url-http-create-request): Remove url argument, use the buffer-local
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
242 (if (/= (url-port url-http-target-url)
|
65804
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
243 (url-scheme-get-property
|
74477
90adadb81dba
(url-http-create-request): Remove url argument, use the buffer-local
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
244 (url-type url-http-target-url) 'default-port))
|
65804
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
245 (format
|
74477
90adadb81dba
(url-http-create-request): Remove url argument, use the buffer-local
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
246 "Host: %s:%d\r\n" host (url-port url-http-target-url))
|
65804
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
247 (format "Host: %s\r\n" host))
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
248 ;; Who its from
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
249 (if url-personal-mail-address
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
250 (concat
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
251 "From: " url-personal-mail-address "\r\n"))
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
252 ;; Encodings we understand
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
253 (if url-mime-encoding-string
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
254 (concat
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
255 "Accept-encoding: " url-mime-encoding-string "\r\n"))
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
256 (if url-mime-charset-string
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
257 (concat
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
258 "Accept-charset: " url-mime-charset-string "\r\n"))
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
259 ;; Languages we understand
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
260 (if url-mime-language-string
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
261 (concat
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
262 "Accept-language: " url-mime-language-string "\r\n"))
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
263 ;; Types we understand
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
264 "Accept: " (or url-mime-accept-string "*/*") "\r\n"
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
265 ;; User agent
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
266 (url-http-user-agent-string)
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
267 ;; Proxy Authorization
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
268 proxy-auth
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
269 ;; Authorization
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
270 auth
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
271 ;; Cookies
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
272 (url-cookie-generate-header-lines host real-fname
|
74477
90adadb81dba
(url-http-create-request): Remove url argument, use the buffer-local
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
273 (equal "https" (url-type url-http-target-url)))
|
65804
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
274 ;; If-modified-since
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
275 (if (and (not no-cache)
|
|
73600
|
276 (member url-http-method '("GET" nil)))
|
74477
90adadb81dba
(url-http-create-request): Remove url argument, use the buffer-local
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
277 (let ((tm (url-is-cached url-http-target-url)))
|
65804
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
278 (if tm
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
279 (concat "If-modified-since: "
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
280 (url-get-normalized-date tm) "\r\n"))))
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
281 ;; Whence we came
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
282 (if ref-url (concat
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
283 "Referer: " ref-url "\r\n"))
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
284 extra-headers
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
285 ;; Length of data
|
|
73600
|
286 (if url-http-data
|
65804
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
287 (concat
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
288 "Content-length: " (number-to-string
|
|
73600
|
289 (length url-http-data))
|
65804
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
290 "\r\n"))
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
291 ;; End request
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
292 "\r\n"
|
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
293 ;; Any data
|
|
73600
|
294 url-http-data))
|
65804
f8c4f76b7870
(url-http-create-request): Avoid incorrect implicit uni->multibyte conversion.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
295 ""))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
296 (url-http-debug "Request is: \n%s" request)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
297 request))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
298
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
299 ;; Parsing routines
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
300 (defun url-http-clean-headers ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
301 "Remove trailing \r from header lines.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
302 This allows us to use `mail-fetch-field', etc."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
303 (declare (special url-http-end-of-headers))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
304 (goto-char (point-min))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
305 (while (re-search-forward "\r$" url-http-end-of-headers t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
306 (replace-match "")))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
307
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
308 (defun url-http-handle-authentication (proxy)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
309 (declare (special status success url-http-method url-http-data
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
310 url-callback-function url-callback-arguments))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
311 (url-http-debug "Handling %s authentication" (if proxy "proxy" "normal"))
|
73626
064fe7ff7747
(url-http-handle-authentication): If there are several authentication
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
312 (let ((auths (or (nreverse
|
064fe7ff7747
(url-http-handle-authentication): If there are several authentication
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
313 (mail-fetch-field
|
064fe7ff7747
(url-http-handle-authentication): If there are several authentication
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
314 (if proxy "proxy-authenticate" "www-authenticate")
|
064fe7ff7747
(url-http-handle-authentication): If there are several authentication
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
315 nil nil t))
|
064fe7ff7747
(url-http-handle-authentication): If there are several authentication
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
316 '("basic")))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
317 (type nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
318 (url (url-recreate-url url-current-object))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
319 (url-basic-auth-storage 'url-http-real-basic-auth-storage)
|
73836
8368b321b13d
(url-http-handle-authentication): If there are several authentication
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
320 auth
|
8368b321b13d
(url-http-handle-authentication): If there are several authentication
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
321 (strength 0))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
322 ;; Cheating, but who cares? :)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
323 (if proxy
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
324 (setq url-basic-auth-storage 'url-http-proxy-basic-auth-storage))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
325
|
73836
8368b321b13d
(url-http-handle-authentication): If there are several authentication
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
326 ;; find strongest supported auth
|
8368b321b13d
(url-http-handle-authentication): If there are several authentication
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
327 (dolist (this-auth auths)
|
8368b321b13d
(url-http-handle-authentication): If there are several authentication
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
328 (setq this-auth (url-eat-trailing-space
|
8368b321b13d
(url-http-handle-authentication): If there are several authentication
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
329 (url-strip-leading-spaces
|
8368b321b13d
(url-http-handle-authentication): If there are several authentication
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
330 this-auth)))
|
8368b321b13d
(url-http-handle-authentication): If there are several authentication
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
331 (let* ((this-type
|
8368b321b13d
(url-http-handle-authentication): If there are several authentication
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
332 (if (string-match "[ \t]" this-auth)
|
8368b321b13d
(url-http-handle-authentication): If there are several authentication
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
333 (downcase (substring this-auth 0 (match-beginning 0)))
|
8368b321b13d
(url-http-handle-authentication): If there are several authentication
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
334 (downcase this-auth)))
|
8368b321b13d
(url-http-handle-authentication): If there are several authentication
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
335 (registered (url-auth-registered this-type))
|
8368b321b13d
(url-http-handle-authentication): If there are several authentication
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
336 (this-strength (cddr registered)))
|
8368b321b13d
(url-http-handle-authentication): If there are several authentication
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
337 (when (and registered (> this-strength strength))
|
8368b321b13d
(url-http-handle-authentication): If there are several authentication
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
338 (setq auth this-auth
|
8368b321b13d
(url-http-handle-authentication): If there are several authentication
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
339 type this-type
|
8368b321b13d
(url-http-handle-authentication): If there are several authentication
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
340 strength this-strength))))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
341
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
342 (if (not (url-auth-registered type))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
343 (progn
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
344 (widen)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
345 (goto-char (point-max))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
346 (insert "<hr>Sorry, but I do not know how to handle " type
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
347 " authentication. If you'd like to write it,"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
348 " send it to " url-bug-address ".<hr>")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
349 (setq status t))
|
|
66990
|
350 (let* ((args (url-parse-args (subst-char-in-string ?, ?\; auth)))
|
|
|
351 (auth (url-get-authentication url (cdr-safe (assoc "realm" args))
|
|
|
352 type t args)))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
353 (if (not auth)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
354 (setq success t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
355 (push (cons (if proxy "Proxy-Authorization" "Authorization") auth)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
356 url-http-extra-headers)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
357 (let ((url-request-method url-http-method)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
358 (url-request-data url-http-data)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
359 (url-request-extra-headers url-http-extra-headers))
|
73501
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
360 (url-retrieve-internal url url-callback-function
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
361 url-callback-arguments)))))))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
362
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
363 (defun url-http-parse-response ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
364 "Parse just the response code."
|
|
74200
|
365 (declare (special url-http-end-of-headers url-http-response-status
|
|
|
366 url-http-response-version))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
367 (if (not url-http-end-of-headers)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
368 (error "Trying to parse HTTP response code in odd buffer: %s" (buffer-name)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
369 (url-http-debug "url-http-parse-response called in (%s)" (buffer-name))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
370 (goto-char (point-min))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
371 (skip-chars-forward " \t\n") ; Skip any blank crap
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
372 (skip-chars-forward "HTTP/") ; Skip HTTP Version
|
|
74200
|
373 (setq url-http-response-version
|
|
|
374 (buffer-substring (point)
|
|
|
375 (progn
|
|
|
376 (skip-chars-forward "[0-9].")
|
|
|
377 (point))))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
378 (setq url-http-response-status (read (current-buffer))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
379
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
380 (defun url-http-handle-cookies ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
381 "Handle all set-cookie / set-cookie2 headers in an HTTP response.
|
|
69043
|
382 The buffer must already be narrowed to the headers, so `mail-fetch-field' will
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
383 work correctly."
|
|
76860
|
384 (let ((cookies (nreverse (mail-fetch-field "Set-Cookie" nil nil t)))
|
|
|
385 (cookies2 (nreverse (mail-fetch-field "Set-Cookie2" nil nil t))))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
386 (and cookies (url-http-debug "Found %d Set-Cookie headers" (length cookies)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
387 (and cookies2 (url-http-debug "Found %d Set-Cookie2 headers" (length cookies2)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
388 (while cookies
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
389 (url-cookie-handle-set-cookie (pop cookies)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
390 ;;; (while cookies2
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
391 ;;; (url-cookie-handle-set-cookie2 (pop cookies)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
392 )
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
393 )
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
394
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
395 (defun url-http-parse-headers ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
396 "Parse and handle HTTP specific headers.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
397 Return t if and only if the current buffer is still active and
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
398 should be shown to the user."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
399 ;; The comments after each status code handled are taken from RFC
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
400 ;; 2616 (HTTP/1.1)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
401 (declare (special url-http-end-of-headers url-http-response-status
|
|
74200
|
402 url-http-response-version
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
403 url-http-method url-http-data url-http-process
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
404 url-callback-function url-callback-arguments))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
405
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
406 (url-http-mark-connection-as-free (url-host url-current-object)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
407 (url-port url-current-object)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
408 url-http-process)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
409
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
410 (if (or (not (boundp 'url-http-end-of-headers))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
411 (not url-http-end-of-headers))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
412 (error "Trying to parse headers in odd buffer: %s" (buffer-name)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
413 (goto-char (point-min))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
414 (url-http-debug "url-http-parse-headers called in (%s)" (buffer-name))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
415 (url-http-parse-response)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
416 (mail-narrow-to-head)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
417 ;;(narrow-to-region (point-min) url-http-end-of-headers)
|
70396
083f558fe283
(url-http-parse-headers): Don't reuse connection if "Connection: close" header
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
418 (let ((connection (mail-fetch-field "Connection")))
|
|
74200
|
419 ;; In HTTP 1.0, keep the connection only if there is a
|
|
|
420 ;; "Connection: keep-alive" header.
|
|
|
421 ;; In HTTP 1.1 (and greater), keep the connection unless there is a
|
|
|
422 ;; "Connection: close" header
|
|
|
423 (cond
|
|
|
424 ((string= url-http-response-version "1.0")
|
|
|
425 (unless (and connection
|
|
|
426 (string= (downcase connection) "keep-alive"))
|
70396
083f558fe283
(url-http-parse-headers): Don't reuse connection if "Connection: close" header
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
427 (delete-process url-http-process)))
|
|
74200
|
428 (t
|
|
|
429 (when (and connection
|
|
|
430 (string= (downcase connection) "close"))
|
|
|
431 (delete-process url-http-process)))))
|
|
78733
|
432 (let ((buffer (current-buffer))
|
|
|
433 (class nil)
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
434 (success nil))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
435 (setq class (/ url-http-response-status 100))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
436 (url-http-debug "Parsed HTTP headers: class=%d status=%d" class url-http-response-status)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
437 (url-http-handle-cookies)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
438
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
439 (case class
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
440 ;; Classes of response codes
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
441 ;;
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
442 ;; 5xx = Server Error
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
443 ;; 4xx = Client Error
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
444 ;; 3xx = Redirection
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
445 ;; 2xx = Successful
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
446 ;; 1xx = Informational
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
447 (1 ; Information messages
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
448 ;; 100 = Continue with request
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
449 ;; 101 = Switching protocols
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
450 ;; 102 = Processing (Added by DAV)
|
|
78733
|
451 (url-mark-buffer-as-dead buffer)
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
452 (error "HTTP responses in class 1xx not supported (%d)" url-http-response-status))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
453 (2 ; Success
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
454 ;; 200 Ok
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
455 ;; 201 Created
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
456 ;; 202 Accepted
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
457 ;; 203 Non-authoritative information
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
458 ;; 204 No content
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
459 ;; 205 Reset content
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
460 ;; 206 Partial content
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
461 ;; 207 Multi-status (Added by DAV)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
462 (case url-http-response-status
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
463 ((204 205)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
464 ;; No new data, just stay at the same document
|
|
78733
|
465 (url-mark-buffer-as-dead buffer)
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
466 (setq success t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
467 (otherwise
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
468 ;; Generic success for all others. Store in the cache, and
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
469 ;; mark it as successful.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
470 (widen)
|
|
60035
|
471 (if (and url-automatic-caching (equal url-http-method "GET"))
|
|
78733
|
472 (url-store-in-cache buffer))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
473 (setq success t))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
474 (3 ; Redirection
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
475 ;; 300 Multiple choices
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
476 ;; 301 Moved permanently
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
477 ;; 302 Found
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
478 ;; 303 See other
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
479 ;; 304 Not modified
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
480 ;; 305 Use proxy
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
481 ;; 307 Temporary redirect
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
482 (let ((redirect-uri (or (mail-fetch-field "Location")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
483 (mail-fetch-field "URI"))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
484 (case url-http-response-status
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
485 (300
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
486 ;; Quoth the spec (section 10.3.1)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
487 ;; -------------------------------
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
488 ;; The requested resource corresponds to any one of a set of
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
489 ;; representations, each with its own specific location and
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
490 ;; agent-driven negotiation information is being provided so
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
491 ;; that the user can select a preferred representation and
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
492 ;; redirect its request to that location.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
493 ;; [...]
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
494 ;; If the server has a preferred choice of representation, it
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
495 ;; SHOULD include the specific URI for that representation in
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
496 ;; the Location field; user agents MAY use the Location field
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
497 ;; value for automatic redirection.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
498 ;; -------------------------------
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
499 ;; We do not support agent-driven negotiation, so we just
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
500 ;; redirect to the preferred URI if one is provided.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
501 nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
502 ((301 302 307)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
503 ;; If the 301|302 status code is received in response to a
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
504 ;; request other than GET or HEAD, the user agent MUST NOT
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
505 ;; automatically redirect the request unless it can be
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
506 ;; confirmed by the user, since this might change the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
507 ;; conditions under which the request was issued.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
508 (if (member url-http-method '("HEAD" "GET"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
509 ;; Automatic redirection is ok
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
510 nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
511 ;; It is just too big of a pain in the ass to get this
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
512 ;; prompt all the time. We will just silently lose our
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
513 ;; data and convert to a GET method.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
514 (url-http-debug "Converting `%s' request to `GET' because of REDIRECT(%d)"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
515 url-http-method url-http-response-status)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
516 (setq url-http-method "GET"
|
|
59685
|
517 url-http-data nil)))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
518 (303
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
519 ;; The response to the request can be found under a different
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
520 ;; URI and SHOULD be retrieved using a GET method on that
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
521 ;; resource.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
522 (setq url-http-method "GET"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
523 url-http-data nil))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
524 (304
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
525 ;; The 304 response MUST NOT contain a message-body.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
526 (url-http-debug "Extracting document from cache... (%s)"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
527 (url-cache-create-filename (url-view-url t)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
528 (url-cache-extract (url-cache-create-filename (url-view-url t)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
529 (setq redirect-uri nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
530 success t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
531 (305
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
532 ;; The requested resource MUST be accessed through the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
533 ;; proxy given by the Location field. The Location field
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
534 ;; gives the URI of the proxy. The recipient is expected
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
535 ;; to repeat this single request via the proxy. 305
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
536 ;; responses MUST only be generated by origin servers.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
537 (error "Redirection thru a proxy server not supported: %s"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
538 redirect-uri))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
539 (otherwise
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
540 ;; Treat everything like '300'
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
541 nil))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
542 (when redirect-uri
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
543 ;; Clean off any whitespace and/or <...> cruft.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
544 (if (string-match "\\([^ \t]+\\)[ \t]" redirect-uri)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
545 (setq redirect-uri (match-string 1 redirect-uri)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
546 (if (string-match "^<\\(.*\\)>$" redirect-uri)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
547 (setq redirect-uri (match-string 1 redirect-uri)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
548
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
549 ;; Some stupid sites (like sourceforge) send a
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
550 ;; non-fully-qualified URL (ie: /), which royally confuses
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
551 ;; the URL library.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
552 (if (not (string-match url-nonrelative-link redirect-uri))
|
|
66990
|
553 ;; Be careful to use the real target URL, otherwise we may
|
|
|
554 ;; compute the redirection relative to the URL of the proxy.
|
|
|
555 (setq redirect-uri
|
|
|
556 (url-expand-file-name redirect-uri url-http-target-url)))
|
|
|
557 (let ((url-request-method url-http-method)
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
558 (url-request-data url-http-data)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
559 (url-request-extra-headers url-http-extra-headers))
|
77179
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
560 ;; Check existing number of redirects
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
561 (if (or (< url-max-redirections 0)
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
562 (and (> url-max-redirections 0)
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
563 (let ((events (car url-callback-arguments))
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
564 (old-redirects 0))
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
565 (while events
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
566 (if (eq (car events) :redirect)
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
567 (setq old-redirects (1+ old-redirects)))
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
568 (and (setq events (cdr events))
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
569 (setq events (cdr events))))
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
570 (< old-redirects url-max-redirections))))
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
571 ;; url-max-redirections hasn't been reached, so go
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
572 ;; ahead and redirect.
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
573 (progn
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
574 ;; Remember that the request was redirected.
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
575 (setf (car url-callback-arguments)
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
576 (nconc (list :redirect redirect-uri)
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
577 (car url-callback-arguments)))
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
578 ;; Put in the current buffer a forwarding pointer to the new
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
579 ;; destination buffer.
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
580 ;; FIXME: This is a hack to fix url-retrieve-synchronously
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
581 ;; without changing the API. Instead url-retrieve should
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
582 ;; either simply not return the "destination" buffer, or it
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
583 ;; should take an optional `dest-buf' argument.
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
584 (set (make-local-variable 'url-redirect-buffer)
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
585 (url-retrieve-internal
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
586 redirect-uri url-callback-function
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
587 url-callback-arguments))
|
|
78733
|
588 (url-mark-buffer-as-dead buffer))
|
77179
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
589 ;; We hit url-max-redirections, so issue an error and
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
590 ;; stop redirecting.
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
591 (url-http-debug "Maximum redirections reached")
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
592 (setf (car url-callback-arguments)
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
593 (nconc (list :error (list 'error 'http-redirect-limit
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
594 redirect-uri))
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
595 (car url-callback-arguments)))
|
3aa49a5ae0ce
(url-http-parse-headers): Stop after a set number of redirections.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
596 (setq success t))))))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
597 (4 ; Client error
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
598 ;; 400 Bad Request
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
599 ;; 401 Unauthorized
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
600 ;; 402 Payment required
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
601 ;; 403 Forbidden
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
602 ;; 404 Not found
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
603 ;; 405 Method not allowed
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
604 ;; 406 Not acceptable
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
605 ;; 407 Proxy authentication required
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
606 ;; 408 Request time-out
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
607 ;; 409 Conflict
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
608 ;; 410 Gone
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
609 ;; 411 Length required
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
610 ;; 412 Precondition failed
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
611 ;; 413 Request entity too large
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
612 ;; 414 Request-URI too large
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
613 ;; 415 Unsupported media type
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
614 ;; 416 Requested range not satisfiable
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
615 ;; 417 Expectation failed
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
616 ;; 422 Unprocessable Entity (Added by DAV)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
617 ;; 423 Locked
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
618 ;; 424 Failed Dependency
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
619 (case url-http-response-status
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
620 (401
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
621 ;; The request requires user authentication. The response
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
622 ;; MUST include a WWW-Authenticate header field containing a
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
623 ;; challenge applicable to the requested resource. The
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
624 ;; client MAY repeat the request with a suitable
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
625 ;; Authorization header field.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
626 (url-http-handle-authentication nil))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
627 (402
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
628 ;; This code is reserved for future use
|
|
78733
|
629 (url-mark-buffer-as-dead buffer)
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
630 (error "Somebody wants you to give them money"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
631 (403
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
632 ;; The server understood the request, but is refusing to
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
633 ;; fulfill it. Authorization will not help and the request
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
634 ;; SHOULD NOT be repeated.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
635 (setq success t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
636 (404
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
637 ;; Not found
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
638 (setq success t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
639 (405
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
640 ;; The method specified in the Request-Line is not allowed
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
641 ;; for the resource identified by the Request-URI. The
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
642 ;; response MUST include an Allow header containing a list of
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
643 ;; valid methods for the requested resource.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
644 (setq success t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
645 (406
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
646 ;; The resource identified by the request is only capable of
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
647 ;; generating response entities which have content
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
648 ;; characteristics nota cceptable according to the accept
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
649 ;; headers sent in the request.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
650 (setq success t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
651 (407
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
652 ;; This code is similar to 401 (Unauthorized), but indicates
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
653 ;; that the client must first authenticate itself with the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
654 ;; proxy. The proxy MUST return a Proxy-Authenticate header
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
655 ;; field containing a challenge applicable to the proxy for
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
656 ;; the requested resource.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
657 (url-http-handle-authentication t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
658 (408
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
659 ;; The client did not produce a request within the time that
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
660 ;; the server was prepared to wait. The client MAY repeat
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
661 ;; the request without modifications at any later time.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
662 (setq success t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
663 (409
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
664 ;; The request could not be completed due to a conflict with
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
665 ;; the current state of the resource. This code is only
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
666 ;; allowed in situations where it is expected that the user
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
667 ;; mioght be able to resolve the conflict and resubmit the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
668 ;; request. The response body SHOULD include enough
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
669 ;; information for the user to recognize the source of the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
670 ;; conflict.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
671 (setq success t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
672 (410
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
673 ;; The requested resource is no longer available at the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
674 ;; server and no forwarding address is known.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
675 (setq success t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
676 (411
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
677 ;; The server refuses to accept the request without a defined
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
678 ;; Content-Length. The client MAY repeat the request if it
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
679 ;; adds a valid Content-Length header field containing the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
680 ;; length of the message-body in the request message.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
681 ;;
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
682 ;; NOTE - this will never happen because
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
683 ;; `url-http-create-request' automatically calculates the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
684 ;; content-length.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
685 (setq success t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
686 (412
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
687 ;; The precondition given in one or more of the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
688 ;; request-header fields evaluated to false when it was
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
689 ;; tested on the server.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
690 (setq success t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
691 ((413 414)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
692 ;; The server is refusing to process a request because the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
693 ;; request entity|URI is larger than the server is willing or
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
694 ;; able to process.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
695 (setq success t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
696 (415
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
697 ;; The server is refusing to service the request because the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
698 ;; entity of the request is in a format not supported by the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
699 ;; requested resource for the requested method.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
700 (setq success t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
701 (416
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
702 ;; A server SHOULD return a response with this status code if
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
703 ;; a request included a Range request-header field, and none
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
704 ;; of the range-specifier values in this field overlap the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
705 ;; current extent of the selected resource, and the request
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
706 ;; did not include an If-Range request-header field.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
707 (setq success t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
708 (417
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
709 ;; The expectation given in an Expect request-header field
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
710 ;; could not be met by this server, or, if the server is a
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
711 ;; proxy, the server has unambiguous evidence that the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
712 ;; request could not be met by the next-hop server.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
713 (setq success t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
714 (otherwise
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
715 ;; The request could not be understood by the server due to
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
716 ;; malformed syntax. The client SHOULD NOT repeat the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
717 ;; request without modifications.
|
73501
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
718 (setq success t)))
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
719 ;; Tell the callback that an error occurred, and what the
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
720 ;; status code was.
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
721 (when success
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
722 (setf (car url-callback-arguments)
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
723 (nconc (list :error (list 'error 'http url-http-response-status))
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
724 (car url-callback-arguments)))))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
725 (5
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
726 ;; 500 Internal server error
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
727 ;; 501 Not implemented
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
728 ;; 502 Bad gateway
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
729 ;; 503 Service unavailable
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
730 ;; 504 Gateway time-out
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
731 ;; 505 HTTP version not supported
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
732 ;; 507 Insufficient storage
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
733 (setq success t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
734 (case url-http-response-status
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
735 (501
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
736 ;; The server does not support the functionality required to
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
737 ;; fulfill the request.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
738 nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
739 (502
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
740 ;; The server, while acting as a gateway or proxy, received
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
741 ;; an invalid response from the upstream server it accessed
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
742 ;; in attempting to fulfill the request.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
743 nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
744 (503
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
745 ;; The server is currently unable to handle the request due
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
746 ;; to a temporary overloading or maintenance of the server.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
747 ;; The implication is that this is a temporary condition
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
748 ;; which will be alleviated after some delay. If known, the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
749 ;; length of the delay MAY be indicated in a Retry-After
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
750 ;; header. If no Retry-After is given, the client SHOULD
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
751 ;; handle the response as it would for a 500 response.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
752 nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
753 (504
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
754 ;; The server, while acting as a gateway or proxy, did not
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
755 ;; receive a timely response from the upstream server
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
756 ;; specified by the URI (e.g. HTTP, FTP, LDAP) or some other
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
757 ;; auxiliary server (e.g. DNS) it needed to access in
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
758 ;; attempting to complete the request.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
759 nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
760 (505
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
761 ;; The server does not support, or refuses to support, the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
762 ;; HTTP protocol version that was used in the request
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
763 ;; message.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
764 nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
765 (507 ; DAV
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
766 ;; The method could not be performed on the resource
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
767 ;; because the server is unable to store the representation
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
768 ;; needed to successfully complete the request. This
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
769 ;; condition is considered to be temporary. If the request
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
770 ;; which received this status code was the result of a user
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
771 ;; action, the request MUST NOT be repeated until it is
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
772 ;; requested by a separate user action.
|
73501
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
773 nil))
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
774 ;; Tell the callback that an error occurred, and what the
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
775 ;; status code was.
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
776 (when success
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
777 (setf (car url-callback-arguments)
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
778 (nconc (list :error (list 'error 'http url-http-response-status))
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
779 (car url-callback-arguments)))))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
780 (otherwise
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
781 (error "Unknown class of HTTP response code: %d (%d)"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
782 class url-http-response-status)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
783 (if (not success)
|
|
78733
|
784 (url-mark-buffer-as-dead buffer))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
785 (url-http-debug "Finished parsing HTTP headers: %S" success)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
786 (widen)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
787 success))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
788
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
789 ;; Miscellaneous
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
790 (defun url-http-activate-callback ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
791 "Activate callback specified when this buffer was created."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
792 (declare (special url-http-process
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
793 url-callback-function
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
794 url-callback-arguments))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
795 (url-http-mark-connection-as-free (url-host url-current-object)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
796 (url-port url-current-object)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
797 url-http-process)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
798 (url-http-debug "Activating callback in buffer (%s)" (buffer-name))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
799 (apply url-callback-function url-callback-arguments))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
800
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
801 ;; )
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
802
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
803 ;; These unfortunately cannot be macros... please ignore them!
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
804 (defun url-http-idle-sentinel (proc why)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
805 "Remove this (now defunct) process PROC from the list of open connections."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
806 (maphash (lambda (key val)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
807 (if (memq proc val)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
808 (puthash key (delq proc val) url-http-open-connections)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
809 url-http-open-connections))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
810
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
811 (defun url-http-end-of-document-sentinel (proc why)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
812 ;; Sentinel used for old HTTP/0.9 or connections we know are going
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
813 ;; to die as the 'end of document' notifier.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
814 (url-http-debug "url-http-end-of-document-sentinel in buffer (%s)"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
815 (process-buffer proc))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
816 (url-http-idle-sentinel proc why)
|
|
66990
|
817 (with-current-buffer (process-buffer proc)
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
818 (goto-char (point-min))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
819 (if (not (looking-at "HTTP/"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
820 ;; HTTP/0.9 just gets passed back no matter what
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
821 (url-http-activate-callback)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
822 (if (url-http-parse-headers)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
823 (url-http-activate-callback)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
824
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
825 (defun url-http-simple-after-change-function (st nd length)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
826 ;; Function used when we do NOT know how long the document is going to be
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
827 ;; Just _very_ simple 'downloaded %d' type of info.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
828 (declare (special url-http-end-of-headers))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
829 (url-lazy-message "Reading %s..." (url-pretty-length nd)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
830
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
831 (defun url-http-content-length-after-change-function (st nd length)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
832 "Function used when we DO know how long the document is going to be.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
833 More sophisticated percentage downloaded, etc.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
834 Also does minimal parsing of HTTP headers and will actually cause
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
835 the callback to be triggered."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
836 (declare (special url-current-object
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
837 url-http-end-of-headers
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
838 url-http-content-length
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
839 url-http-content-type
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
840 url-http-process))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
841 (if url-http-content-type
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
842 (url-display-percentage
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
843 "Reading [%s]... %s of %s (%d%%)"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
844 (url-percentage (- nd url-http-end-of-headers)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
845 url-http-content-length)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
846 url-http-content-type
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
847 (url-pretty-length (- nd url-http-end-of-headers))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
848 (url-pretty-length url-http-content-length)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
849 (url-percentage (- nd url-http-end-of-headers)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
850 url-http-content-length))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
851 (url-display-percentage
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
852 "Reading... %s of %s (%d%%)"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
853 (url-percentage (- nd url-http-end-of-headers)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
854 url-http-content-length)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
855 (url-pretty-length (- nd url-http-end-of-headers))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
856 (url-pretty-length url-http-content-length)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
857 (url-percentage (- nd url-http-end-of-headers)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
858 url-http-content-length)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
859
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
860 (if (> (- nd url-http-end-of-headers) url-http-content-length)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
861 (progn
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
862 ;; Found the end of the document! Wheee!
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
863 (url-display-percentage nil nil)
|
74134
a81576ee49cc
(url-http-content-length-after-change-function): Use `url-lazy-message'.
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
864 (url-lazy-message "Reading... done.")
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
865 (if (url-http-parse-headers)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
866 (url-http-activate-callback)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
867
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
868 (defun url-http-chunked-encoding-after-change-function (st nd length)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
869 "Function used when dealing with 'chunked' encoding.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
870 Cannot give a sophisticated percentage, but we need a different
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
871 function to look for the special 0-length chunk that signifies
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
872 the end of the document."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
873 (declare (special url-current-object
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
874 url-http-end-of-headers
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
875 url-http-content-type
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
876 url-http-chunked-length
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
877 url-http-chunked-counter
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
878 url-http-process url-http-chunked-start))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
879 (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
880 (goto-char st)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
881 (let ((read-next-chunk t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
882 (case-fold-search t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
883 (regexp nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
884 (no-initial-crlf nil))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
885 ;; We need to loop thru looking for more chunks even within
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
886 ;; one after-change-function call.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
887 (while read-next-chunk
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
888 (setq no-initial-crlf (= 0 url-http-chunked-counter))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
889 (if url-http-content-type
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
890 (url-display-percentage nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
891 "Reading [%s]... chunk #%d"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
892 url-http-content-type url-http-chunked-counter)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
893 (url-display-percentage nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
894 "Reading... chunk #%d"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
895 url-http-chunked-counter))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
896 (url-http-debug "Reading chunk %d (%d %d %d)"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
897 url-http-chunked-counter st nd length)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
898 (setq regexp (if no-initial-crlf
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
899 "\\([0-9a-z]+\\).*\r?\n"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
900 "\r?\n\\([0-9a-z]+\\).*\r?\n"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
901
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
902 (if url-http-chunked-start
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
903 ;; We know how long the chunk is supposed to be, skip over
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
904 ;; leading crap if possible.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
905 (if (> nd (+ url-http-chunked-start url-http-chunked-length))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
906 (progn
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
907 (url-http-debug "Got to the end of chunk #%d!"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
908 url-http-chunked-counter)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
909 (goto-char (+ url-http-chunked-start
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
910 url-http-chunked-length)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
911 (url-http-debug "Still need %d bytes to hit end of chunk"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
912 (- (+ url-http-chunked-start
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
913 url-http-chunked-length)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
914 nd))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
915 (setq read-next-chunk nil)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
916 (if (not read-next-chunk)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
917 (url-http-debug "Still spinning for next chunk...")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
918 (if no-initial-crlf (skip-chars-forward "\r\n"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
919 (if (not (looking-at regexp))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
920 (progn
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
921 ;; Must not have received the entirety of the chunk header,
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
922 ;; need to spin some more.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
923 (url-http-debug "Did not see start of chunk @ %d!" (point))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
924 (setq read-next-chunk nil))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
925 (add-text-properties (match-beginning 0) (match-end 0)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
926 (list 'start-open t
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
927 'end-open t
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
928 'chunked-encoding t
|
|
66225
|
929 'face 'cursor
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
930 'invisible t))
|
|
62400
|
931 (setq url-http-chunked-length (string-to-number (buffer-substring
|
|
|
932 (match-beginning 1)
|
|
|
933 (match-end 1))
|
|
|
934 16)
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
935 url-http-chunked-counter (1+ url-http-chunked-counter)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
936 url-http-chunked-start (set-marker
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
937 (or url-http-chunked-start
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
938 (make-marker))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
939 (match-end 0)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
940 ; (if (not url-http-debug)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
941 (delete-region (match-beginning 0) (match-end 0));)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
942 (url-http-debug "Saw start of chunk %d (length=%d, start=%d"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
943 url-http-chunked-counter url-http-chunked-length
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
944 (marker-position url-http-chunked-start))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
945 (if (= 0 url-http-chunked-length)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
946 (progn
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
947 ;; Found the end of the document! Wheee!
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
948 (url-http-debug "Saw end of stream chunk!")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
949 (setq read-next-chunk nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
950 (url-display-percentage nil nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
951 (goto-char (match-end 1))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
952 (if (re-search-forward "^\r*$" nil t)
|
63000
a2b860ef5fde
(url-http-chunked-encoding-after-change-function): Use `url-http-debug'
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
953 (url-http-debug "Saw end of trailers..."))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
954 (if (url-http-parse-headers)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
955 (url-http-activate-callback))))))))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
956
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
957 (defun url-http-wait-for-headers-change-function (st nd length)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
958 ;; This will wait for the headers to arrive and then splice in the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
959 ;; next appropriate after-change-function, etc.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
960 (declare (special url-current-object
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
961 url-http-end-of-headers
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
962 url-http-content-type
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
963 url-http-content-length
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
964 url-http-transfer-encoding
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
965 url-callback-function
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
966 url-callback-arguments
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
967 url-http-process
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
968 url-http-method
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
969 url-http-after-change-function
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
970 url-http-response-status))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
971 (url-http-debug "url-http-wait-for-headers-change-function (%s)"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
972 (buffer-name))
|
74198
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
973 (when (not (bobp))
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
974 (let ((end-of-headers nil)
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
975 (old-http nil)
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
976 (content-length nil))
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
977 (goto-char (point-min))
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
978 (if (and (looking-at ".*\n") ; have one line at least
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
979 (not (looking-at "^HTTP/[1-9]\\.[0-9]")))
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
980 ;; Not HTTP/x.y data, must be 0.9
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
981 ;; God, I wish this could die.
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
982 (setq end-of-headers t
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
983 url-http-end-of-headers 0
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
984 old-http t)
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
985 (when (re-search-forward "^\r*$" nil t)
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
986 ;; Saw the end of the headers
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
987 (url-http-debug "Saw end of headers... (%s)" (buffer-name))
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
988 (setq url-http-end-of-headers (set-marker (make-marker)
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
989 (point))
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
990 end-of-headers t)
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
991 (url-http-clean-headers)))
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
992
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
993 (if (not end-of-headers)
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
994 ;; Haven't seen the end of the headers yet, need to wait
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
995 ;; for more data to arrive.
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
996 nil
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
997 (if old-http
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
998 (message "HTTP/0.9 How I hate thee!")
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
999 (progn
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1000 (url-http-parse-response)
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1001 (mail-narrow-to-head)
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1002 ;;(narrow-to-region (point-min) url-http-end-of-headers)
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1003 (setq url-http-transfer-encoding (mail-fetch-field
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1004 "transfer-encoding")
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1005 url-http-content-type (mail-fetch-field "content-type"))
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1006 (if (mail-fetch-field "content-length")
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1007 (setq url-http-content-length
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1008 (string-to-number (mail-fetch-field "content-length"))))
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1009 (widen)))
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1010 (when url-http-transfer-encoding
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1011 (setq url-http-transfer-encoding
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1012 (downcase url-http-transfer-encoding)))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1013
|
74198
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1014 (cond
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1015 ((or (= url-http-response-status 204)
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1016 (= url-http-response-status 205))
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1017 (url-http-debug "%d response must have headers only (%s)."
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1018 url-http-response-status (buffer-name))
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1019 (when (url-http-parse-headers)
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1020 (url-http-activate-callback)))
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1021 ((string= "HEAD" url-http-method)
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1022 ;; A HEAD request is _ALWAYS_ terminated by the header
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1023 ;; information, regardless of any entity headers,
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1024 ;; according to section 4.4 of the HTTP/1.1 draft.
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1025 (url-http-debug "HEAD request must have headers only (%s)."
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1026 (buffer-name))
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1027 (when (url-http-parse-headers)
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1028 (url-http-activate-callback)))
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1029 ((string= "CONNECT" url-http-method)
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1030 ;; A CONNECT request is finished, but we cannot stick this
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1031 ;; back on the free connectin list
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1032 (url-http-debug "CONNECT request must have headers only.")
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1033 (when (url-http-parse-headers)
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1034 (url-http-activate-callback)))
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1035 ((equal url-http-response-status 304)
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1036 ;; Only allowed to have a header section. We have to handle
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1037 ;; this here instead of in url-http-parse-headers because if
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1038 ;; you have a cached copy of something without a known
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1039 ;; content-length, and try to retrieve it from the cache, we'd
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1040 ;; fall into the 'being dumb' section and wait for the
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1041 ;; connection to terminate, which means we'd wait for 10
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1042 ;; seconds for the keep-alives to time out on some servers.
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1043 (when (url-http-parse-headers)
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1044 (url-http-activate-callback)))
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1045 (old-http
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1046 ;; HTTP/0.9 always signaled end-of-connection by closing the
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1047 ;; connection.
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1048 (url-http-debug
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1049 "Saw HTTP/0.9 response, connection closed means end of document.")
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1050 (setq url-http-after-change-function
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1051 'url-http-simple-after-change-function))
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1052 ((equal url-http-transfer-encoding "chunked")
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1053 (url-http-debug "Saw chunked encoding.")
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1054 (setq url-http-after-change-function
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1055 'url-http-chunked-encoding-after-change-function)
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1056 (when (> nd url-http-end-of-headers)
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1057 (url-http-debug
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1058 "Calling initial chunked-encoding for extra data at end of headers")
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1059 (url-http-chunked-encoding-after-change-function
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1060 (marker-position url-http-end-of-headers) nd
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1061 (- nd url-http-end-of-headers))))
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1062 ((integerp url-http-content-length)
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1063 (url-http-debug
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1064 "Got a content-length, being smart about document end.")
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1065 (setq url-http-after-change-function
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1066 'url-http-content-length-after-change-function)
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1067 (cond
|
74198
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1068 ((= 0 url-http-content-length)
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1069 ;; We got a NULL body! Activate the callback
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1070 ;; immediately!
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1071 (url-http-debug
|
74198
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1072 "Got 0-length content-length, activating callback immediately.")
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1073 (when (url-http-parse-headers)
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1074 (url-http-activate-callback)))
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1075 ((> nd url-http-end-of-headers)
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1076 ;; Have some leftover data
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1077 (url-http-debug "Calling initial content-length for extra data at end of headers")
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1078 (url-http-content-length-after-change-function
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1079 (marker-position url-http-end-of-headers)
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1080 nd
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1081 (- nd url-http-end-of-headers)))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1082 (t
|
74198
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1083 nil)))
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1084 (t
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1085 (url-http-debug "No content-length, being dumb.")
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1086 (setq url-http-after-change-function
|
f99159d8c860
(url-http-wait-for-headers-change-function): Use `when' instead of
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1087 'url-http-simple-after-change-function)))))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1088 ;; We are still at the beginning of the buffer... must just be
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1089 ;; waiting for a response.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1090 (url-http-debug "Spinning waiting for headers..."))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1091 (goto-char (point-max)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1092
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1093 ;;;###autoload
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1094 (defun url-http (url callback cbargs)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1095 "Retrieve URL via HTTP asynchronously.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1096 URL must be a parsed URL. See `url-generic-parse-url' for details.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1097 When retrieval is completed, the function CALLBACK is executed with
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1098 CBARGS as the arguments."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1099 (check-type url vector "Need a pre-parsed URL.")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1100 (declare (special url-current-object
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1101 url-http-end-of-headers
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1102 url-http-content-type
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1103 url-http-content-length
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1104 url-http-transfer-encoding
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1105 url-http-after-change-function
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1106 url-callback-function
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1107 url-callback-arguments
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1108 url-http-method
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1109 url-http-extra-headers
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1110 url-http-data
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1111 url-http-chunked-length
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1112 url-http-chunked-start
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1113 url-http-chunked-counter
|
74477
90adadb81dba
(url-http-create-request): Remove url argument, use the buffer-local
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1114 url-http-process))
|
|
75234
|
1115 (let* ((host (url-host (or url-using-proxy url)))
|
|
|
1116 (port (url-port (or url-using-proxy url)))
|
|
|
1117 (connection (url-http-find-free-connection host port))
|
|
|
1118 (buffer (generate-new-buffer (format " *http %s:%d*" host port))))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1119 (if (not connection)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1120 ;; Failed to open the connection for some reason
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1121 (progn
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1122 (kill-buffer buffer)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1123 (setq buffer nil)
|
|
75234
|
1124 (error "Could not create connection to %s:%d" host port))
|
|
66990
|
1125 (with-current-buffer buffer
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1126 (mm-disable-multibyte)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1127 (setq url-current-object url
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1128 mode-line-format "%b [%s]")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1129
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1130 (dolist (var '(url-http-end-of-headers
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1131 url-http-content-type
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1132 url-http-content-length
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1133 url-http-transfer-encoding
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1134 url-http-after-change-function
|
|
74200
|
1135 url-http-response-version
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1136 url-http-response-status
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1137 url-http-chunked-length
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1138 url-http-chunked-counter
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1139 url-http-chunked-start
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1140 url-callback-function
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1141 url-callback-arguments
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1142 url-http-process
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1143 url-http-method
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1144 url-http-extra-headers
|
|
58686
|
1145 url-http-data
|
|
75234
|
1146 url-http-target-url
|
|
75662
|
1147 url-http-connection-opened
|
|
75234
|
1148 url-http-proxy))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1149 (set (make-local-variable var) nil))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1150
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1151 (setq url-http-method (or url-request-method "GET")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1152 url-http-extra-headers url-request-extra-headers
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1153 url-http-data url-request-data
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1154 url-http-process connection
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1155 url-http-chunked-length nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1156 url-http-chunked-start nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1157 url-http-chunked-counter 0
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1158 url-callback-function callback
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1159 url-callback-arguments cbargs
|
|
58686
|
1160 url-http-after-change-function 'url-http-wait-for-headers-change-function
|
|
75234
|
1161 url-http-target-url url-current-object
|
|
75662
|
1162 url-http-connection-opened nil
|
|
75234
|
1163 url-http-proxy url-using-proxy)
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1164
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1165 (set-process-buffer connection buffer)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1166 (set-process-filter connection 'url-http-generic-filter)
|
73501
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
1167 (let ((status (process-status connection)))
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
1168 (cond
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
1169 ((eq status 'connect)
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
1170 ;; Asynchronous connection
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
1171 (set-process-sentinel connection 'url-http-async-sentinel))
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
1172 ((eq status 'failed)
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
1173 ;; Asynchronous connection failed
|
|
75234
|
1174 (error "Could not create connection to %s:%d" host port))
|
73501
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
1175 (t
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
1176 (set-process-sentinel connection 'url-http-end-of-document-sentinel)
|
74477
90adadb81dba
(url-http-create-request): Remove url argument, use the buffer-local
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1177 (process-send-string connection (url-http-create-request)))))))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1178 buffer))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1179
|
73501
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
1180 (defun url-http-async-sentinel (proc why)
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
1181 (declare (special url-callback-arguments))
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
1182 ;; We are performing an asynchronous connection, and a status change
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
1183 ;; has occurred.
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
1184 (with-current-buffer (process-buffer proc)
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
1185 (cond
|
|
75662
|
1186 (url-http-connection-opened
|
|
|
1187 (url-http-end-of-document-sentinel proc why))
|
73501
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
1188 ((string= (substring why 0 4) "open")
|
|
75662
|
1189 (setq url-http-connection-opened t)
|
74477
90adadb81dba
(url-http-create-request): Remove url argument, use the buffer-local
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1190 (process-send-string proc (url-http-create-request)))
|
73501
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
1191 (t
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
1192 (setf (car url-callback-arguments)
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
1193 (nconc (list :error (list 'error 'connection-failed why
|
|
75234
|
1194 :host (url-host (or url-http-proxy url-current-object))
|
|
|
1195 :service (url-port (or url-http-proxy url-current-object))))
|
73501
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
1196 (car url-callback-arguments)))
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
1197 (url-http-activate-callback)))))
|
437fb645afb4
* url-http.el (url-http-mark-connection-as-free): Verify that
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
1198
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1199 ;; Since Emacs 19/20 does not allow you to change the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1200 ;; `after-change-functions' hook in the midst of running them, we fake
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1201 ;; an after change by hooking into the process filter and inserting
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1202 ;; the data ourselves. This is slightly less efficient, but there
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1203 ;; were tons of weird ways the after-change code was biting us in the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1204 ;; shorts.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1205 (defun url-http-generic-filter (proc data)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1206 ;; Sometimes we get a zero-length data chunk after the process has
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1207 ;; been changed to 'free', which means it has no buffer associated
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1208 ;; with it. Do nothing if there is no buffer, or 0 length data.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1209 (declare (special url-http-after-change-function))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1210 (and (process-buffer proc)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1211 (/= (length data) 0)
|
|
66990
|
1212 (with-current-buffer (process-buffer proc)
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1213 (url-http-debug "Calling after change function `%s' for `%S'" url-http-after-change-function proc)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1214 (funcall url-http-after-change-function
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1215 (point-max)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1216 (progn
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1217 (goto-char (point-max))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1218 (insert data)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1219 (point-max))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1220 (length data)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1221
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1222 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1223 ;;; file-name-handler stuff from here on out
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1224 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
69296
64b44b996827
(url-http-find-free-connection): Don't kill the process
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
1225 (defalias 'url-http-symbol-value-in-buffer
|
64b44b996827
(url-http-find-free-connection): Don't kill the process
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
1226 (if (fboundp 'symbol-value-in-buffer)
|
64b44b996827
(url-http-find-free-connection): Don't kill the process
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
1227 'symbol-value-in-buffer
|
64b44b996827
(url-http-find-free-connection): Don't kill the process
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
1228 (lambda (symbol buffer &optional unbound-value)
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1229 "Return the value of SYMBOL in BUFFER, or UNBOUND-VALUE if it is unbound."
|
|
66990
|
1230 (with-current-buffer buffer
|
69296
64b44b996827
(url-http-find-free-connection): Don't kill the process
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
1231 (if (not (boundp symbol))
|
64b44b996827
(url-http-find-free-connection): Don't kill the process
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
1232 unbound-value
|
64b44b996827
(url-http-find-free-connection): Don't kill the process
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
1233 (symbol-value symbol))))))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1234
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1235 (defun url-http-head (url)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1236 (let ((url-request-method "HEAD")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1237 (url-request-data nil))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1238 (url-retrieve-synchronously url)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1239
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1240 ;;;###autoload
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1241 (defun url-http-file-exists-p (url)
|
54830
ccfdda7b76d2
(url-http-parse-headers, url-http-file-exists-p): Remove unused var `version'.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
1242 (let ((status nil)
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1243 (exists nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1244 (buffer (url-http-head url)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1245 (if (not buffer)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1246 (setq exists nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1247 (setq status (url-http-symbol-value-in-buffer 'url-http-response-status
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1248 buffer 500)
|
|
70606
|
1249 exists (and (integerp status)
|
|
|
1250 (>= status 200) (< status 300)))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1251 (kill-buffer buffer))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1252 exists))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1253
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1254 ;;;###autoload
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1255 (defalias 'url-http-file-readable-p 'url-http-file-exists-p)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1256
|
54932
fd6856033c18
(url-http-head-file-attributes, url-http-file-attributes):
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
1257 (defun url-http-head-file-attributes (url &optional id-format)
|
|
73022
|
1258 (let ((buffer (url-http-head url)))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1259 (when buffer
|
|
73022
|
1260 (prog1
|
|
|
1261 (list
|
|
|
1262 nil ;dir / link / normal file
|
|
|
1263 1 ;number of links to file.
|
|
|
1264 0 0 ;uid ; gid
|
|
|
1265 nil nil nil ;atime ; mtime ; ctime
|
|
|
1266 (url-http-symbol-value-in-buffer 'url-http-content-length
|
|
|
1267 buffer -1)
|
|
|
1268 (eval-when-compile (make-string 10 ?-))
|
|
|
1269 nil nil nil) ;whether gid would change ; inode ; device.
|
|
|
1270 (kill-buffer buffer)))))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1271
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1272 ;;;###autoload
|
54932
fd6856033c18
(url-http-head-file-attributes, url-http-file-attributes):
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
1273 (defun url-http-file-attributes (url &optional id-format)
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1274 (if (url-dav-supported-p url)
|
54932
fd6856033c18
(url-http-head-file-attributes, url-http-file-attributes):
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
1275 (url-dav-file-attributes url id-format)
|
fd6856033c18
(url-http-head-file-attributes, url-http-file-attributes):
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
1276 (url-http-head-file-attributes url id-format)))
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1277
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1278 ;;;###autoload
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1279 (defun url-http-options (url)
|
|
69043
|
1280 "Return a property list describing options available for URL.
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1281 This list is retrieved using the `OPTIONS' HTTP method.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1282
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1283 Property list members:
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1284
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1285 methods
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1286 A list of symbols specifying what HTTP methods the resource
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1287 supports.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1288
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1289 dav
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1290 A list of numbers specifying what DAV protocol/schema versions are
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1291 supported.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1292
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1293 dasl
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1294 A list of supported DASL search types supported (string form)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1295
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1296 ranges
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1297 A list of the units available for use in partial document fetches.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1298
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1299 p3p
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1300 The `Platform For Privacy Protection' description for the resource.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1301 Currently this is just the raw header contents. This is likely to
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1302 change once P3P is formally supported by the URL package or
|
|
69043
|
1303 Emacs/W3."
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1304 (let* ((url-request-method "OPTIONS")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1305 (url-request-data nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1306 (buffer (url-retrieve-synchronously url))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1307 (header nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1308 (options nil))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1309 (when (and buffer (= 2 (/ (url-http-symbol-value-in-buffer
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1310 'url-http-response-status buffer 0) 100)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1311 ;; Only parse the options if we got a 2xx response code!
|
|
66990
|
1312 (with-current-buffer buffer
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1313 (save-restriction
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1314 (save-match-data
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1315 (mail-narrow-to-head)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1316
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1317 ;; Figure out what methods are supported.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1318 (when (setq header (mail-fetch-field "allow"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1319 (setq options (plist-put
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1320 options 'methods
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1321 (mapcar 'intern (split-string header "[ ,]+")))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1322
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1323 ;; Check for DAV
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1324 (when (setq header (mail-fetch-field "dav"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1325 (setq options (plist-put
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1326 options 'dav
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1327 (delq 0
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1328 (mapcar 'string-to-number
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1329 (split-string header "[, ]+"))))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1330
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1331 ;; Now for DASL
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1332 (when (setq header (mail-fetch-field "dasl"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1333 (setq options (plist-put
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1334 options 'dasl
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1335 (split-string header "[, ]+"))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1336
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1337 ;; P3P - should get more detailed here. FIXME
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1338 (when (setq header (mail-fetch-field "p3p"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1339 (setq options (plist-put options 'p3p header)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1340
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1341 ;; Check for whether they accept byte-range requests.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1342 (when (setq header (mail-fetch-field "accept-ranges"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1343 (setq options (plist-put
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1344 options 'ranges
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1345 (delq 'none
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1346 (mapcar 'intern
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1347 (split-string header "[, ]+"))))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1348 ))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1349 (if buffer (kill-buffer buffer))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1350 options))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1351
|
|
73336
|
1352 ;; HTTPS. This used to be in url-https.el, but that file collides
|
|
|
1353 ;; with url-http.el on systems with 8-character file names.
|
|
|
1354 (require 'tls)
|
|
|
1355
|
|
|
1356 ;;;###autoload
|
|
|
1357 (defconst url-https-default-port 443 "Default HTTPS port.")
|
|
|
1358 ;;;###autoload
|
|
|
1359 (defconst url-https-asynchronous-p t "HTTPS retrievals are asynchronous.")
|
|
|
1360 ;;;###autoload
|
|
|
1361 (defalias 'url-https-expand-file-name 'url-http-expand-file-name)
|
|
|
1362
|
|
|
1363 (defmacro url-https-create-secure-wrapper (method args)
|
|
|
1364 `(defun ,(intern (format (if method "url-https-%s" "url-https") method)) ,args
|
|
|
1365 ,(format "HTTPS wrapper around `%s' call." (or method "url-http"))
|
73390
3289ed0d2f0c
(url-https-create-secure-wrapper): Always use tls gateway method.
Magnus Henoch <mange@freemail.hu>
diff
changeset
|
1366 (let ((url-gateway-method 'tls))
|
|
73336
|
1367 (,(intern (format (if method "url-http-%s" "url-http") method))
|
|
|
1368 ,@(remove '&rest (remove '&optional args))))))
|
|
|
1369
|
|
|
1370 ;;;###autoload (autoload 'url-https "url-http")
|
|
|
1371 (url-https-create-secure-wrapper nil (url callback cbargs))
|
|
|
1372 ;;;###autoload (autoload 'url-https-file-exists-p "url-http")
|
|
|
1373 (url-https-create-secure-wrapper file-exists-p (url))
|
|
|
1374 ;;;###autoload (autoload 'url-https-file-readable-p "url-http")
|
|
|
1375 (url-https-create-secure-wrapper file-readable-p (url))
|
|
|
1376 ;;;###autoload (autoload 'url-https-file-attributes "url-http")
|
|
|
1377 (url-https-create-secure-wrapper file-attributes (url &optional id-format))
|
|
|
1378
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1379 (provide 'url-http)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1380
|
54830
ccfdda7b76d2
(url-http-parse-headers, url-http-file-exists-p): Remove unused var `version'.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
1381 ;; arch-tag: ba7c59ae-c0f4-4a31-9617-d85f221732ee
|
54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1382 ;;; url-http.el ends here
|
