Mercurial > emacs
annotate lisp/net-utils.el @ 27114:4efa5e54e9a9
(Qunspecified_fg, Qunspecified_bg): Remove.
(syms_of_xfaces): Remove their staticpro's.
(tty_color_name): Return Lisp strings for unspecified fore- and
back-ground colors.
(Finternal_set_lisp_face_attribute): Remove the special treatment
for Qunspecified_{f,b}g.
(realize_default_face): Replace Qunspecified_{f,b}g with a Lisp
string.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Mon, 03 Jan 2000 16:52:52 +0000 |
parents | 9b2b851efc39 |
children |
rev | line source |
---|---|
22537 | 1 ;;; net-utils.el --- Network functions |
2 | |
3 ;; Author: Peter Breton <pbreton@cs.umb.edu> | |
4 ;; Created: Sun Mar 16 1997 | |
5 ;; Keywords: network communications | |
26430
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
6 ;; Time-stamp: <1999-11-13 10:19:01 pbreton> |
22537 | 7 |
8 ;; This file is part of GNU Emacs. | |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
12 ;; the Free Software Foundation; either version 2, or (at your option) | |
13 ;; any later version. | |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
23 ;; Boston, MA 02111-1307, USA. | |
24 | |
25 ;;; Commentary: | |
26 ;; | |
27 ;; There are three main areas of functionality: | |
28 ;; | |
29 ;; * Wrap common network utility programs (ping, traceroute, netstat, | |
30 ;; nslookup, arp, route). Note that these wrappers are of the diagnostic | |
31 ;; functions of these programs only. | |
32 ;; | |
33 ;; * Implement some very basic protocols in Emacs Lisp (finger and whois) | |
34 ;; | |
35 ;; * Support connections to HOST/PORT, generally for debugging and the like. | |
36 ;; In other words, for doing much the same thing as "telnet HOST PORT", and | |
37 ;; then typing commands. | |
38 ;; | |
39 ;; PATHS | |
40 ;; | |
41 ;; On some systems, some of these programs are not in normal user path, | |
42 ;; but rather in /sbin, /usr/sbin, and so on. | |
43 | |
44 | |
45 ;;; Code: | |
46 (eval-when-compile | |
23359 | 47 (require 'comint)) |
22537 | 48 |
49 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
50 ;; Customization Variables | |
51 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
52 | |
53 (defgroup net-utils nil | |
54 "Network utility functions." | |
55 :prefix "net-utils-" | |
56 :group 'comm | |
57 :version "20.3" | |
58 ) | |
59 | |
60 (defcustom net-utils-remove-ctl-m | |
61 (member system-type (list 'windows-nt 'msdos)) | |
62 "If non-nil, remove control-Ms from output." | |
63 :group 'net-utils | |
64 :type 'boolean | |
65 ) | |
66 | |
67 (defcustom traceroute-program | |
68 (if (eq system-type 'windows-nt) | |
69 "tracert" | |
70 "traceroute") | |
71 "Program to trace network hops to a destination." | |
72 :group 'net-utils | |
73 :type 'string | |
74 ) | |
75 | |
76 (defcustom traceroute-program-options nil | |
77 "Options for the traceroute program." | |
78 :group 'net-utils | |
23269
16780f249ece
(traceroute-program-options, ping-program-options,
Andreas Schwab <schwab@suse.de>
parents:
23187
diff
changeset
|
79 :type '(repeat string) |
22537 | 80 ) |
81 | |
82 (defcustom ping-program "ping" | |
83 "Program to send network test packets to a host." | |
84 :group 'net-utils | |
85 :type 'string | |
86 ) | |
87 | |
88 ;; On Linux and Irix, the system's ping program seems to send packets | |
89 ;; indefinitely unless told otherwise | |
90 (defcustom ping-program-options | |
91 (and (memq system-type (list 'linux 'gnu/linux 'irix)) | |
92 (list "-c" "4")) | |
93 "Options for the ping program. | |
94 These options can be used to limit how many ICMP packets are emitted." | |
95 :group 'net-utils | |
23269
16780f249ece
(traceroute-program-options, ping-program-options,
Andreas Schwab <schwab@suse.de>
parents:
23187
diff
changeset
|
96 :type '(repeat string) |
22537 | 97 ) |
98 | |
99 (defcustom ipconfig-program | |
100 (if (eq system-type 'windows-nt) | |
101 "ipconfig" | |
102 "ifconfig") | |
103 "Program to print network configuration information." | |
104 :group 'net-utils | |
105 :type 'string | |
106 ) | |
107 | |
108 (defcustom ipconfig-program-options | |
109 (list | |
110 (if (eq system-type 'windows-nt) | |
111 "/all" "-a")) | |
112 "Options for ipconfig-program." | |
113 :group 'net-utils | |
23269
16780f249ece
(traceroute-program-options, ping-program-options,
Andreas Schwab <schwab@suse.de>
parents:
23187
diff
changeset
|
114 :type '(repeat string) |
22537 | 115 ) |
116 | |
117 (defcustom netstat-program "netstat" | |
118 "Program to print network statistics." | |
119 :group 'net-utils | |
120 :type 'string | |
121 ) | |
122 | |
23187
205f3fab9564
(netstat-program-options): Changed from nil to "-a"
Karl Heuer <kwzh@gnu.org>
parents:
22537
diff
changeset
|
123 (defcustom netstat-program-options |
205f3fab9564
(netstat-program-options): Changed from nil to "-a"
Karl Heuer <kwzh@gnu.org>
parents:
22537
diff
changeset
|
124 (list "-a") |
22537 | 125 "Options for netstat-program." |
126 :group 'net-utils | |
23269
16780f249ece
(traceroute-program-options, ping-program-options,
Andreas Schwab <schwab@suse.de>
parents:
23187
diff
changeset
|
127 :type '(repeat string) |
22537 | 128 ) |
129 | |
130 (defcustom arp-program "arp" | |
131 "Program to print IP to address translation tables." | |
132 :group 'net-utils | |
133 :type 'string | |
134 ) | |
135 | |
136 (defcustom arp-program-options | |
137 (list "-a") | |
138 "Options for arp-program." | |
139 :group 'net-utils | |
23269
16780f249ece
(traceroute-program-options, ping-program-options,
Andreas Schwab <schwab@suse.de>
parents:
23187
diff
changeset
|
140 :type '(repeat string) |
22537 | 141 ) |
142 | |
143 (defcustom route-program | |
144 (if (eq system-type 'windows-nt) | |
145 "route" | |
146 "netstat") | |
147 "Program to print routing tables." | |
148 :group 'net-utils | |
149 :type 'string | |
150 ) | |
151 | |
152 (defcustom route-program-options | |
153 (if (eq system-type 'windows-nt) | |
154 (list "print") | |
155 (list "-r")) | |
156 "Options for route-program." | |
157 :group 'net-utils | |
23269
16780f249ece
(traceroute-program-options, ping-program-options,
Andreas Schwab <schwab@suse.de>
parents:
23187
diff
changeset
|
158 :type '(repeat string) |
22537 | 159 ) |
160 | |
161 (defcustom nslookup-program "nslookup" | |
162 "Program to interactively query DNS information." | |
163 :group 'net-utils | |
164 :type 'string | |
165 ) | |
166 | |
167 (defcustom nslookup-program-options nil | |
168 "List of options to pass to the nslookup program." | |
169 :group 'net-utils | |
23269
16780f249ece
(traceroute-program-options, ping-program-options,
Andreas Schwab <schwab@suse.de>
parents:
23187
diff
changeset
|
170 :type '(repeat string) |
22537 | 171 ) |
172 | |
173 (defcustom nslookup-prompt-regexp "^> " | |
174 "Regexp to match the nslookup prompt." | |
175 :group 'net-utils | |
176 :type 'regexp | |
177 ) | |
178 | |
26041
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
179 (defcustom dig-program "dig" |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
180 "Program to query DNS information." |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
181 :group 'net-utils |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
182 :type 'string |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
183 ) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
184 |
22537 | 185 (defcustom ftp-program "ftp" |
186 "Progam to run to do FTP transfers." | |
187 :group 'net-utils | |
188 :type 'string | |
189 ) | |
190 | |
191 (defcustom ftp-program-options nil | |
192 "List of options to pass to the FTP program." | |
193 :group 'net-utils | |
23269
16780f249ece
(traceroute-program-options, ping-program-options,
Andreas Schwab <schwab@suse.de>
parents:
23187
diff
changeset
|
194 :type '(repeat string) |
22537 | 195 ) |
196 | |
197 (defcustom ftp-prompt-regexp "^ftp>" | |
198 "Regexp which matches the FTP program's prompt." | |
199 :group 'net-utils | |
200 :type 'regexp | |
201 ) | |
202 | |
26430
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
203 (defcustom smbclient-program "smbclient" |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
204 "Smbclient program." |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
205 :group 'net-utils |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
206 :type 'string |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
207 ) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
208 |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
209 (defcustom smbclient-program-options nil |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
210 "List of options to pass to the smbclient program." |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
211 :group 'net-utils |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
212 :type '(repeat string) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
213 ) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
214 |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
215 (defcustom smbclient-prompt-regexp "^smb: \>" |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
216 "Regexp which matches the smbclient program's prompt." |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
217 :group 'net-utils |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
218 :type 'regexp |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
219 ) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
220 |
22537 | 221 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
222 ;; Nslookup goodies | |
223 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
224 | |
225 (defconst nslookup-font-lock-keywords | |
226 (and window-system | |
227 (progn | |
228 (require 'font-lock) | |
229 (list | |
230 (list nslookup-prompt-regexp 0 font-lock-reference-face) | |
231 (list "^[A-Za-z0-9 _]+:" 0 font-lock-type-face) | |
232 (list "\\<\\(SOA\\|NS\\|MX\\|A\\|CNAME\\)\\>" | |
233 1 font-lock-keyword-face) | |
234 ;; Dotted quads | |
235 (list | |
236 (mapconcat 'identity | |
237 (make-list 4 "[0-9]+") | |
238 "\\.") | |
239 0 font-lock-variable-name-face) | |
240 ;; Host names | |
241 (list | |
242 (let ((host-expression "[-A-Za-z0-9]+")) | |
243 (concat | |
244 (mapconcat 'identity | |
245 (make-list 2 host-expression) | |
246 "\\.") | |
247 "\\(\\." host-expression "\\)*") | |
248 ) | |
249 0 font-lock-variable-name-face) | |
250 ))) | |
251 "Expressions to font-lock for nslookup.") | |
252 | |
253 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
254 ;; FTP goodies | |
255 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
256 | |
257 (defconst ftp-font-lock-keywords | |
258 (and window-system | |
259 (progn | |
260 (require 'font-lock) | |
261 (list | |
262 (list ftp-prompt-regexp 0 font-lock-reference-face))))) | |
263 | |
264 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
26430
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
265 ;; smbclient goodies |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
266 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
267 |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
268 (defconst smbclient-font-lock-keywords |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
269 (and window-system |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
270 (progn |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
271 (require 'font-lock) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
272 (list |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
273 (list smbclient-prompt-regexp 0 font-lock-reference-face))))) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
274 |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
275 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
22537 | 276 ;; Utility functions |
277 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
278 | |
23359 | 279 ;; Simplified versions of some at-point functions from ffap.el. |
280 ;; It's not worth loading all of ffap just for these. | |
281 (defun net-utils-machine-at-point () | |
282 (let ((pt (point))) | |
283 (buffer-substring-no-properties | |
284 (save-excursion | |
285 (skip-chars-backward "-a-zA-Z0-9.") | |
286 (point)) | |
287 (save-excursion | |
288 (skip-chars-forward "-a-zA-Z0-9.") | |
289 (skip-chars-backward "." pt) | |
290 (point))))) | |
291 | |
292 (defun net-utils-url-at-point () | |
293 (let ((pt (point))) | |
294 (buffer-substring-no-properties | |
295 (save-excursion | |
296 (skip-chars-backward "--:=&?$+@-Z_a-z~#,%") | |
297 (skip-chars-forward "^A-Za-z0-9" pt) | |
298 (point)) | |
299 (save-excursion | |
300 (skip-chars-forward "--:=&?$+@-Z_a-z~#,%") | |
301 (skip-chars-backward ":;.,!?" pt) | |
302 (point))))) | |
303 | |
304 | |
22537 | 305 (defun net-utils-remove-ctrl-m-filter (process output-string) |
306 "Remove trailing control Ms." | |
307 (let ((old-buffer (current-buffer)) | |
308 (filtered-string output-string)) | |
309 (unwind-protect | |
310 (let ((moving)) | |
311 (set-buffer (process-buffer process)) | |
312 (setq moving (= (point) (process-mark process))) | |
313 | |
314 (while (string-match "\r" filtered-string) | |
315 (setq filtered-string | |
316 (replace-match "" nil nil filtered-string))) | |
317 | |
318 (save-excursion | |
319 ;; Insert the text, moving the process-marker. | |
320 (goto-char (process-mark process)) | |
321 (insert filtered-string) | |
322 (set-marker (process-mark process) (point))) | |
323 (if moving (goto-char (process-mark process)))) | |
324 (set-buffer old-buffer)))) | |
325 | |
326 (defmacro net-utils-run-program (name header program &rest args) | |
327 "Run a network information program." | |
26430
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
328 ` (let ((buf (get-buffer-create (concat "*" ,name "*")))) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
329 (set-buffer buf) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
330 (erase-buffer) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
331 (insert ,header "\n") |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
332 (set-process-filter |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
333 (apply 'start-process ,name buf ,program ,@args) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
334 'net-utils-remove-ctrl-m-filter) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
335 (display-buffer buf))) |
22537 | 336 |
337 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
338 ;; Wrappers for external network programs | |
339 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
340 | |
341 ;;;###autoload | |
342 (defun traceroute (target) | |
343 "Run traceroute program for TARGET." | |
344 (interactive "sTarget: ") | |
345 (let ((options | |
346 (if traceroute-program-options | |
347 (append traceroute-program-options (list target)) | |
348 (list target)))) | |
349 (net-utils-run-program | |
350 (concat "Traceroute" " " target) | |
351 (concat "** Traceroute ** " traceroute-program " ** " target) | |
352 traceroute-program | |
353 options | |
354 ))) | |
355 | |
356 ;;;###autoload | |
357 (defun ping (host) | |
358 "Ping HOST. | |
359 If your system's ping continues until interrupted, you can try setting | |
360 `ping-program-options'." | |
361 (interactive | |
23359 | 362 (list (read-from-minibuffer "Ping host: " (net-utils-machine-at-point)))) |
22537 | 363 (let ((options |
364 (if ping-program-options | |
365 (append ping-program-options (list host)) | |
366 (list host)))) | |
367 (net-utils-run-program | |
368 (concat "Ping" " " host) | |
369 (concat "** Ping ** " ping-program " ** " host) | |
370 ping-program | |
371 options | |
372 ))) | |
373 | |
374 ;;;###autoload | |
375 (defun ipconfig () | |
376 "Run ipconfig program." | |
377 (interactive) | |
378 (net-utils-run-program | |
379 "Ipconfig" | |
380 (concat "** Ipconfig ** " ipconfig-program " ** ") | |
381 ipconfig-program | |
382 ipconfig-program-options | |
383 )) | |
384 | |
385 ;; This is the normal name on most Unixes. | |
386 ;;;###autoload | |
387 (defalias 'ifconfig 'ipconfig) | |
388 | |
389 ;;;###autoload | |
390 (defun netstat () | |
391 "Run netstat program." | |
392 (interactive) | |
393 (net-utils-run-program | |
394 "Netstat" | |
395 (concat "** Netstat ** " netstat-program " ** ") | |
396 netstat-program | |
397 netstat-program-options | |
398 )) | |
399 | |
400 ;;;###autoload | |
401 (defun arp () | |
402 "Run the arp program." | |
403 (interactive) | |
404 (net-utils-run-program | |
405 "Arp" | |
406 (concat "** Arp ** " arp-program " ** ") | |
407 arp-program | |
408 arp-program-options | |
409 )) | |
410 | |
411 ;;;###autoload | |
412 (defun route () | |
413 "Run the route program." | |
414 (interactive) | |
415 (net-utils-run-program | |
416 "Route" | |
417 (concat "** Route ** " route-program " ** ") | |
418 route-program | |
419 route-program-options | |
420 )) | |
421 | |
422 ;; FIXME -- Needs to be a process filter | |
423 ;; (defun netstat-with-filter (filter) | |
424 ;; "Run netstat program." | |
425 ;; (interactive "sFilter: ") | |
426 ;; (netstat) | |
427 ;; (set-buffer (get-buffer "*Netstat*")) | |
428 ;; (goto-char (point-min)) | |
429 ;; (delete-matching-lines filter) | |
430 ;; ) | |
431 | |
432 ;;;###autoload | |
433 (defun nslookup-host (host) | |
434 "Lookup the DNS information for HOST." | |
435 (interactive | |
23359 | 436 (list (read-from-minibuffer "Lookup host: " (net-utils-machine-at-point)))) |
22537 | 437 (let ((options |
438 (if nslookup-program-options | |
439 (append nslookup-program-options (list host)) | |
440 (list host)))) | |
441 (net-utils-run-program | |
442 "Nslookup" | |
443 (concat "** " | |
444 (mapconcat 'identity | |
445 (list "Nslookup" host nslookup-program) | |
446 " ** ")) | |
447 nslookup-program | |
448 options | |
449 ))) | |
450 | |
451 | |
452 ;;;###autoload | |
453 (defun nslookup () | |
454 "Run nslookup program." | |
455 (interactive) | |
23391
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
456 (require 'comint) |
22537 | 457 (comint-run nslookup-program) |
458 (set-process-filter (get-buffer-process "*nslookup*") | |
459 'net-utils-remove-ctrl-m-filter) | |
26041
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
460 (nslookup-mode) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
461 ) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
462 |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
463 ;; Using a derived mode gives us keymaps, hooks, etc. |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
464 (define-derived-mode |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
465 nslookup-mode comint-mode "Nslookup" |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
466 "Major mode for interacting with the nslookup program." |
22537 | 467 (set |
468 (make-local-variable 'font-lock-defaults) | |
469 '((nslookup-font-lock-keywords))) | |
26041
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
470 (setq local-abbrev-table nslookup-mode-abbrev-table) |
22537 | 471 (abbrev-mode t) |
472 (make-local-variable 'comint-prompt-regexp) | |
473 (setq comint-prompt-regexp nslookup-prompt-regexp) | |
26041
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
474 (make-local-variable 'comint-input-autoexpand) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
475 (setq comint-input-autoexpand t) |
22537 | 476 ) |
477 | |
26041
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
478 (define-key nslookup-mode-map "\t" 'comint-dynamic-complete) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
479 |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
480 (define-abbrev nslookup-mode-abbrev-table "e" "exit") |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
481 (define-abbrev nslookup-mode-abbrev-table "f" "finger") |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
482 (define-abbrev nslookup-mode-abbrev-table "h" "help") |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
483 (define-abbrev nslookup-mode-abbrev-table "lse" "lserver") |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
484 (define-abbrev nslookup-mode-abbrev-table "q" "exit") |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
485 (define-abbrev nslookup-mode-abbrev-table "r" "root") |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
486 (define-abbrev nslookup-mode-abbrev-table "s" "set") |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
487 (define-abbrev nslookup-mode-abbrev-table "se" "server") |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
488 (define-abbrev nslookup-mode-abbrev-table "v" "viewer") |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
489 |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
490 ;;;###autoload |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
491 (defun dig (host) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
492 "Run dig program." |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
493 (interactive |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
494 (list |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
495 (progn |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
496 (require 'ffap) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
497 (read-from-minibuffer |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
498 "Lookup host: " |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
499 (or (ffap-string-at-point 'machine) ""))))) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
500 (net-utils-run-program |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
501 "Dig" |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
502 (concat "** " |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
503 (mapconcat 'identity |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
504 (list "Dig" host dig-program) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
505 " ** ")) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
506 dig-program |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
507 (list host) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
508 )) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
509 |
22537 | 510 ;; This is a lot less than ange-ftp, but much simpler. |
511 ;;;###autoload | |
512 (defun ftp (host) | |
513 "Run ftp program." | |
26041
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
514 (interactive |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
515 (list |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
516 (read-from-minibuffer |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
517 "Ftp to Host: " (net-utils-machine-at-point)))) |
23391
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
518 (require 'comint) |
22537 | 519 (let ((buf (get-buffer-create (concat "*ftp [" host "]*")))) |
520 (set-buffer buf) | |
521 (comint-mode) | |
522 (comint-exec buf (concat "ftp-" host) ftp-program nil | |
523 (if ftp-program-options | |
524 (append (list host) ftp-program-options) | |
525 (list host))) | |
26041
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
526 (ftp-mode) |
22537 | 527 (switch-to-buffer-other-window buf) |
528 )) | |
529 | |
26041
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
530 (define-derived-mode |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
531 ftp-mode comint-mode "FTP" |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
532 "Major mode for interacting with the ftp program." |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
533 |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
534 (set |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
535 (make-local-variable 'font-lock-defaults) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
536 '((ftp-font-lock-keywords))) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
537 |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
538 (make-local-variable 'comint-prompt-regexp) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
539 (setq comint-prompt-regexp ftp-prompt-regexp) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
540 |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
541 (make-local-variable 'comint-input-autoexpand) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
542 (setq comint-input-autoexpand t) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
543 |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
544 ;; Already buffer local! |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
545 (setq comint-output-filter-functions |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
546 (list 'comint-watch-for-password-prompt)) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
547 |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
548 (setq local-abbrev-table ftp-mode-abbrev-table) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
549 (abbrev-mode t) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
550 ) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
551 |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
552 (define-abbrev ftp-mode-abbrev-table "q" "quit") |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
553 (define-abbrev ftp-mode-abbrev-table "g" "get") |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
554 (define-abbrev ftp-mode-abbrev-table "p" "prompt") |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
555 (define-abbrev ftp-mode-abbrev-table "anon" "anonymous") |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
556 |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
557 ;; Occasionally useful |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
558 (define-key ftp-mode-map "\t" 'comint-dynamic-complete) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
559 |
26430
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
560 (defun smbclient (host service) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
561 "Connect to SERVICE on HOST via SMB." |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
562 (interactive |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
563 (list |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
564 (read-from-minibuffer |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
565 "Connect to Host: " (net-utils-machine-at-point)) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
566 (read-from-minibuffer "SMB Service: "))) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
567 (require 'comint) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
568 (let* ((name (format "smbclient [%s\\%s]" host service)) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
569 (buf (get-buffer-create (concat "*" name "*"))) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
570 (service-name (concat "\\\\" host "\\" service))) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
571 (set-buffer buf) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
572 (comint-mode) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
573 (comint-exec buf name smbclient-program nil |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
574 (if smbclient-program-options |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
575 (append (list service-name) smbclient-program-options) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
576 (list service-name))) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
577 (smbclient-mode) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
578 (switch-to-buffer-other-window buf) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
579 )) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
580 |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
581 (defun smbclient-list-shares (host) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
582 "List services on HOST." |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
583 (interactive |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
584 (list |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
585 (read-from-minibuffer |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
586 "Connect to Host: " (net-utils-machine-at-point)) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
587 )) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
588 (let ((buf (get-buffer-create (format "*SMB Shares on %s*" host)))) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
589 (set-buffer buf) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
590 (comint-mode) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
591 (comint-exec |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
592 buf |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
593 "smbclient-list-shares" |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
594 smbclient-program |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
595 nil |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
596 (list "-L" host) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
597 ) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
598 (smbclient-mode) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
599 (switch-to-buffer-other-window buf))) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
600 |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
601 (define-derived-mode |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
602 smbclient-mode comint-mode "smbclient" |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
603 "Major mode for interacting with the smbclient program." |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
604 |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
605 (set |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
606 (make-local-variable 'font-lock-defaults) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
607 '((smbclient-font-lock-keywords))) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
608 |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
609 (make-local-variable 'comint-prompt-regexp) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
610 (setq comint-prompt-regexp smbclient-prompt-regexp) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
611 |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
612 (make-local-variable 'comint-input-autoexpand) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
613 (setq comint-input-autoexpand t) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
614 |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
615 ;; Already buffer local! |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
616 (setq comint-output-filter-functions |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
617 (list 'comint-watch-for-password-prompt)) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
618 |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
619 (setq local-abbrev-table smbclient-mode-abbrev-table) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
620 (abbrev-mode t) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
621 ) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
622 |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
623 (define-abbrev smbclient-mode-abbrev-table "q" "quit") |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
624 |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
625 |
22537 | 626 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
627 ;; Network Connections | |
628 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
629 | |
630 ;; Full list is available at: | |
631 ;; ftp://ftp.isi.edu/in-notes/iana/assignments/port-numbers | |
632 (defvar network-connection-service-alist | |
633 (list | |
634 (cons 'echo 7) | |
635 (cons 'active-users 11) | |
636 (cons 'daytime 13) | |
637 (cons 'chargen 19) | |
638 (cons 'ftp 21) | |
639 (cons 'telnet 23) | |
640 (cons 'smtp 25) | |
641 (cons 'time 37) | |
642 (cons 'whois 43) | |
643 (cons 'gopher 70) | |
644 (cons 'finger 79) | |
645 (cons 'www 80) | |
646 (cons 'pop2 109) | |
647 (cons 'pop3 110) | |
648 (cons 'sun-rpc 111) | |
649 (cons 'nntp 119) | |
650 (cons 'ntp 123) | |
651 (cons 'netbios-name 137) | |
652 (cons 'netbios-data 139) | |
653 (cons 'irc 194) | |
654 (cons 'https 443) | |
655 (cons 'rlogin 513) | |
656 ) | |
657 "Alist of services and associated TCP port numbers. | |
658 This list in not complete.") | |
659 | |
660 ;; Workhorse macro | |
661 (defmacro run-network-program (process-name host port | |
662 &optional initial-string) | |
26430
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
663 ` |
22537 | 664 (let ((tcp-connection) |
665 (buf) | |
666 ) | |
26430
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
667 (setq buf (get-buffer-create (concat "*" ,process-name "*"))) |
22537 | 668 (set-buffer buf) |
669 (or | |
670 (setq tcp-connection | |
671 (open-network-stream | |
26430
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
672 ,process-name |
22537 | 673 buf |
26430
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
674 ,host |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
675 ,port |
22537 | 676 )) |
26430
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
677 (error "Could not open connection to %s" ,host)) |
22537 | 678 (erase-buffer) |
679 (set-marker (process-mark tcp-connection) (point-min)) | |
680 (set-process-filter tcp-connection 'net-utils-remove-ctrl-m-filter) | |
26430
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
681 (and ,initial-string |
22537 | 682 (process-send-string tcp-connection |
26430
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
683 (concat ,initial-string "\r\n"))) |
9b2b851efc39
(net-utils-run-program): Changed backquotes to new style
Peter Breton <pbreton@attbi.com>
parents:
26041
diff
changeset
|
684 (display-buffer buf))) |
22537 | 685 |
686 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
687 ;; Simple protocols | |
688 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
689 | |
690 ;; Finger protocol | |
691 ;;;###autoload | |
692 (defun finger (user host) | |
693 "Finger USER on HOST." | |
694 ;; One of those great interactive statements that's actually | |
695 ;; longer than the function call! The idea is that if the user | |
696 ;; uses a string like "pbreton@cs.umb.edu", we won't ask for the | |
697 ;; host name. If we don't see an "@", we'll prompt for the host. | |
698 (interactive | |
23359 | 699 (let* ((answer (read-from-minibuffer "Finger User: " |
700 (net-utils-url-at-point))) | |
26041
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
701 (index (string-match (regexp-quote "@") answer))) |
23359 | 702 (if index |
703 (list | |
704 (substring answer 0 index) | |
705 (substring answer (1+ index))) | |
706 (list | |
707 answer | |
708 (read-from-minibuffer "At Host: " (net-utils-machine-at-point)))))) | |
26041
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
709 (let* ( |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
710 (user-and-host (concat user "@" host)) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
711 (process-name |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
712 (concat "Finger [" user-and-host "]")) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
713 ) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
714 (run-network-program |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
715 process-name |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
716 host |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
717 (cdr (assoc 'finger network-connection-service-alist)) |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
718 user-and-host |
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
719 ))) |
22537 | 720 |
26041
01eac276e455
(whois-server-name): Changed to rs.internic.net
Peter Breton <pbreton@attbi.com>
parents:
25131
diff
changeset
|
721 (defcustom whois-server-name "rs.internic.net" |
23391
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
722 "Default host name for the whois service." |
22537 | 723 :group 'net-utils |
724 :type 'string | |
725 ) | |
726 | |
23391
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
727 (defcustom whois-server-list |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
728 '(("whois.arin.net") ; Networks, ASN's, and related POC's (numbers) |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
729 ("rs.internic.net") ; domain related info |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
730 ("whois.abuse.net") |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
731 ("whois.apnic.net") |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
732 ("nic.ddn.mil") |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
733 ("whois.nic.mil") |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
734 ("whois.nic.gov") |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
735 ("whois.ripe.net")) |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
736 "A list of whois servers that can be queried." |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
737 :group 'net-utils |
23479
8256c4d22113
(whois-server-list): Fix customization type.
Richard M. Stallman <rms@gnu.org>
parents:
23391
diff
changeset
|
738 :type '(repeat (list string))) |
23391
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
739 |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
740 (defcustom whois-server-tld |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
741 '(("rs.internic.net" . "com") |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
742 ("rs.internic.net" . "org") |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
743 ("whois.ripe.net" . "be") |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
744 ("whois.ripe.net" . "de") |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
745 ("whois.ripe.net" . "dk") |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
746 ("whois.ripe.net" . "it") |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
747 ("whois.ripe.net" . "fi") |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
748 ("whois.ripe.net" . "fr") |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
749 ("whois.ripe.net" . "uk") |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
750 ("whois.apnic.net" . "au") |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
751 ("whois.apnic.net" . "ch") |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
752 ("whois.apnic.net" . "hk") |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
753 ("whois.apnic.net" . "jp") |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
754 ("whois.nic.gov" . "gov") |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
755 ("whois.nic.mil" . "mil")) |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
756 "Alist to map top level domains to whois servers." |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
757 :group 'net-utils |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
758 :type '(repeat (cons string string))) |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
759 |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
760 (defcustom whois-guess-server t |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
761 "If non-nil then whois will try to deduce the appropriate whois |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
762 server from the query. If the query doesn't look like a domain or hostname |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
763 then the server named by whois-server-name is used." |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
764 :group 'net-utils |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
765 :type 'boolean) |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
766 |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
767 (defun whois-get-tld (host) |
23529
ccedc9675dab
(whois-get-tld): Rewrite not to use `do'.
Richard M. Stallman <rms@gnu.org>
parents:
23479
diff
changeset
|
768 "Return the top level domain of `host', or nil if it isn't a domain name." |
ccedc9675dab
(whois-get-tld): Rewrite not to use `do'.
Richard M. Stallman <rms@gnu.org>
parents:
23479
diff
changeset
|
769 (let ((i (1- (length host))) |
ccedc9675dab
(whois-get-tld): Rewrite not to use `do'.
Richard M. Stallman <rms@gnu.org>
parents:
23479
diff
changeset
|
770 (max-len (- (length host) 5))) |
ccedc9675dab
(whois-get-tld): Rewrite not to use `do'.
Richard M. Stallman <rms@gnu.org>
parents:
23479
diff
changeset
|
771 (while (not (or (= i max-len) (char-equal (aref host i) ?.))) |
ccedc9675dab
(whois-get-tld): Rewrite not to use `do'.
Richard M. Stallman <rms@gnu.org>
parents:
23479
diff
changeset
|
772 (setq i (1- i))) |
ccedc9675dab
(whois-get-tld): Rewrite not to use `do'.
Richard M. Stallman <rms@gnu.org>
parents:
23479
diff
changeset
|
773 (if (= i max-len) |
ccedc9675dab
(whois-get-tld): Rewrite not to use `do'.
Richard M. Stallman <rms@gnu.org>
parents:
23479
diff
changeset
|
774 nil |
ccedc9675dab
(whois-get-tld): Rewrite not to use `do'.
Richard M. Stallman <rms@gnu.org>
parents:
23479
diff
changeset
|
775 (substring host (1+ i))))) |
23391
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
776 |
22537 | 777 ;; Whois protocol |
778 ;;;###autoload | |
779 (defun whois (arg search-string) | |
780 "Send SEARCH-STRING to server defined by the `whois-server-name' variable. | |
23391
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
781 If `whois-guess-server' is non-nil, then try to deduce the correct server |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
782 from SEARCH-STRING. With argument, prompt for whois server." |
22537 | 783 (interactive "P\nsWhois: ") |
23391
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
784 (let* ((whois-apropos-host (if whois-guess-server |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
785 (rassoc (whois-get-tld search-string) |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
786 whois-server-tld) |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
787 nil)) |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
788 (server-name (if whois-apropos-host |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
789 (car whois-apropos-host) |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
790 whois-server-name)) |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
791 (host |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
792 (if arg |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
793 (completing-read "Whois server name: " |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
794 whois-server-list nil nil "whois.") |
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
795 server-name))) |
22537 | 796 (run-network-program |
797 "Whois" | |
798 host | |
799 (cdr (assoc 'whois network-connection-service-alist)) | |
800 search-string | |
801 ))) | |
802 | |
803 (defcustom whois-reverse-lookup-server "whois.arin.net" | |
804 "Server which provides inverse DNS mapping." | |
805 :group 'net-utils | |
806 :type 'string | |
807 ) | |
808 | |
809 ;;;###autoload | |
810 (defun whois-reverse-lookup () | |
811 (interactive) | |
812 (let ((whois-server-name whois-reverse-lookup-server)) | |
813 (call-interactively 'whois))) | |
814 | |
815 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
816 ;;; General Network connection | |
817 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
818 | |
819 ;;;###autoload | |
820 (defun network-connection-to-service (host service) | |
821 "Open a network connection to SERVICE on HOST." | |
822 (interactive | |
823 (list | |
23359 | 824 (read-from-minibuffer "Host: " (net-utils-machine-at-point)) |
22537 | 825 (completing-read "Service: " |
826 (mapcar | |
827 (function | |
828 (lambda (elt) | |
829 (list (symbol-name (car elt))))) | |
830 network-connection-service-alist)))) | |
831 (network-connection | |
832 host | |
833 (cdr (assoc (intern service) network-connection-service-alist))) | |
834 ) | |
835 | |
836 ;;;###autoload | |
837 (defun network-connection (host port) | |
838 "Open a network connection to HOST on PORT." | |
839 (interactive "sHost: \nnPort: ") | |
840 (network-service-connection host (number-to-string port))) | |
841 | |
842 (defun network-service-connection (host service) | |
843 "Open a network connection to SERVICE on HOST." | |
23391
4120f9e06191
(ftp, nslookup): Require comint.
Karl Heuer <kwzh@gnu.org>
parents:
23359
diff
changeset
|
844 (require 'comint) |
22537 | 845 (let ( |
846 (process-name (concat "Network Connection [" host " " service "]")) | |
847 (portnum (string-to-number service)) | |
848 ) | |
849 (or (zerop portnum) (setq service portnum)) | |
850 (make-comint | |
851 process-name | |
852 (cons host service)) | |
853 (pop-to-buffer (get-buffer (concat "*" process-name "*"))) | |
854 )) | |
855 | |
856 (provide 'net-utils) | |
857 | |
858 ;;; net-utils.el ends here |