| blob | 982923ed559bec65fdcf312907f3736902fc5c4a |
1 ;;; net-utils.el --- network functions
3 ;; Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
5 ;; Author: Peter Breton <pbreton@cs.umb.edu>
6 ;; Created: Sun Mar 16 1997
7 ;; Keywords: network comm
9 ;; This file is part of GNU Emacs.
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation; either version 2, or (at your option)
14 ;; any later version.
16 ;; GNU Emacs is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA.
26 ;;; Commentary:
28 ;;
29 ;; There are three main areas of functionality:
30 ;;
31 ;; * Wrap common network utility programs (ping, traceroute, netstat,
32 ;; nslookup, arp, route). Note that these wrappers are of the diagnostic
33 ;; functions of these programs only.
34 ;;
35 ;; * Implement some very basic protocols in Emacs Lisp (finger and whois)
36 ;;
37 ;; * Support connections to HOST/PORT, generally for debugging and the like.
38 ;; In other words, for doing much the same thing as "telnet HOST PORT", and
39 ;; then typing commands.
40 ;;
41 ;; PATHS
42 ;;
43 ;; On some systems, some of these programs are not in normal user path,
44 ;; but rather in /sbin, /usr/sbin, and so on.
47 ;;; Code:
51 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
52 ;; Customization Variables
53 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
56 "Network utility functions."
63 "If non-nil, remove control-Ms from output."
69 "tracert"
71 "Program to trace network hops to a destination."
76 "Options for the traceroute program."
81 "Program to send network test packets to a host."
85 ;; On GNU/Linux and Irix, the system's ping program seems to send packets
86 ;; indefinitely unless told otherwise
90 "Options for the ping program.
91 These options can be used to limit how many ICMP packets are emitted."
97 "ipconfig"
99 "Program to print network configuration information."
107 "Options for ipconfig-program."
112 "Program to print network statistics."
118 "Options for netstat-program."
123 "Program to print IP to address translation tables."
129 "Options for arp-program."
135 "route"
137 "Program to print routing tables."
145 "Options for route-program."
150 "Program to interactively query DNS information."
155 "List of options to pass to the nslookup program."
160 "Regexp to match the nslookup prompt.
162 This variable is only used if the variable
163 `comint-use-prompt-regexp-instead-of-fields' is non-nil."
168 "Program to query DNS information."
173 "Progam to run to do FTP transfers."
178 "List of options to pass to the FTP program."
183 "Regexp which matches the FTP program's prompt.
185 This variable is only used if the variable
186 `comint-use-prompt-regexp-instead-of-fields' is non-nil."
191 "Smbclient program."
196 "List of options to pass to the smbclient program."
201 "Regexp which matches the smbclient program's prompt.
203 This variable is only used if the variable
204 `comint-use-prompt-regexp-instead-of-fields' is non-nil."
209 "Program to interactively query DNS information."
212 )
215 "List of options to pass to the dns-lookup program."
218 )
220 ;; Internal variables
224 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
225 ;; Nslookup goodies
226 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
238 ;; Dotted quads
244 ;; Host names
255 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
256 ;; Utility functions
257 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
259 ;; Simplified versions of some at-point functions from ffap.el.
260 ;; It's not worth loading all of ffap just for these.
286 "Remove trailing control Ms."
299 ;; Insert the text, moving the process-marker.
307 "Run a network information program."
316 buf))
318 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
319 ;; Wrappers for external network programs
320 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
322 ;;;###autoload
324 "Run traceroute program for TARGET."
333 traceroute-program
334 options)))
336 ;;;###autoload
338 "Ping HOST.
339 If your system's ping continues until interrupted, you can try setting
340 `ping-program-options'."
350 ping-program
351 options)))
353 ;;;###autoload
355 "Run ipconfig program."
358 "Ipconfig"
360 ipconfig-program
361 ipconfig-program-options))
363 ;; This is the normal name on most Unixes.
364 ;;;###autoload
367 ;;;###autoload
369 "Run netstat program."
372 "Netstat"
374 netstat-program
375 netstat-program-options))
377 ;;;###autoload
379 "Run the arp program."
382 "Arp"
384 arp-program
385 arp-program-options))
387 ;;;###autoload
389 "Run the route program."
392 "Route"
394 route-program
395 route-program-options))
397 ;; FIXME -- Needs to be a process filter
398 ;; (defun netstat-with-filter (filter)
399 ;; "Run netstat program."
400 ;; (interactive "sFilter: ")
401 ;; (netstat)
402 ;; (set-buffer (get-buffer "*Netstat*"))
403 ;; (goto-char (point-min))
404 ;; (delete-matching-lines filter))
406 ;;;###autoload
408 "Lookup the DNS information for HOST."
416 "Nslookup"
421 nslookup-program
422 options)))
424 ;;;###autoload
426 "Run nslookup program."
432 ;; Using a derived mode gives us keymaps, hooks, etc.
434 "Major mode for interacting with the nslookup program."
443 ;;;###autoload
445 "Lookup the DNS information for HOST (name or IP address)."
458 dns-lookup-program
459 options
460 )))
462 ;;;###autoload
464 "Run dig program."
470 "Lookup host: "
473 "Dig"
478 dig-program
481 ;; This is a lot less than ange-ftp, but much simpler.
482 ;;;###autoload
484 "Run ftp program."
500 "Major mode for interacting with the ftp program."
503 ;; Only add the password-prompting hook if it's not already in the
504 ;; global hook list. This stands a small chance of losing, if it's
505 ;; later removed from the global list (very small, since any
506 ;; password prompts will probably immediately follow the initial
507 ;; connection), but it's better than getting prompted twice for the
508 ;; same password.
512 nil t)))
514 ;; Occasionally useful
518 "Connect to SERVICE on HOST via SMB."
537 "List services on HOST."
550 "Major mode for interacting with the smbclient program."
553 ;; Only add the password-prompting hook if it's not already in the
554 ;; global hook list. This stands a small chance of losing, if it's
555 ;; later removed from the global list (very small, since any
556 ;; password prompts will probably immediately follow the initial
557 ;; connection), but it's better than getting prompted twice for the
558 ;; same password.
562 nil t)))
565 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
566 ;; Network Connections
567 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
569 ;; Full list is available at:
570 ;; ftp://ftp.isi.edu/in-notes/iana/assignments/port-numbers
595 "Alist of services and associated TCP port numbers.
598 ;; Workhorse macro
608 ,process-name
609 buf
610 ,host
621 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
622 ;; Simple protocols
623 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
626 "A list of regular expressions matching host names.
627 If a host name passed to `finger' matches one of these regular
628 expressions, it is assumed to be a host that doesn't accept
629 queries of the form USER@HOST, and wants a query containing USER only."
634 ;; Finger protocol
635 ;;;###autoload
637 "Finger USER on HOST."
638 ;; One of those great interactive statements that's actually
639 ;; longer than the function call! The idea is that if the user
640 ;; uses a string like "pbreton@cs.umb.edu", we won't ask for the
641 ;; host name. If we don't see an "@", we'll prompt for the host.
655 found)
662 process-name
663 host
665 user-and-host)))
668 "Default host name for the whois service."
681 "A list of whois servers that can be queried."
701 "Alist to map top level domains to whois servers."
706 "If non-nil then whois will try to deduce the appropriate whois
707 server from the query. If the query doesn't look like a domain or hostname
708 then the server named by whois-server-name is used."
713 "Return the top level domain of `host', or nil if it isn't a domain name."
719 nil
722 ;; Whois protocol
723 ;;;###autoload
725 "Send SEARCH-STRING to server defined by the `whois-server-name' variable.
726 If `whois-guess-server' is non-nil, then try to deduce the correct server
727 from SEARCH-STRING. With argument, prompt for whois server."
731 whois-server-tld)
732 nil))
735 whois-server-name))
740 server-name)))
742 "Whois"
743 host
745 search-string)))
748 "Server which provides inverse DNS mapping."
752 ;;;###autoload
758 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
759 ;;; General Network connection
760 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
762 ;; Using a derived mode gives us keymaps, hooks, etc.
764 network-connection-mode comint-mode "Network-Connection"
773 ;;;###autoload
775 "Open a network connection to SERVICE on HOST."
784 network-connection-service-alist))))
786 host
789 ;;;###autoload
791 "Open a network connection to HOST on PORT."
796 "Open a network connection to SERVICE on HOST."
803 process-name
811 "Reconnect a network connection, preserving the old input ring."
824 service
831 ;;; net-utils.el ends here