|
0
|
1 ;;; url-vars.el,v --- Variables for Uniform Resource Locator tool
|
|
|
2 ;; Author: wmperry
|
|
|
3 ;; Created: 1996/06/03 15:04:57
|
|
|
4 ;; Version: 1.13
|
|
|
5 ;; Keywords: comm, data, processes, hypermedia
|
|
|
6
|
|
|
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
8 ;;; Copyright (c) 1993, 1994, 1995 by William M. Perry (wmperry@spry.com)
|
|
|
9 ;;;
|
|
|
10 ;;; This file is not part of GNU Emacs, but the same permissions apply.
|
|
|
11 ;;;
|
|
|
12 ;;; GNU Emacs is free software; you can redistribute it and/or modify
|
|
|
13 ;;; it under the terms of the GNU General Public License as published by
|
|
|
14 ;;; the Free Software Foundation; either version 2, or (at your option)
|
|
|
15 ;;; any later version.
|
|
|
16 ;;;
|
|
|
17 ;;; GNU Emacs is distributed in the hope that it will be useful,
|
|
|
18 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
19 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
20 ;;; GNU General Public License for more details.
|
|
|
21 ;;;
|
|
|
22 ;;; You should have received a copy of the GNU General Public License
|
|
|
23 ;;; along with GNU Emacs; see the file COPYING. If not, write to
|
|
|
24 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
25 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
26
|
|
2
|
27 (defconst url-version (let ((x "p1.0.41"))
|
|
|
28 (if (string-match "State: \\([^ \t\n]+\\)" x)
|
|
0
|
29 (substring x (match-beginning 1) (match-end 1))
|
|
|
30 x))
|
|
|
31 "Version # of URL package.")
|
|
|
32
|
|
|
33
|
|
|
34 ;;; This is so we can use a consistent method of checking for mule support
|
|
|
35 ;;; Emacs-based mule uses (boundp 'MULE), but XEmacs-based mule uses
|
|
|
36 ;;; (featurep 'mule) - I choose to use the latter.
|
|
|
37
|
|
|
38 (if (boundp 'MULE)
|
|
|
39 (provide 'mule))
|
|
|
40
|
|
|
41 (defvar url-current-can-be-cached t
|
|
|
42 "*Whether the current URL can be cached.")
|
|
|
43
|
|
|
44 (defvar url-current-object nil
|
|
|
45 "A parsed representation of the current url")
|
|
|
46
|
|
|
47 (defvar url-current-callback-func nil
|
|
|
48 "*The callback function for the current buffer.")
|
|
|
49
|
|
|
50 (defvar url-current-callback-data nil
|
|
|
51 "*The data to be passed to the callback function. This should be a list,
|
|
|
52 each item in the list will be an argument to the url-current-callback-func.")
|
|
|
53
|
|
|
54 (mapcar 'make-variable-buffer-local '(
|
|
|
55 url-current-callback-data
|
|
|
56 url-current-callback-func
|
|
|
57 url-current-can-be-cached
|
|
|
58 url-current-content-length
|
|
|
59 url-current-file
|
|
|
60 url-current-isindex
|
|
|
61 url-current-mime-encoding
|
|
|
62 url-current-mime-headers
|
|
|
63 url-current-mime-type
|
|
|
64 url-current-mime-viewer
|
|
|
65 url-current-object
|
|
|
66 url-current-port
|
|
|
67 url-current-referer
|
|
2
|
68 url-current-server
|
|
0
|
69 url-current-type
|
|
|
70 url-current-user
|
|
|
71 ))
|
|
|
72
|
|
|
73 (defvar url-default-retrieval-proc 'url-default-callback
|
|
|
74 "*The default action to take when an asynchronous retrieval completes.")
|
|
|
75
|
|
|
76 (defvar url-honor-refresh-requests t
|
|
|
77 "*Whether to do automatic page reloads at the request of the document
|
|
|
78 author or the server via the `Refresh' header in an HTTP/1.0 response.
|
|
|
79 If nil, no refresh requests will be honored.
|
|
|
80 If t, all refresh requests will be honored.
|
|
|
81 If non-nil and not t, the user will be asked for each refresh request.")
|
|
|
82
|
|
|
83 (defvar url-emacs-minor-version
|
|
|
84 (if (boundp 'emacs-minor-version)
|
|
|
85 (symbol-value 'emacs-minor-version)
|
|
|
86 (if (string-match "^[0-9]+\\.\\([0-9]+\\)" emacs-version)
|
|
|
87 (string-to-int
|
|
|
88 (substring emacs-version
|
|
|
89 (match-beginning 1) (match-end 1)))
|
|
|
90 0))
|
|
|
91 "What minor version of emacs we are using.")
|
|
|
92
|
|
|
93 (defvar url-inhibit-mime-parsing nil
|
|
|
94 "Whether to parse out (and delete) the MIME headers from a message.")
|
|
|
95
|
|
|
96 (defvar url-forms-based-ftp nil
|
|
|
97 "*If non-nil, local and remote file access of directories will be shown
|
|
|
98 as an HTML 3.0 form, allowing downloads of multiple files at once.")
|
|
|
99
|
|
|
100 (defvar url-automatic-caching nil
|
|
|
101 "*If non-nil, all documents will be automatically cached to the local
|
|
|
102 disk.")
|
|
|
103
|
|
|
104 (defvar url-cache-expired
|
|
|
105 (function (lambda (t1 t2) (>= (- (car t2) (car t1)) 5)))
|
|
|
106 "*A function (`funcall'able) that takes two times as its arguments, and
|
|
|
107 returns non-nil if the second time is 'too old' when compared to the first
|
|
|
108 time.")
|
|
|
109
|
|
|
110 (defvar url-check-md5s nil
|
|
|
111 "*Whether to check md5s of retrieved documents or not.")
|
|
|
112
|
|
|
113 (defvar url-expected-md5 nil "What md5 we expect to see.")
|
|
|
114
|
|
|
115 (defvar url-broken-resolution nil
|
|
|
116 "*Whether to use [ange|efs]-ftp-nslookup-host.")
|
|
|
117
|
|
|
118 (defvar url-bug-address "wmperry@spry.com" "Where to send bug reports.")
|
|
|
119
|
|
2
|
120 (defvar url-cookie-confirmation nil
|
|
|
121 "*If non-nil, confirmation by the user is required before accepting any
|
|
|
122 HTTP cookies.")
|
|
|
123
|
|
0
|
124 (defvar url-personal-mail-address nil
|
|
|
125 "*Your full email address. This is what is sent to HTTP/1.0 servers as
|
|
|
126 the FROM field. If not set when url-do-setup is run, it defaults to
|
|
|
127 the value of url-pgp/pem-entity.")
|
|
|
128
|
|
2
|
129 (defvar url-mule-retrieval-coding-system (if (featurep 'mule)
|
|
|
130 (if (boundp '*euc-japan*)
|
|
|
131 *euc-japan*
|
|
|
132 'euc-japan-unix)
|
|
0
|
133 nil)
|
|
|
134 "Coding system for retrieval, used before hexified.")
|
|
|
135
|
|
2
|
136 (defvar url-mule-no-coding-system (cond
|
|
|
137 ((and (featurep 'mule)
|
|
|
138 (string-match "XEmacs" emacs-version))
|
|
|
139 'noconv)
|
|
|
140 ((featurep 'mule)
|
|
|
141 '*noconv*)
|
|
|
142 (t nil))
|
|
|
143 "*Variable containing a symbol that specifies no coding system is to be used.
|
|
|
144 Only used if you are in a Mule-enabled Emacsen.")
|
|
|
145
|
|
0
|
146 (defvar url-directory-index-file "index.html"
|
|
|
147 "*The filename to look for when indexing a directory. If this file
|
|
|
148 exists, and is readable, then it will be viewed instead of
|
|
|
149 automatically creating the directory listing.")
|
|
|
150
|
|
|
151 (defvar url-pgp/pem-entity nil
|
|
|
152 "*The users PGP/PEM id - usually their email address.")
|
|
|
153
|
|
|
154 (defvar url-privacy-level 'none
|
|
|
155 "*How private you want your requests to be.
|
|
|
156 HTTP/1.0 has header fields for various information about the user, including
|
|
|
157 operating system information, email addresses, the last page you visited, etc.
|
|
|
158 This variable controls how much of this information is sent.
|
|
|
159
|
|
|
160 This should a symbol or a list.
|
|
|
161 Valid values if a symbol are:
|
|
|
162 none -- Send all information
|
|
|
163 low -- Don't send the last location
|
|
|
164 high -- Don't send the email address or last location
|
|
|
165 paranoid -- Don't send anything
|
|
|
166
|
|
|
167 If a list, this should be a list of symbols of what NOT to send.
|
|
|
168 Valid symbols are:
|
|
|
169 email -- the email address
|
|
|
170 os -- the operating system info
|
|
|
171 lastloc -- the last location
|
|
|
172 agent -- Do not send the User-Agent string
|
|
2
|
173 cookie -- never accept HTTP cookies
|
|
0
|
174
|
|
|
175 Samples:
|
|
|
176
|
|
|
177 (setq url-privacy-level 'high)
|
|
|
178 (setq url-privacy-level '(email lastloc)) ;; equivalent to 'high
|
|
|
179 (setq url-privacy-level '(os))
|
|
|
180
|
|
|
181 ::NOTE::
|
|
|
182 This variable controls several other variables and is _NOT_ automatically
|
|
|
183 updated. Call the function `url-setup-privacy-info' after modifying this
|
|
|
184 variable.
|
|
|
185 ")
|
|
|
186
|
|
|
187 (defvar url-uudecode-program "uudecode" "*The UUdecode executable.")
|
|
|
188
|
|
|
189 (defvar url-uuencode-program "uuencode" "*The UUencode executable.")
|
|
|
190
|
|
|
191 (defvar url-history-list nil "List of urls visited this session.")
|
|
|
192
|
|
|
193 (defvar url-inhibit-uncompression nil "Do not do decompression if non-nil.")
|
|
|
194
|
|
|
195 (defvar url-keep-history nil
|
|
|
196 "*Controls whether to keep a list of all the URLS being visited. If
|
|
|
197 non-nil, url will keep track of all the URLS visited.
|
|
|
198 If eq to `t', then the list is saved to disk at the end of each emacs
|
|
|
199 session.")
|
|
|
200
|
|
|
201 (defvar url-uncompressor-alist '((".z" . "x-gzip")
|
|
|
202 (".gz" . "x-gzip")
|
|
|
203 (".uue" . "x-uuencoded")
|
|
|
204 (".hqx" . "x-hqx")
|
|
|
205 (".Z" . "x-compress"))
|
|
2
|
206 "*An assoc list of file extensions and the appropriate
|
|
|
207 content-transfer-encodings for each.")
|
|
0
|
208
|
|
|
209 (defvar url-xterm-command "xterm -title %s -ut -e %s %s %s"
|
|
|
210 "*Command used to start an xterm window.")
|
|
|
211
|
|
|
212 (defvar url-tn3270-emulator "tn3270"
|
|
|
213 "The client to run in a subprocess to connect to a tn3270 machine.")
|
|
|
214
|
|
|
215 (defvar url-use-transparent nil
|
|
|
216 "*Whether to use the transparent package by Brian Tompsett instead of
|
|
|
217 the builtin telnet functions. Using transparent allows you to have full
|
|
|
218 vt100 emulation in the telnet and tn3270 links.")
|
|
|
219
|
|
|
220 (defvar url-mail-command 'url-mail
|
|
|
221 "*This function will be called whenever url needs to send mail. It should
|
|
|
222 enter a mail-mode-like buffer in the current window.
|
|
|
223 The commands mail-to and mail-subject should still work in this
|
|
|
224 buffer, and it should use mail-header-separator if possible.")
|
|
|
225
|
|
|
226 (defvar url-local-exec-path nil
|
|
|
227 "*A list of possible locations for x-exec scripts.")
|
|
|
228
|
|
|
229 (defvar url-proxy-services nil
|
|
|
230 "*An assoc list of access types and servers that gateway them.
|
|
|
231 Looks like ((\"http\" . \"url://for/proxy/server/\") ....) This is set up
|
|
|
232 from the ACCESS_proxy environment variables in url-do-setup.")
|
|
|
233
|
|
|
234 (defvar url-global-history-file nil
|
|
|
235 "*The global history file used by both Mosaic/X and the url package.
|
|
|
236 This file contains a list of all the URLs you have visited. This file
|
|
|
237 is parsed at startup and used to provide URL completion.")
|
|
|
238
|
|
|
239 (defvar url-global-history-save-interval 3600
|
|
|
240 "*The number of seconds between automatic saves of the history list.
|
|
|
241 Default is 1 hour. Note that if you change this variable after `url-do-setup'
|
|
|
242 has been run, you need to run the `url-setup-save-timer' function manually.")
|
|
|
243
|
|
|
244 (defvar url-global-history-timer nil)
|
|
|
245
|
|
|
246 (defvar url-passwd-entry-func nil
|
|
|
247 "*This is a symbol indicating which function to call to read in a
|
|
|
248 password. It will be set up depending on whether you are running EFS
|
|
|
249 or ange-ftp at startup if it is nil. This function should accept the
|
|
|
250 prompt string as its first argument, and the default value as its
|
|
|
251 second argument.")
|
|
|
252
|
|
|
253 (defvar url-gopher-labels
|
|
|
254 '(("0" . "(TXT)")
|
|
|
255 ("1" . "(DIR)")
|
|
|
256 ("2" . "(CSO)")
|
|
|
257 ("3" . "(ERR)")
|
|
|
258 ("4" . "(MAC)")
|
|
|
259 ("5" . "(PCB)")
|
|
|
260 ("6" . "(UUX)")
|
|
|
261 ("7" . "(???)")
|
|
|
262 ("8" . "(TEL)")
|
|
|
263 ("T" . "(TN3)")
|
|
|
264 ("9" . "(BIN)")
|
|
|
265 ("g" . "(GIF)")
|
|
|
266 ("I" . "(IMG)")
|
|
|
267 ("h" . "(WWW)")
|
|
|
268 ("s" . "(SND)"))
|
|
|
269 "*An assoc list of gopher types and how to describe them in the gopher
|
|
|
270 menus. These can be any string, but HTML/HTML+ entities should be
|
|
|
271 used when necessary, or it could disrupt formatting of the document
|
|
|
272 later on. It is also a good idea to make sure all the strings are the
|
|
|
273 same length after entity references are removed, on a strictly
|
|
|
274 stylistic level.")
|
|
|
275
|
|
|
276 (defvar url-gopher-icons
|
|
|
277 '(
|
|
|
278 ("0" . "&text.document;")
|
|
|
279 ("1" . "&folder;")
|
|
|
280 ("2" . "&index;")
|
|
|
281 ("3" . "&stop;")
|
|
|
282 ("4" . "&binhex.document;")
|
|
|
283 ("5" . "&binhex.document;")
|
|
|
284 ("6" . "&uuencoded.document;")
|
|
|
285 ("7" . "&index;")
|
|
|
286 ("8" . "&telnet;")
|
|
|
287 ("T" . "&tn3270;")
|
|
|
288 ("9" . "&binary.document;")
|
|
|
289 ("g" . "ℑ")
|
|
|
290 ("I" . "ℑ")
|
|
|
291 ("s" . "&audio;"))
|
|
|
292 "*An assoc list of gopher types and the graphic entity references to
|
|
|
293 show when possible.")
|
|
|
294
|
|
|
295 (defvar url-standalone-mode nil "*Rely solely on the cache?")
|
|
|
296 (defvar url-working-buffer " *URL*" "The buffer to do all the processing in.")
|
|
|
297 (defvar url-current-annotation nil "URL of document we are annotating...")
|
|
|
298 (defvar url-current-referer nil "Referer of this page.")
|
|
|
299 (defvar url-current-content-length nil "Current content length.")
|
|
|
300 (defvar url-current-file nil "Filename of current document.")
|
|
|
301 (defvar url-current-isindex nil "Is the current document a searchable index?")
|
|
|
302 (defvar url-current-mime-encoding nil "MIME encoding of current document.")
|
|
|
303 (defvar url-current-mime-headers nil "An alist of MIME headers.")
|
|
|
304 (defvar url-current-mime-type nil "MIME type of current document.")
|
|
|
305 (defvar url-current-mime-viewer nil "How to view the current MIME doc.")
|
|
|
306 (defvar url-current-nntp-server nil "What nntp server currently opened.")
|
|
|
307 (defvar url-current-passwd-count 0 "How many times password has failed.")
|
|
|
308 (defvar url-current-port nil "Port # of the current document.")
|
|
|
309 (defvar url-current-server nil "Server of the current document.")
|
|
|
310 (defvar url-current-user nil "Username for ftp login.")
|
|
|
311 (defvar url-current-type nil "We currently in http or file mode?")
|
|
|
312 (defvar url-gopher-types "0123456789+gIThws:;<"
|
|
|
313 "A string containing character representations of all the gopher types.")
|
|
|
314 (defvar url-mime-separator-chars (mapcar 'identity
|
|
|
315 (concat "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
|
|
|
316 "abcdefghijklmnopqrstuvwxyz"
|
|
|
317 "0123456789'()+_,-./=?"))
|
|
|
318 "Characters allowable in a MIME multipart separator.")
|
|
|
319
|
|
|
320 (defvar url-bad-port-list
|
|
|
321 '("25" "119" "19")
|
|
|
322 "*List of ports to warn the user about connecting to. Defaults to just
|
|
|
323 the mail, chargen, and NNTP ports so you cannot be tricked into sending
|
|
|
324 fake mail or forging messages by a malicious HTML document.")
|
|
|
325
|
|
|
326 (defvar url-be-anal-about-file-attributes nil
|
|
|
327 "*Whether to use HTTP/1.0 to figure out file attributes
|
|
|
328 or just guess based on file extension, etc.")
|
|
|
329
|
|
|
330 (defvar url-be-asynchronous nil
|
|
|
331 "*Controls whether document retrievals over HTTP should be done in
|
|
|
332 the background. This allows you to keep working in other windows
|
|
|
333 while large downloads occur.")
|
|
|
334 (make-variable-buffer-local 'url-be-asynchronous)
|
|
|
335
|
|
|
336 (defvar url-request-data nil "Any data to send with the next request.")
|
|
|
337
|
|
|
338 (defvar url-request-extra-headers nil
|
|
|
339 "A list of extra headers to send with the next request. Should be
|
|
|
340 an assoc list of headers/contents.")
|
|
|
341
|
|
|
342 (defvar url-request-method nil "The method to use for the next request.")
|
|
|
343
|
|
|
344 (defvar url-mime-encoding-string nil
|
|
|
345 "String to send to the server in the Accept-encoding: field in HTTP/1.0
|
|
|
346 requests. This is created automatically from mm-content-transfer-encodings.")
|
|
|
347
|
|
|
348 (defvar url-mime-language-string "*/*"
|
|
|
349 "String to send to the server in the Accept-language: field in
|
|
|
350 HTTP/1.0 requests.")
|
|
|
351
|
|
|
352 (defvar url-mime-accept-string nil
|
|
|
353 "String to send to the server in the Accept: field in HTTP/1.0 requests.
|
|
|
354 This is created automatically from url-mime-viewers, after the mailcap file
|
|
|
355 has been parsed.")
|
|
|
356
|
|
|
357 (defvar url-history-changed-since-last-save nil
|
|
|
358 "Whether the history list has changed since the last save operation.")
|
|
|
359
|
|
|
360 (defvar url-proxy-basic-authentication nil
|
|
|
361 "Internal structure - do not modify!")
|
|
|
362
|
|
|
363 (defvar url-registered-protocols nil
|
|
|
364 "Internal structure - do not modify! See `url-register-protocol'")
|
|
|
365
|
|
|
366 (defvar url-package-version "Unknown" "Version # of package using URL.")
|
|
|
367
|
|
|
368 (defvar url-package-name "Unknown" "Version # of package using URL.")
|
|
|
369
|
|
|
370 (defvar url-system-type nil "What type of system we are on.")
|
|
|
371 (defvar url-os-type nil "What OS we are on.")
|
|
|
372
|
|
|
373 (defvar url-max-password-attempts 5
|
|
|
374 "*Maximum number of times a password will be prompted for when a
|
|
|
375 protected document is denied by the server.")
|
|
|
376
|
|
|
377 (defvar url-wais-to-mime
|
|
|
378 '(
|
|
|
379 ("WSRC" . "application/x-wais-source") ; A database description
|
|
|
380 ("TEXT" . "text/plain") ; plain text
|
|
|
381 )
|
|
|
382 "An assoc list of wais doctypes and their corresponding MIME
|
|
|
383 content-types.")
|
|
|
384
|
|
|
385 (defvar url-waisq-prog "waisq"
|
|
|
386 "*Name of the waisq executable on this system. This should be the
|
|
|
387 waisq program from think.com's wais8-b5.1 distribution.")
|
|
|
388
|
|
|
389 (defvar url-wais-gateway-server "www.ncsa.uiuc.edu"
|
|
|
390 "*The machine name where the WAIS gateway lives.")
|
|
|
391
|
|
|
392 (defvar url-wais-gateway-port "8001"
|
|
|
393 "*The port # of the WAIS gateway.")
|
|
|
394
|
|
|
395 (defvar url-temporary-directory "/tmp" "*Where temporary files go.")
|
|
|
396
|
|
|
397 (defvar url-show-status t
|
|
|
398 "*Whether to show a running total of bytes transferred. Can cause a
|
|
|
399 large hit if using a remote X display over a slow link, or a terminal
|
|
|
400 with a slow modem.")
|
|
|
401
|
|
|
402 (defvar url-using-proxy nil
|
|
|
403 "Either nil or the fully qualified proxy URL in use, e.g.
|
|
|
404 http://www.domain.com/")
|
|
|
405
|
|
|
406 (defvar url-news-server nil
|
|
|
407 "*The default news server to get newsgroups/articles from if no server
|
|
|
408 is specified in the URL. Defaults to the environment variable NNTPSERVER
|
|
|
409 or \"news\" if NNTPSERVER is undefined.")
|
|
|
410
|
|
|
411 (defvar url-gopher-to-mime
|
|
|
412 '((?0 . "text/plain") ; It's a file
|
|
|
413 (?1 . "www/gopher") ; Gopher directory
|
|
|
414 (?2 . "www/gopher-cso-search") ; CSO search
|
|
|
415 (?3 . "text/plain") ; Error
|
|
|
416 (?4 . "application/mac-binhex40") ; Binhexed macintosh file
|
|
|
417 (?5 . "application/pc-binhex40") ; DOS binary archive of some sort
|
|
|
418 (?6 . "archive/x-uuencode") ; Unix uuencoded file
|
|
|
419 (?7 . "www/gopher-search") ; Gopher search!
|
|
|
420 (?9 . "application/octet-stream") ; Binary file!
|
|
|
421 (?g . "image/gif") ; Gif file
|
|
|
422 (?I . "image/gif") ; Some sort of image
|
|
|
423 (?h . "text/html") ; HTML source
|
|
|
424 (?s . "audio/basic") ; Sound file
|
|
|
425 )
|
|
|
426 "*An assoc list of gopher types and their corresponding MIME types.")
|
|
|
427
|
|
|
428 (defvar url-use-hypertext-gopher t
|
|
|
429 "*Controls how gopher documents are retrieved.
|
|
|
430 If non-nil, the gopher pages will be converted into HTML and parsed
|
|
|
431 just like any other page. If nil, the requests will be passed off to
|
|
|
432 the gopher.el package by Scott Snyder. Using the gopher.el package
|
|
|
433 will lose the gopher+ support, and inlined searching.")
|
|
|
434
|
|
|
435 (defvar url-global-history-hash-table nil
|
|
|
436 "Hash table for global history completion.")
|
|
|
437
|
|
|
438 (defvar url-nonrelative-link
|
|
|
439 "^\\([-a-zA-Z0-9+.]+:\\)"
|
|
|
440 "A regular expression that will match an absolute URL.")
|
|
|
441
|
|
|
442 (defvar url-configuration-directory nil
|
|
|
443 "*Where the URL configuration files can be found.")
|
|
|
444
|
|
|
445 (defvar url-confirmation-func 'y-or-n-p
|
|
|
446 "*What function to use for asking yes or no functions. Possible
|
|
|
447 values are 'yes-or-no-p or 'y-or-n-p, or any function that takes a
|
|
|
448 single argument (the prompt), and returns t only if a positive answer
|
|
|
449 is gotten.")
|
|
|
450
|
|
|
451 (defvar url-connection-retries 5
|
|
|
452 "*# of times to try for a connection before bailing.
|
|
|
453 If for some reason url-open-stream cannot make a connection to a host
|
|
|
454 right away, it will sit for 1 second, then try again, up to this many
|
|
|
455 tries.")
|
|
|
456
|
|
|
457 (defvar url-find-this-link nil "Link to go to within a document.")
|
|
|
458
|
|
|
459 (defvar url-show-http2-transfer t
|
|
|
460 "*Whether to show the total # of bytes, size of file, and percentage
|
|
|
461 transferred when retrieving a document over HTTP/1.0 and it returns a
|
|
|
462 valid content-length header. This can mess up some people behind
|
|
|
463 gateways.")
|
|
|
464
|
|
|
465 (defvar url-gateway-method 'native
|
|
|
466 "*The type of gateway support to use.
|
|
|
467 Should be a symbol specifying how we are to get a connection off of the
|
|
|
468 local machine.
|
|
|
469
|
|
|
470 Currently supported methods:
|
|
|
471 'program :: Run a program in a subprocess to connect
|
|
|
472 (examples are itelnet, an expect script, etc)
|
|
|
473 'native :: Use the native open-network-stream in emacs
|
|
|
474 'tcp :: Use the excellent tcp.el package from gnus.
|
|
|
475 This simply does a (require 'tcp), then sets
|
|
|
476 url-gateway-method to be 'native.")
|
|
|
477
|
|
|
478 (defvar url-gateway-shell-is-telnet nil
|
|
|
479 "*Whether the login shell of the remote host is telnet.")
|
|
|
480
|
|
|
481 (defvar url-gateway-program-interactive nil
|
|
|
482 "*Whether url needs to hand-hold the login program on the remote machine.")
|
|
|
483
|
|
|
484 (defvar url-gateway-handholding-login-regexp "ogin:"
|
|
|
485 "*Regexp for when to send the username to the remote process.")
|
|
|
486
|
|
|
487 (defvar url-gateway-handholding-password-regexp "ord:"
|
|
|
488 "*Regexp for when to send the password to the remote process.")
|
|
|
489
|
|
|
490 (defvar url-gateway-host-prompt-pattern "^[^#$%>;]*[#$%>;] *"
|
|
|
491 "*Regexp used to detect when the login is finished on the remote host.")
|
|
|
492
|
|
|
493 (defvar url-gateway-telnet-ready-regexp "Escape character is .*"
|
|
|
494 "*A regular expression that signifies url-gateway-telnet-program is
|
|
|
495 ready to accept input.")
|
|
|
496
|
|
|
497 (defvar url-local-rlogin-prog "rlogin"
|
|
|
498 "*Program for local telnet connections.")
|
|
|
499
|
|
|
500 (defvar url-remote-rlogin-prog "rlogin"
|
|
|
501 "*Program for remote telnet connections.")
|
|
|
502
|
|
|
503 (defvar url-local-telnet-prog "telnet"
|
|
|
504 "*Program for local telnet connections.")
|
|
|
505
|
|
|
506 (defvar url-remote-telnet-prog "telnet"
|
|
|
507 "*Program for remote telnet connections.")
|
|
|
508
|
|
2
|
509 (defvar url-running-xemacs (string-match "XEmacs" emacs-version)
|
|
|
510 "*In XEmacs?.")
|
|
|
511
|
|
0
|
512 (defvar url-gateway-telnet-program "itelnet"
|
|
|
513 "*Program to run in a subprocess when using gateway-method 'program.")
|
|
|
514
|
|
|
515 (defvar url-gateway-local-host-regexp nil
|
|
|
516 "*If a host being connected to matches this regexp then the
|
|
|
517 connection is done natively, otherwise the process is started on
|
|
|
518 `url-gateway-host' instead.")
|
|
|
519
|
|
|
520 (defvar url-use-hypertext-dired t
|
|
|
521 "*How to format directory listings.
|
|
|
522
|
|
|
523 If value is non-nil, use directory-files to list them out and
|
|
|
524 transform them into a hypertext document, then pass it through the
|
|
|
525 parse like any other document.
|
|
|
526
|
|
|
527 If value nil, just pass the directory off to dired using find-file.")
|
|
|
528
|
|
|
529 (defconst monthabbrev-alist
|
|
|
530 '(("Jan" . 1) ("Feb" . 2) ("Mar" . 3) ("Apr" . 4) ("May" . 5) ("Jun" . 6)
|
|
|
531 ("Jul" . 7) ("Aug" . 8) ("Sep" . 9) ("Oct" . 10) ("Nov" . 11) ("Dec" . 12)))
|
|
|
532
|
|
|
533 (defvar url-default-ports '(("http" . "80")
|
|
|
534 ("gopher" . "70")
|
|
|
535 ("telnet" . "23")
|
|
|
536 ("news" . "119")
|
|
|
537 ("https" . "443")
|
|
|
538 ("shttp" . "80"))
|
|
|
539 "An assoc list of protocols and default port #s")
|
|
|
540
|
|
|
541 (defvar url-setup-done nil "*Has setup configuration been done?")
|
|
|
542
|
|
|
543 (defvar url-source nil
|
|
|
544 "*Whether to force a sourcing of the next buffer. This forces local
|
|
|
545 files to be read into a buffer, no matter what. Gets around the
|
|
|
546 optimization that if you are passing it to a viewer, just make a
|
|
|
547 symbolic link, which looses if you want the source for inlined
|
|
|
548 images/etc.")
|
|
|
549
|
|
|
550 (defconst weekday-alist
|
|
|
551 '(("Sunday" . 0) ("Monday" . 1) ("Tuesday" . 2) ("Wednesday" . 3)
|
|
|
552 ("Thursday" . 4) ("Friday" . 5) ("Saturday" . 6)
|
|
|
553 ("Tues" . 2) ("Thurs" . 4)
|
|
|
554 ("Sun" . 0) ("Mon" . 1) ("Tue" . 2) ("Wed" . 3)
|
|
|
555 ("Thu" . 4) ("Fri" . 5) ("Sat" . 6)))
|
|
|
556
|
|
|
557 (defconst monthabbrev-alist
|
|
|
558 '(("Jan" . 1) ("Feb" . 2) ("Mar" . 3) ("Apr" . 4) ("May" . 5) ("Jun" . 6)
|
|
|
559 ("Jul" . 7) ("Aug" . 8) ("Sep" . 9) ("Oct" . 10) ("Nov" . 11) ("Dec" . 12))
|
|
|
560 )
|
|
|
561
|
|
|
562 (defvar url-lazy-message-time 0)
|
|
|
563
|
|
|
564 (defvar url-extensions-header "Security/Digest Security/SSL")
|
|
|
565
|
|
|
566 (defvar url-mailserver-syntax-table
|
|
|
567 (copy-syntax-table emacs-lisp-mode-syntax-table)
|
|
|
568 "*A syntax table for parsing the mailserver URL")
|
|
|
569
|
|
|
570 (modify-syntax-entry ?' "\"" url-mailserver-syntax-table)
|
|
|
571 (modify-syntax-entry ?` "\"" url-mailserver-syntax-table)
|
|
|
572 (modify-syntax-entry ?< "(>" url-mailserver-syntax-table)
|
|
|
573 (modify-syntax-entry ?> ")<" url-mailserver-syntax-table)
|
|
|
574 (modify-syntax-entry ?/ " " url-mailserver-syntax-table)
|
|
|
575
|
|
|
576 ;;; Make OS/2 happy - yeeks
|
|
|
577 (defvar tcp-binary-process-input-services nil
|
|
|
578 "*Make OS/2 happy with our CRLF pairs...")
|
|
|
579
|
|
|
580 (provide 'url-vars)
|
