Gecko [ goons4good.org ]

Name	Size	Permission	Date
url-about.elc	2.65 KB	-rw-r--r--	2023-06-07 04:11
url-auth.elc	10.36 KB	-rw-r--r--	2023-06-07 04:11
url-cache.elc	6.93 KB	-rw-r--r--	2023-06-07 04:11
url-cid.elc	1.39 KB	-rw-r--r--	2023-06-07 04:11
url-cookie.elc	17.15 KB	-rw-r--r--	2023-06-07 04:11
url-dav.elc	21.09 KB	-rw-r--r--	2023-06-07 04:11
url-dired.elc	2.48 KB	-rw-r--r--	2023-06-07 04:11
url-domsuf.elc	1.67 KB	-rw-r--r--	2023-06-07 04:11
url-expand.elc	4.66 KB	-rw-r--r--	2023-06-07 04:11
url-file.elc	7.54 KB	-rw-r--r--	2023-06-07 04:11
url-ftp.elc	920 B	-rw-r--r--	2023-06-07 04:11
url-future.elc	8.23 KB	-rw-r--r--	2023-06-07 04:11
url-gw.elc	6.49 KB	-rw-r--r--	2023-06-07 04:11
url-handlers.elc	18.13 KB	-rw-r--r--	2023-06-07 04:11
url-history.elc	5.07 KB	-rw-r--r--	2023-06-07 04:11
url-http.elc	35.74 KB	-rw-r--r--	2023-06-07 04:11
url-imap.elc	2.17 KB	-rw-r--r--	2023-06-07 04:11
url-irc.elc	2.73 KB	-rw-r--r--	2023-06-07 04:11
url-ldap.elc	6.27 KB	-rw-r--r--	2023-06-07 04:11
url-mailto.elc	3.13 KB	-rw-r--r--	2023-06-07 04:11
url-methods.elc	4.23 KB	-rw-r--r--	2023-06-07 04:11
url-misc.elc	3.34 KB	-rw-r--r--	2023-06-07 04:11
url-news.elc	7.38 KB	-rw-r--r--	2023-06-07 04:11
url-nfs.elc	4.4 KB	-rw-r--r--	2023-06-07 04:11
url-ns.elc	2.3 KB	-rw-r--r--	2023-06-07 04:11
url-parse.elc	17.43 KB	-rw-r--r--	2023-06-07 04:11
url-privacy.elc	1.64 KB	-rw-r--r--	2023-06-07 04:11
url-proxy.elc	1.93 KB	-rw-r--r--	2023-06-07 04:11
url-queue.elc	14.1 KB	-rw-r--r--	2023-06-07 04:11
url-util.elc	16.82 KB	-rw-r--r--	2023-06-07 04:11
url-vars.elc	12.92 KB	-rw-r--r--	2023-06-07 04:11
url.elc	8.87 KB	-rw-r--r--	2023-06-07 04:11

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:11:27 2023
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/url/url-gw.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301!\210\302\303\304\"\210\305\306\307\310\311\312%\210\313\314\307\315\316\317\311\306&\210\313\320\321\322\316\323\311\306&\210\313\324\307\325\316\326\311\306&\210\313\327\307\330\316\331\311\306&\210\313\332\333\334\316\335\311\306&\210\313\336\307\337\316\340\311\306&\210\313\341\342\343\316\344\311\306&\210\313\345\346\347\316\323\311\306&\210\313\350\351\352\316\323\311\306&\210\313\353\307\354\316\355\311\306&\210\313\356\307\357\316\360\311\306&\210\313\361\307\362\316\363\311\306&\210\313\364\365\366\316\367\311\306&\207" [require url-vars autoload socks-open-network-stream "socks" custom-declare-group url-gateway nil "URL gateway variables." :group url custom-declare-variable url-gateway-local-host-regexp "A regular expression specifying local hostnames/machines." :type (choice (const nil) regexp) url-gateway-prompt-pattern "^[^#$%>;]*[#$%>;] *" "A regular expression matching a shell prompt." regexp url-gateway-rlogin-host "What hostname to actually rlog into before doing a telnet." (choice (const nil) string) url-gateway-rlogin-user-name "Username to log into the remote machine with when using rlogin." (choice (const nil) string) url-gateway-rlogin-parameters '("telnet" "-8") "Parameters to `url-open-rlogin'.\nThis list will be used as the parameter list given to rsh." (repeat string) url-gateway-telnet-host "What hostname to actually login to before doing a telnet." (choice (const nil) string) url-gateway-telnet-parameters '("exec" "telnet" "-8") "Parameters to `url-open-telnet'.\nThis list will be executed as a command after logging in via telnet." (repeat string) url-gateway-telnet-login-prompt "^
*.?login:" "Prompt that tells us we should send our username when logging in w/telnet." url-gateway-telnet-password-prompt "^
*.?password:" "Prompt that tells us we should send our password when logging in w/telnet." url-gateway-telnet-user-name "User name to log in via telnet with." (choice (const nil) string) url-gateway-telnet-password "Password to use to log in via telnet with." (choice (const nil) string) url-gateway-broken-resolution "Whether to use nslookup to resolve hostnames.\nThis should be used when your version of Emacs cannot correctly use DNS,\nbut your machine can.  This usually happens if you are running a statically\nlinked Emacs under SunOS 4.x." boolean url-gateway-nslookup-program "nslookup" "If non-nil then a string naming nslookup program." (choice (const :tag "None" :value nil) string)] 8)
#@63 Attempt to resolve the given HOST using nslookup if possible.
(defalias 'url-gateway-nslookup-host #[(host) "\203@�\304\305\211	$	\306\307\"\210r\310!q\210\311!\312>\203'�\313!\210\202�eb\210\314\315\307\316#\2038�\317\224\317\225{\320p!\210)\n*\207	\207" [url-gateway-nslookup-program host res proc start-process " *nslookup*" set-process-query-on-exit-flag nil process-buffer process-status (run open) accept-process-output re-search-forward "Name:.*\nAddress: *\$.*\$$" t 1 kill-buffer] 5 (#$ . 3044) "sHost:  "])
#@69 Wait until string matching REGEXP arrives in process PROC's buffer.
(defalias 'url-wait-for-string #[(regexp proc) "peb\210\303	\304\305#?\205�\306\n!\210q\210eb\210\202�)\207" [buf regexp proc re-search-forward nil t accept-process-output] 4 (#$ . 3579)])
#@30 Open a connection using rsh.
(defalias 'url-open-rlogin #[(name buffer host service) ";\204	�\306!	\203$�\307\n\310\f\311	\312\313\314
D\"\315#&\2025�\307\n\310\f\312\313\314
D\"\315#%q\210\316\317\"\210\320 \210e`|\210)\207" [service url-gateway-rlogin-user-name name buffer url-gateway-rlogin-host url-gateway-rlogin-parameters int-to-string start-process "rsh" "-l" mapconcat identity append " " url-wait-for-string "^
*200" beginning-of-line host proc] 13 (#$ . 3846)])
(defalias 'url-open-telnet #[(name buffer host service) ";\204	�\306!r\307	!q\210\310 \210\311\n	\312\313$\314\315\f!\316>\203\245�\317\f\320\"\210\317\f\321
\322Q\"\210\323$\f\"\210\317\f%\206C�\324\325!\211%\322P\"\210\323&\f\"\210\317\f'\206Z�\326\327!\211'\322P\"\210\310 \210\323(\f\"\210\317\f\330\331\332)*D\"\333#\322P\"\210\323\334\f\"\210e\335\225|\210\317\f\336\"\210\323\337\f\"\210\317\f\340\"\210\341\f\342\"\210\343\342!\210eb\210\342y\210`d|\210\f+\207" [service buffer name case-fold-search proc url-gateway-telnet-host int-to-string get-buffer-create erase-buffer start-process "telnet" "-8" t process-status (open run) process-send-string "set escape \n" "open " "\n" url-wait-for-string read-string "login: " read-passwd "Password: " mapconcat identity append " " "^
*Escape character.*
*\n+" 0 "\n" "^telnet" "mode character\n" accept-process-output 1 sit-for url-gateway-telnet-login-prompt url-gateway-telnet-user-name url-gateway-telnet-password-prompt url-gateway-telnet-password url-gateway-prompt-pattern url-gateway-telnet-parameters host] 8])
#@213 Open a stream to HOST, possibly via a gateway.
Args per `open-network-stream'.
Will not make a connection if `url-gateway-unplugged' is non-nil.
Might do a non-blocking connection; use `process-status' to check.
(defalias 'url-open-stream #[(name buffer host service) "?\205=�	\203 �\n\306=\204 �\n\307=\204 �\310	\"\203 �\311\202!�\n\312\313\314\211\2036�\315!\305\316\314\217\210\f-\207" [url-gateway-unplugged url-gateway-local-host-regexp url-gateway-method host conn errobj tls ssl string-match native 0 t nil url-gateway-nslookup-host (byte-code "\306\211\n\307>\203$�\n\310=\203�\311\312\f
\313\n\314\315\316\317\"&\202Y�\n\320=\2034�\321\f
$\202Y�\n\322=\203D�\323\f
$\202Y�\n\324=\203T�\325\f
$\202Y�\326\327\"*\306\207" [coding-system-for-write coding-system-for-read gw-method name buffer host binary (tls ssl native) native plain open-network-stream :type :nowait featurep make-network-process (:nowait t) socks socks-open-network-stream telnet url-open-telnet rlogin url-open-rlogin error "Bad setting of url-gateway-method: %s" service url-gateway-method conn] 11) retry cur-retries gw-method url-gateway-broken-resolution] 5 (#$ . 5435)])
(provide 'url-gw)