Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
net /
Delete
Unzip
Name
Size
Permission
Date
Action
ange-ftp.elc
119.46
KB
-rw-r--r--
2023-06-07 04:15
browse-url.elc
48.13
KB
-rw-r--r--
2023-06-07 04:15
dbus.elc
52.95
KB
-rw-r--r--
2023-06-07 04:15
dig.elc
6.32
KB
-rw-r--r--
2023-06-07 04:15
dns.elc
11.16
KB
-rw-r--r--
2023-06-07 04:16
eudc-bob.elc
8.76
KB
-rw-r--r--
2023-06-07 04:16
eudc-export.elc
5.84
KB
-rw-r--r--
2023-06-07 04:16
eudc-hotlist.elc
5.4
KB
-rw-r--r--
2023-06-07 04:16
eudc-vars.elc
13.99
KB
-rw-r--r--
2023-06-07 04:16
eudc.elc
31.94
KB
-rw-r--r--
2023-06-07 04:16
eudcb-bbdb.elc
5.29
KB
-rw-r--r--
2023-06-07 04:16
eudcb-ldap.elc
5.12
KB
-rw-r--r--
2023-06-07 04:16
eudcb-mab.elc
2.74
KB
-rw-r--r--
2023-06-07 04:16
eudcb-ph.elc
6.29
KB
-rw-r--r--
2023-06-07 04:16
gnutls.elc
7.86
KB
-rw-r--r--
2023-06-07 04:16
goto-addr.elc
9
KB
-rw-r--r--
2023-06-07 04:11
hmac-def.elc
2.01
KB
-rw-r--r--
2023-06-07 04:16
hmac-md5.elc
2.09
KB
-rw-r--r--
2023-06-07 04:16
imap.elc
101.96
KB
-rw-r--r--
2023-06-07 04:16
ldap.elc
15.05
KB
-rw-r--r--
2023-06-07 04:16
mairix.elc
24.06
KB
-rw-r--r--
2023-06-07 04:16
net-utils.elc
30.27
KB
-rw-r--r--
2023-06-07 04:16
netrc.elc
5.05
KB
-rw-r--r--
2023-06-07 04:16
network-stream.elc
10.07
KB
-rw-r--r--
2023-06-07 04:16
newst-backend.elc
65.62
KB
-rw-r--r--
2023-06-07 04:16
newst-plainview.elc
49.23
KB
-rw-r--r--
2023-06-07 04:16
newst-reader.elc
8.38
KB
-rw-r--r--
2023-06-07 04:16
newst-ticker.elc
7.51
KB
-rw-r--r--
2023-06-07 04:16
newst-treeview.elc
70.56
KB
-rw-r--r--
2023-06-07 04:16
newsticker.elc
830
B
-rw-r--r--
2023-06-07 04:16
ntlm.elc
11.63
KB
-rw-r--r--
2023-06-07 04:16
quickurl.elc
15.75
KB
-rw-r--r--
2023-06-07 04:16
rcirc.elc
98.21
KB
-rw-r--r--
2023-06-07 04:16
rcompile.elc
3.15
KB
-rw-r--r--
2023-06-07 04:16
rlogin.elc
10.83
KB
-rw-r--r--
2023-06-07 04:16
sasl-cram.elc
1.1
KB
-rw-r--r--
2023-06-07 04:16
sasl-digest.elc
3.47
KB
-rw-r--r--
2023-06-07 04:16
sasl-ntlm.elc
1.76
KB
-rw-r--r--
2023-06-07 04:16
sasl.elc
6.73
KB
-rw-r--r--
2023-06-07 04:16
secrets.elc
21.06
KB
-rw-r--r--
2023-06-07 04:16
snmp-mode.elc
14.64
KB
-rw-r--r--
2023-06-07 04:16
soap-client.elc
140.7
KB
-rw-r--r--
2023-06-07 04:16
soap-inspect.elc
14.6
KB
-rw-r--r--
2023-06-07 04:16
socks.elc
13.76
KB
-rw-r--r--
2023-06-07 04:16
telnet.elc
9.33
KB
-rw-r--r--
2023-06-07 04:16
tls.elc
7.8
KB
-rw-r--r--
2023-06-07 04:16
tramp-cache.elc
15.15
KB
-rw-r--r--
2023-06-07 04:16
tramp-cmds.elc
9.49
KB
-rw-r--r--
2023-06-07 04:16
tramp-compat.elc
16.15
KB
-rw-r--r--
2023-06-07 04:16
tramp-ftp.elc
5.49
KB
-rw-r--r--
2023-06-07 04:16
tramp-gvfs.elc
83.6
KB
-rw-r--r--
2023-06-07 04:16
tramp-gw.elc
13.8
KB
-rw-r--r--
2023-06-07 04:16
tramp-loaddefs.el
34.92
KB
-rw-r--r--
2023-06-07 03:59
tramp-sh.elc
251.02
KB
-rw-r--r--
2023-06-07 04:16
tramp-smb.elc
98.83
KB
-rw-r--r--
2023-06-07 04:16
tramp-uu.elc
1.95
KB
-rw-r--r--
2023-06-07 04:16
tramp.elc
134.83
KB
-rw-r--r--
2023-06-07 04:16
trampver.elc
1.11
KB
-rw-r--r--
2023-06-07 04:16
webjump.elc
13.71
KB
-rw-r--r--
2023-06-07 04:16
xesam.elc
24.97
KB
-rw-r--r--
2023-06-07 04:16
zeroconf.elc
18.31
KB
-rw-r--r--
2023-06-07 04:16
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:16:04 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/net-utils.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 "\302\303\304\305\306\307\310\311\312\313& \210\314\315\316\317\310\303\320\321&\210\314\322\323\324\310\303\320\325&\210\314\326\304\327\310\303\320\330&\210\314\331\332\333\310\303\320\325&\210\314\334\335\336\310\303\320\337&\210\340\341\342\304#\210\343\304\211\203p @\341N\203i \342N\204i \344\342\341N#\210 A\211\204R *\345\341\342\346#\210\314\342\347\350\310\303\320\325&\210\340\351\352\304#\210\343\304\211\203\256 @\351N\203\247 \352N\204\247 \344\352\351N#\210 A\211\204\220 *\345\351\352\346#\210\314\352\353\354\310\303\320\355&\210\314\356\357\360\310\303\320\325\312\361& \210\314\362\304\363\310\303\320\364\312\361& \210\314\365\366\367\310\303\320\325&\210\314\370\371\372\310\303\320\373&\210\314\374\375\376\310\303\320\325&\210\314\377\201@ \201A \310\303\320\201B &\210\314\201C \201D \201E \310\303\320\325&\210\314\201F \201G \201H \310\303\320\201I &\210\314\201J \201K \201L \310\303\320\325&\210\314\201M \304\201N \310\303\320\201O &\210\314\201P \201Q \201R \310\303\320\201S &\210\314\201T \201U \201V \310\303\320\325&\210\314\201W \201X \201Y \310\303\320\325&\210\314\201Z \304\201[ \310\303\320\201\\ &\210\314\201] \201^ \201_ \310\303\320\201S &\210\314\201` \201a \201b \310\303\320\325&\210\314\201c \304\201d \310\303\320\201e &\210\314\201f \201g \201h \310\303\320\201S &\210\314\201i \201j \201L \310\303\320\325&\210\314\201k \304\201l \310\303\320\201m &\207" [prop --dolist-tail-- custom-declare-group net-utils nil "Network utility functions." :prefix "net-utils-" :group comm :version "20.3" custom-declare-variable net-utils-remove-ctl-m (memq system-type '(windows-nt msdos)) "If non-nil, remove control-Ms from output." :type boolean traceroute-program (if (eq system-type 'windows-nt) "tracert" "traceroute") "Program to trace network hops to a destination." string traceroute-program-options "Options for the traceroute program." (repeat string) ping-program "ping" "Program to send network test packets to a host." ping-program-options (and (memq system-type '(gnu/linux irix)) (list "-c" "4")) "Options for the ping program.\nThese options can be used to limit how many ICMP packets are emitted." (repeat string) defvaralias ipconfig-program ifconfig-program (saved-value saved-variable-comment) put make-obsolete-variable "22.2" (if (eq system-type 'windows-nt) "ipconfig" "ifconfig") "Program to print network configuration information." ipconfig-program-options ifconfig-program-options (list (if (eq system-type 'windows-nt) "/all" "-a")) "Options for the ifconfig program." (repeat string) iwconfig-program "iwconfig" "Program to print wireless network configuration information." "23.1" iwconfig-program-options "Options for the iwconfig program." (repeat string) netstat-program "netstat" "Program to print network statistics." netstat-program-options (list "-a") "Options for the netstat program." (repeat string) arp-program "arp" "Program to print IP to address translation tables." arp-program-options (list "-a") "Options for the arp program." (repeat string) route-program (if (eq system-type 'windows-nt) "route" "netstat") "Program to print routing tables." route-program-options (if (eq system-type 'windows-nt) (list "print") (list "-r")) "Options for the route program." (repeat string) nslookup-program "nslookup" "Program to interactively query DNS information." nslookup-program-options "Options for the nslookup program." (repeat string) nslookup-prompt-regexp "^> " "Regexp to match the nslookup prompt.\n\nThis variable is only used if the variable\n`comint-use-prompt-regexp' is non-nil." regexp dig-program "dig" "Program to query DNS information." ftp-program "ftp" "Program to run to do FTP transfers." ftp-program-options "Options for the ftp program." (repeat string) ftp-prompt-regexp "^ftp>" "Regexp which matches the FTP program's prompt.\n\nThis variable is only used if the variable\n`comint-use-prompt-regexp' is non-nil." smbclient-program "smbclient" "Smbclient program." smbclient-program-options "Options for the smbclient program." (repeat string) smbclient-prompt-regexp "^smb: >" "Regexp which matches the smbclient program's prompt.\n\nThis variable is only used if the variable\n`comint-use-prompt-regexp' is non-nil." dns-lookup-program "host" dns-lookup-program-options "Options for the dns-lookup program." (repeat string)] 11) (defvar network-connection-service nil) (defvar network-connection-host nil) #@40 Expressions to font-lock for nslookup. (defvar nslookup-font-lock-keywords (byte-code "\301\302\303E\304\305\306E\307\310\311\312\313\"\314#\302\315E\316\307\310\311\317\"\314#\320\321R)\302\315EF\207" [host-expression "^[A-Za-z0-9 _]+:" 0 font-lock-type-face "\\<\\(SOA\\|NS\\|MX\\|A\\|CNAME\\)\\>" 1 font-lock-keyword-face mapconcat identity make-list 4 "[0-9]+" "\\." font-lock-variable-name-face "[-A-Za-z0-9]+" 2 "\\(\\." "\\)*"] 8) (#$ . 5014)) #@57 Expressions to font-lock for general network utilities. (defvar net-utils-font-lock-keywords (byte-code "\301\302\303\304\305\"\306#\307\310E\311\307\310E\312\301\302\303\313\"\306#\314\315R)\307\310EE\207" [host-expression mapconcat identity make-list 4 "[0-9]+" "\\." 0 font-lock-variable-name-face "\\( \\([[:xdigit:]]+\\(:\\|::\\)\\)+[[:xdigit:]]+\\)\\|\\(::[[:xdigit:]]+\\)" "[-A-Za-z0-9]+" 2 "\\(\\." "\\)*"] 7) (#$ . 5474)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [net-utils-mode-hook variable-documentation put purecopy "Hook run when entering NetworkUtil mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp net-utils-mode-map definition-name net-utils-mode] 5) (defvar net-utils-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [net-utils-mode-map variable-documentation put purecopy "Keymap for `net-utils-mode'." boundp net-utils-mode-syntax-table definition-name net-utils-mode] 5) (defvar net-utils-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [net-utils-mode-syntax-table variable-documentation put purecopy "Syntax table for `net-utils-mode'." net-utils-mode-abbrev-table definition-name net-utils-mode] 5) (defvar net-utils-mode-abbrev-table (progn (define-abbrev-table 'net-utils-mode-abbrev-table nil) net-utils-mode-abbrev-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [net-utils-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `net-utils-mode'." net-utils-mode derived-mode-parent special-mode] 5) #@246 Major mode for interacting with an external network utility. In addition to any hooks its parent mode `special-mode' might have run, this mode runs the hook `net-utils-mode-hook', as the final step during initialization. \{net-utils-mode-map} (defalias 'net-utils-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036 \321 =\203< \322\f\323 \"\210)\324 \325\"\204V =\204V \326 \325 C#\210\327 !\210\330\f!\210 \306\331!\210\332)\333\334!\207" [delay-mode-hooks major-mode mode-name net-utils-mode-map net-utils-mode-syntax-table parent make-local-variable t special-mode net-utils-mode "NetworkUtil" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table font-lock-defaults ((net-utils-font-lock-keywords)) run-mode-hooks net-utils-mode-hook net-utils-mode-abbrev-table local-abbrev-table] 6 (#$ . 7263) nil]) (defalias 'net-utils-machine-at-point #[nil "`\301\212\302\303x\210`)\212\302\303w\210\304x\210`)\")\207" [pt buffer-substring-no-properties "-a-zA-Z0-9." nil "."] 4]) (defalias 'net-utils-url-at-point #[nil "`\301\212\302\303x\210\304w\210`)\212\302\303w\210\305x\210`)\")\207" [pt buffer-substring-no-properties "--:=&?$+@-Z_a-z~#,%" nil "^A-Za-z0-9" ":;.,!?"] 4]) #@29 Remove trailing control Ms. (defalias 'net-utils-remove-ctrl-m-filter #[(process output-string) "p\306\216\307\310\f!q\210\311 `\312\f!U\313\314 \"\203& \315\316\307\211 $\202 \212\312\f!b\210 c\210\312\f!`\307\223\210* \205? \312\f!b,\207" [output-string filtered-string old-buffer moving process inhibit-read-only ((set-buffer old-buffer)) nil process-buffer t process-mark string-match " " replace-match ""] 5 (#$ . 8707)]) #@36 Run a network information program. (defalias 'net-utils-run-program #[(name header program args) "\305\306\306Q!\211q\210\307 \210\n\310\261\210\311\312\313 \f%\314\"\210\315 !\210 )\207" [name buf header program args get-buffer-create "*" erase-buffer "\n" set-process-filter apply start-process net-utils-remove-ctrl-m-filter display-buffer] 8 (#$ . 9147)]) #@51 Run a network utility for diagnostic output only. (defalias 'net-utils-run-simple #[(buffer-name program-name args) "\303!\203\n \304!\210\305!\210rq\210\306 \210\307\310\311\312\313 \" \n%\314\"\210eb\210)\315!\207" [buffer-name program-name args get-buffer kill-buffer get-buffer-create net-utils-mode set-process-filter apply start-process format "%s" net-utils-remove-ctrl-m-filter display-buffer] 7 (#$ . 9518) nil]) #@45 Run ifconfig and display diagnostic output. (defalias 'ifconfig #[nil "\302\303\304\" #\207" [ifconfig-program ifconfig-program-options net-utils-run-simple format "*%s*"] 4 (#$ . 9952) nil]) (defalias 'ipconfig 'ifconfig) #@45 Run iwconfig and display diagnostic output. (defalias 'iwconfig #[nil "\302\303\304\" #\207" [iwconfig-program iwconfig-program-options net-utils-run-simple format "*%s*"] 4 (#$ . 10183) nil]) #@44 Run netstat and display diagnostic output. (defalias 'netstat #[nil "\302\303\304\" #\207" [netstat-program netstat-program-options net-utils-run-simple format "*%s*"] 4 (#$ . 10384) nil]) #@40 Run arp and display diagnostic output. (defalias 'arp #[nil "\302\303\304\" #\207" [arp-program arp-program-options net-utils-run-simple format "*%s*"] 4 (#$ . 10581) nil]) #@42 Run route and display diagnostic output. (defalias 'route #[nil "\302\303\304\" #\207" [route-program route-program-options net-utils-run-simple format "*%s*"] 4 (#$ . 10762) nil]) #@36 Run traceroute program for TARGET. (defalias 'traceroute #[(target) "\203\f \304 C\"\202 C\305\306\307 Q\310 \311 R \n$)\207" [traceroute-program-options target options traceroute-program append net-utils-run-program "Traceroute" " " "** Traceroute ** " " ** "] 6 (#$ . 10951) "sTarget: "]) #@107 Ping HOST. If your system's ping continues until interrupted, you can try setting `ping-program-options'. (defalias 'ping #[(host) "\203\f \304 C\"\202 C\305\306\307 Q\310 \311 R \n$)\207" [ping-program-options host options ping-program append net-utils-run-program "Ping" " " "** Ping ** " " ** "] 6 (#$ . 11254) (list (read-from-minibuffer "Ping host: " (net-utils-machine-at-point)))]) #@38 Lookup the DNS information for HOST. (defalias 'nslookup-host #[(host) "\203\f \304 C\"\202 C\305\306\307\310\311\306 E\312#P \n$)\207" [nslookup-program-options host options nslookup-program append net-utils-run-program "Nslookup" "** " mapconcat identity " ** "] 8 (#$ . 11654) (list (read-from-minibuffer "Lookup host: " (net-utils-machine-at-point)))]) #@23 Run nslookup program. (defalias 'nslookup #[nil "\301\302\303\"!\210\304 \207" [nslookup-program switch-to-buffer make-comint "nslookup" nslookup-mode] 4 (#$ . 12023) nil]) (autoload 'comint-mode "comint" nil t) (defvar nslookup-mode-map (byte-code "\301 \302\303\304#\210)\207" [map make-sparse-keymap define-key " " comint-dynamic-complete] 4)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [nslookup-mode-hook variable-documentation put purecopy "Hook run when entering Nslookup mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp nslookup-mode-map definition-name nslookup-mode] 5) (defvar nslookup-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [nslookup-mode-map variable-documentation put purecopy "Keymap for `nslookup-mode'." boundp nslookup-mode-syntax-table definition-name nslookup-mode] 5) (defvar nslookup-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [nslookup-mode-syntax-table variable-documentation put purecopy "Syntax table for `nslookup-mode'." nslookup-mode-abbrev-table definition-name nslookup-mode] 5) (defvar nslookup-mode-abbrev-table (progn (define-abbrev-table 'nslookup-mode-abbrev-table nil) nslookup-mode-abbrev-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [nslookup-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `nslookup-mode'." nslookup-mode derived-mode-parent comint-mode] 5) #@236 Major mode for interacting with the nslookup program. In addition to any hooks its parent mode `comint-mode' might have run, this mode runs the hook `nslookup-mode-hook', as the final step during initialization. \{nslookup-mode-map} (defalias 'nslookup-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036 \321 =\203< \322\f\323 \"\210)\324 \325\"\204V =\204V \326 \325 C#\210\327 !\210\330\f!\210 \306\331!\210\332 \307!)\333\334!\207" [delay-mode-hooks major-mode mode-name nslookup-mode-map nslookup-mode-syntax-table parent make-local-variable t comint-mode nslookup-mode "Nslookup" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table font-lock-defaults ((nslookup-font-lock-keywords)) run-mode-hooks nslookup-mode-hook nslookup-mode-abbrev-table local-abbrev-table nslookup-prompt-regexp comint-prompt-regexp comint-input-autoexpand] 6 (#$ . 13706) nil]) #@59 Lookup the DNS information for HOST (name or IP address). (defalias 'dns-lookup-host #[(host) "\203\f \304 C\"\202 C\305\306 \307Q\310\311\312\313 E\314#P \n$)\207" [dns-lookup-program-options host options dns-lookup-program append net-utils-run-program "DNS Lookup [" "]" "** " mapconcat identity "DNS Lookup" " ** "] 8 (#$ . 14836) (list (read-from-minibuffer "Lookup host: " (net-utils-machine-at-point)))]) (autoload 'ffap-string-at-point "ffap") #@18 Run dig program. (defalias 'run-dig #[(host) "\302\303\304\305\306\303 E\307#P C$\207" [host dig-program net-utils-run-program "Dig" "** " mapconcat identity " ** "] 8 (#$ . 15299) (list (read-from-minibuffer "Lookup host: " (or (ffap-string-at-point 'machine) "")))]) (autoload 'comint-exec "comint") #@18 Run ftp program. (defalias 'ftp #[(host) "\304\305\306Q!\211q\210\307 \210\310 \311P\n\312 \203 \313C \"\202\" C%\210\314 !)\207" [host buf ftp-program ftp-program-options get-buffer-create "*ftp [" "]*" ftp-mode comint-exec "ftp-" nil append pop-to-buffer] 9 (#$ . 15609) (list (read-from-minibuffer "Ftp to Host: " (net-utils-machine-at-point)))]) (defvar ftp-mode-map (byte-code "\301 \302\303\304#\210)\207" [map make-sparse-keymap define-key " " comint-dynamic-complete] 4)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [ftp-mode-hook variable-documentation put purecopy "Hook run when entering FTP mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp ftp-mode-map definition-name ftp-mode] 5) (defvar ftp-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [ftp-mode-map variable-documentation put purecopy "Keymap for `ftp-mode'." boundp ftp-mode-syntax-table definition-name ftp-mode] 5) (defvar ftp-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [ftp-mode-syntax-table variable-documentation put purecopy "Syntax table for `ftp-mode'." ftp-mode-abbrev-table definition-name ftp-mode] 5) (defvar ftp-mode-abbrev-table (progn (define-abbrev-table 'ftp-mode-abbrev-table nil) ftp-mode-abbrev-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [ftp-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `ftp-mode'." ftp-mode derived-mode-parent comint-mode] 5) #@221 Major mode for interacting with the ftp program. In addition to any hooks its parent mode `comint-mode' might have run, this mode runs the hook `ftp-mode-hook', as the final step during initialization. \{ftp-mode-map} (defalias 'ftp-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036 \321 =\203< \322\f\323 \"\210)\324 \325\"\204V !=\204V \326 \325!C#\210\327 !\210\330\f!\210 !\"#\307$\331\332\333!>\204x \334\333\331\335\307$\210)\336\337!\207" [delay-mode-hooks major-mode mode-name ftp-mode-map ftp-mode-syntax-table parent make-local-variable t comint-mode ftp-mode "FTP" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table comint-watch-for-password-prompt default-value comint-output-filter-functions add-hook nil run-mode-hooks ftp-mode-hook ftp-mode-abbrev-table local-abbrev-table ftp-prompt-regexp comint-prompt-regexp comint-input-autoexpand] 6 (#$ . 17330) nil]) #@37 Connect to SERVICE on HOST via SMB. (defalias 'smbclient #[(host service) "\306\307 #\310\311\n\311Q!\312\313 R q\210\314 \210\315 \n \316\203, \317\fC\"\202. \fC%\210\320 !+\207" [host service name buf service-name smbclient-program format "smbclient [%s\\%s]" get-buffer-create "*" "\\\\" "\\" smbclient-mode comint-exec nil append pop-to-buffer smbclient-program-options] 8 (#$ . 18472) (list (read-from-minibuffer "Connect to Host: " (net-utils-machine-at-point)) (read-from-minibuffer "SMB Service: "))]) #@24 List services on HOST. (defalias 'smbclient-list-shares #[(host) "\303\304\305\"!\211q\210\306 \210\307 \310\n\311\312D%\210\313 !)\207" [host buf smbclient-program get-buffer-create format "*SMB Shares on %s*" smbclient-mode comint-exec "smbclient-list-shares" nil "-L" pop-to-buffer] 8 (#$ . 18997) (list (read-from-minibuffer "Connect to Host: " (net-utils-machine-at-point)))]) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [smbclient-mode-hook variable-documentation put purecopy "Hook run when entering smbclient mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp smbclient-mode-map definition-name smbclient-mode] 5) (defvar smbclient-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [smbclient-mode-map variable-documentation put purecopy "Keymap for `smbclient-mode'." boundp smbclient-mode-syntax-table definition-name smbclient-mode] 5) (defvar smbclient-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [smbclient-mode-syntax-table variable-documentation put purecopy "Syntax table for `smbclient-mode'." smbclient-mode-abbrev-table definition-name smbclient-mode] 5) (defvar smbclient-mode-abbrev-table (progn (define-abbrev-table 'smbclient-mode-abbrev-table nil) smbclient-mode-abbrev-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [smbclient-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `smbclient-mode'." smbclient-mode derived-mode-parent comint-mode] 5) #@239 Major mode for interacting with the smbclient program. In addition to any hooks its parent mode `comint-mode' might have run, this mode runs the hook `smbclient-mode-hook', as the final step during initialization. \{smbclient-mode-map} (defalias 'smbclient-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036 \321 =\203< \322\f\323 \"\210)\324 \325\"\204V !=\204V \326 \325!C#\210\327 !\210\330\f!\210 !\"#\307$\331\332\333!>\204x \334\333\331\335\307$\210)\336\337!\207" [delay-mode-hooks major-mode mode-name smbclient-mode-map smbclient-mode-syntax-table parent make-local-variable t comint-mode smbclient-mode "smbclient" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table comint-watch-for-password-prompt default-value comint-output-filter-functions add-hook nil run-mode-hooks smbclient-mode-hook smbclient-mode-abbrev-table local-abbrev-table smbclient-prompt-regexp comint-prompt-regexp comint-input-autoexpand] 6 (#$ . 20734) nil]) #@79 Alist of services and associated TCP port numbers. This list is not complete. (defvar network-connection-service-alist (byte-code "\300\301B\302\303B\304\305B\306\307B\310\311B\312\313B\314\315B\316\317B\320\321B\322\323B\324\325B\326\327B\330\331B\332\333B\334\335B\336\337B\340\341B\342\343B\344\345B\346\347B\350\351B\352\353B\257\207" [echo 7 active-users 11 daytime 13 chargen 19 ftp 21 telnet 23 smtp 25 time 37 whois 43 gopher 70 finger 79 www 80 pop2 109 pop3 110 sun-rpc 111 nntp 119 ntp 123 netbios-name 137 netbios-data 139 irc 194 https 443 rlogin 513] 23) (#$ . 21942)) (defalias 'run-network-program #[(process-name host port &optional initial-string) "\306\211\307\310\n\310Q!\211q\210\311\n \f$\211\204 \312\313 \"\210\314 \210\315 !e\306\223\210\316 \317\"\210 \2038 \320 \321P\"\210\322!*\207" [buf tcp-connection process-name host port initial-string nil get-buffer-create "*" open-network-stream error "Could not open connection to %s" erase-buffer process-mark set-process-filter net-utils-remove-ctrl-m-filter process-send-string " \n" display-buffer] 6]) #@246 A list of regular expressions matching host names. If a host name passed to `finger' matches one of these regular expressions, it is assumed to be a host that doesn't accept queries of the form USER@HOST, and wants a query containing USER only. (custom-declare-variable 'finger-X\.500-host-regexps nil '(#$ . 23036) :group 'net-utils :type '(repeat regexp) :version "21.1") #@22 Finger USER on HOST. (defalias 'finger #[(user host) "\306 Q\307\n\310Q\f \311 \203! \312 @ \"\204! A\202 \313 \314\315\"A\n$,\207" [user host user-and-host process-name finger-X\.500-host-regexps regexps "@" "Finger [" "]" nil string-match run-network-program assoc finger found network-connection-service-alist] 6 (#$ . 23416) (byte-code "\302\303\304 \"\305\306\"\211\203 \307 O T\310OD\202# \302\311\312 \"D*\207" [answer index read-from-minibuffer "Finger User: " net-utils-url-at-point string-match "@" 0 nil "At Host: " net-utils-machine-at-point] 5)]) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\210\300\314\315\316\304\305\306\317&\210\300\320\321\322\304\305\306\323&\207" [custom-declare-variable whois-server-name "rs.internic.net" "Default host name for the whois service." :group net-utils :type string whois-server-list '(("whois.arin.net") ("rs.internic.net") ("whois.publicinterestregistry.net") ("whois.abuse.net") ("whois.apnic.net") ("nic.ddn.mil") ("whois.nic.mil") ("whois.nic.gov") ("whois.ripe.net")) "A list of whois servers that can be queried." (repeat (list string)) whois-server-tld '(("rs.internic.net" . "com") ("whois.publicinterestregistry.net" . "org") ("whois.ripe.net" . "be") ("whois.ripe.net" . "de") ("whois.ripe.net" . "dk") ("whois.ripe.net" . "it") ("whois.ripe.net" . "fi") ("whois.ripe.net" . "fr") ("whois.ripe.net" . "uk") ("whois.apnic.net" . "au") ("whois.apnic.net" . "ch") ("whois.apnic.net" . "hk") ("whois.apnic.net" . "jp") ("whois.nic.gov" . "gov") ("whois.nic.mil" . "mil")) "Alist to map top level domains to whois servers." (repeat (cons string string)) whois-guess-server t "If non-nil then whois will try to deduce the appropriate whois\nserver from the query. If the query doesn't look like a domain or hostname\nthen the server named by `whois-server-name' is used." boolean] 8) #@74 Return the top level domain of `host', or nil if it isn't a domain name. (defalias 'whois-get-tld #[(host) "GSG\303Z\211 U\204 \304\nH\305\"\204 \nS\211\202\n \n U?\205+ \nT\306O*\207" [host max-len i 5 char-equal 46 nil] 4 (#$ . 25324)]) #@210 Send SEARCH-STRING to server defined by the `whois-server-name' variable. If `whois-guess-server' is non-nil, then try to deduce the correct server from SEARCH-STRING. With argument, prompt for whois server. (defalias 'whois #[(arg search-string) "\205\n \306\307 !\n\"\211\203 @\202 \f \203& \310\311\312\211\313%\202' \314\315\316\317\"A $+\207" [whois-guess-server search-string whois-server-tld whois-apropos-host whois-server-name server-name rassoc whois-get-tld completing-read "Whois server name: " nil "whois." run-network-program "Whois" assoc whois arg whois-server-list host network-connection-service-alist] 7 (#$ . 25579) "P\nsWhois: "]) #@44 Server which provides inverse DNS mapping. (custom-declare-variable 'whois-reverse-lookup-server "whois.arin.net" '(#$ . 26254) :group 'net-utils :type 'string) (defalias 'whois-reverse-lookup #[nil "\302\303!)\207" [whois-reverse-lookup-server whois-server-name call-interactively whois] 2 nil nil]) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [network-connection-mode-hook variable-documentation put purecopy "Hook run when entering Network-Connection mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp network-connection-mode-map definition-name network-connection-mode] 5) (defvar network-connection-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [network-connection-mode-map variable-documentation put purecopy "Keymap for `network-connection-mode'." boundp network-connection-mode-syntax-table definition-name network-connection-mode] 5) (defvar network-connection-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [network-connection-mode-syntax-table variable-documentation put purecopy "Syntax table for `network-connection-mode'." network-connection-mode-abbrev-table definition-name network-connection-mode] 5) (defvar network-connection-mode-abbrev-table (progn (define-abbrev-table 'network-connection-mode-abbrev-table nil) network-connection-mode-abbrev-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [network-connection-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `network-connection-mode'." network-connection-mode derived-mode-parent comint-mode] 5) #@266 Major mode for interacting with the network-connection program. In addition to any hooks its parent mode `comint-mode' might have run, this mode runs the hook `network-connection-mode-hook', as the final step during initialization. \{network-connection-mode-map} (defalias 'network-connection-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036 \321 =\203< \322\f\323 \"\210)\324\325\"\204V =\204V \326\325 C#\210\327 !\210\330\f!\210 )\331\332!\207" [delay-mode-hooks major-mode mode-name network-connection-mode-map network-connection-mode-syntax-table parent make-local-variable t comint-mode network-connection-mode "Network-Connection" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table run-mode-hooks network-connection-mode-hook network-connection-mode-abbrev-table local-abbrev-table] 6 (#$ . 28089) nil]) (defalias 'network-connection-mode-setup #[(host service) "\304\301!\210\304\303!\210\n\211\207" [host network-connection-host service network-connection-service make-local-variable] 2]) #@47 Open a network connection to SERVICE on HOST. (defalias 'network-connection-to-service #[(host service) "\303\304\305 !\n\"A\"\207" [host service network-connection-service-alist network-connection assoc intern] 5 (#$ . 29361) (list (read-from-minibuffer "Host: " (net-utils-machine-at-point)) (completing-read "Service: " (mapcar #'(lambda (elt) (list (symbol-name (car elt)))) network-connection-service-alist)))]) #@44 Open a network connection to HOST on PORT. (defalias 'network-connection #[(host port) "\302\303 !\"\207" [host port network-service-connection number-to-string] 4 (#$ . 29785) "sHost: \nnPort: "]) #@47 Open a network connection to SERVICE on HOST. (defalias 'network-service-connection #[(host service) "\305\306 \307\260\310 !\311\312\n\312Q! \313 !\204 \314\n B\"\210\fq\210\315 \210\316 \"\210\317\f!+\207" [host service process-name portnum buf "Network Connection [" " " "]" string-to-number get-buffer-create "*" zerop make-comint network-connection-mode network-connection-mode-setup pop-to-buffer] 5 (#$ . 29990)]) #@64 Reconnect a network connection, preserving the old input ring. (defalias 'network-connection-reconnect #[nil "\306p! \n \211 \203 \307!\310=\204 \311\312!\202A db\210\313\314\f\"c\210\315\f \247\2032 \2028 \316 \"A\"\210 \205A \211,\207" [comint-input-ring network-connection-host network-connection-service service host old-comint-input-ring get-buffer-process process-status closed message "Still connected" format "Reopening connection to %s\n" network-connection assoc proc network-connection-service-alist] 6 (#$ . 30426) nil]) (provide 'net-utils)