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