2001-07-16 12:23:00 +00:00
|
|
|
;;; net-utils.el --- network functions
|
2000-03-20 13:12:14 +00:00
|
|
|
|
2011-01-25 04:08:28 +00:00
|
|
|
;; Copyright (C) 1998-2011 Free Software Foundation, Inc.
|
2001-02-20 12:53:12 +00:00
|
|
|
|
2000-03-20 13:12:14 +00:00
|
|
|
;; Author: Peter Breton <pbreton@cs.umb.edu>
|
|
|
|
;; Created: Sun Mar 16 1997
|
2002-01-06 15:11:24 +00:00
|
|
|
;; Keywords: network comm
|
2000-03-20 13:12:14 +00:00
|
|
|
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
|
2008-05-06 07:31:51 +00:00
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
2000-03-20 13:12:14 +00:00
|
|
|
;; it under the terms of the GNU General Public License as published by
|
2008-05-06 07:31:51 +00:00
|
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
|
|
;; (at your option) any later version.
|
2000-03-20 13:12:14 +00:00
|
|
|
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
;; GNU General Public License for more details.
|
|
|
|
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
2008-05-06 07:31:51 +00:00
|
|
|
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
2000-03-20 13:12:14 +00:00
|
|
|
|
|
|
|
;;; Commentary:
|
2002-01-06 15:11:24 +00:00
|
|
|
|
2000-03-20 13:12:14 +00:00
|
|
|
;;
|
|
|
|
;; There are three main areas of functionality:
|
2000-10-04 05:43:37 +00:00
|
|
|
;;
|
2000-03-20 13:12:14 +00:00
|
|
|
;; * Wrap common network utility programs (ping, traceroute, netstat,
|
|
|
|
;; nslookup, arp, route). Note that these wrappers are of the diagnostic
|
|
|
|
;; functions of these programs only.
|
2000-10-04 05:43:37 +00:00
|
|
|
;;
|
2000-03-20 13:12:14 +00:00
|
|
|
;; * Implement some very basic protocols in Emacs Lisp (finger and whois)
|
2000-10-04 05:43:37 +00:00
|
|
|
;;
|
2000-03-20 13:12:14 +00:00
|
|
|
;; * Support connections to HOST/PORT, generally for debugging and the like.
|
|
|
|
;; In other words, for doing much the same thing as "telnet HOST PORT", and
|
|
|
|
;; then typing commands.
|
|
|
|
;;
|
|
|
|
;; PATHS
|
|
|
|
;;
|
|
|
|
;; On some systems, some of these programs are not in normal user path,
|
2000-10-04 05:43:37 +00:00
|
|
|
;; but rather in /sbin, /usr/sbin, and so on.
|
2000-03-20 13:12:14 +00:00
|
|
|
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
;; Customization Variables
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
|
|
|
(defgroup net-utils nil
|
|
|
|
"Network utility functions."
|
|
|
|
:prefix "net-utils-"
|
|
|
|
:group 'comm
|
2002-01-06 15:11:24 +00:00
|
|
|
:version "20.3")
|
2000-03-20 13:12:14 +00:00
|
|
|
|
2010-11-10 04:13:21 +00:00
|
|
|
(defcustom net-utils-remove-ctl-m (memq system-type '(windows-nt msdos))
|
2000-03-20 13:12:14 +00:00
|
|
|
"If non-nil, remove control-Ms from output."
|
|
|
|
:group 'net-utils
|
2002-01-06 15:11:24 +00:00
|
|
|
:type 'boolean)
|
2000-03-20 13:12:14 +00:00
|
|
|
|
2000-10-04 05:43:37 +00:00
|
|
|
(defcustom traceroute-program
|
|
|
|
(if (eq system-type 'windows-nt)
|
2000-03-20 13:12:14 +00:00
|
|
|
"tracert"
|
|
|
|
"traceroute")
|
|
|
|
"Program to trace network hops to a destination."
|
|
|
|
:group 'net-utils
|
2002-01-06 15:11:24 +00:00
|
|
|
:type 'string)
|
2000-03-20 13:12:14 +00:00
|
|
|
|
|
|
|
(defcustom traceroute-program-options nil
|
|
|
|
"Options for the traceroute program."
|
|
|
|
:group 'net-utils
|
2002-01-06 15:11:24 +00:00
|
|
|
:type '(repeat string))
|
2000-03-20 13:12:14 +00:00
|
|
|
|
|
|
|
(defcustom ping-program "ping"
|
|
|
|
"Program to send network test packets to a host."
|
|
|
|
:group 'net-utils
|
2002-01-06 15:11:24 +00:00
|
|
|
:type 'string)
|
2000-03-20 13:12:14 +00:00
|
|
|
|
2002-01-06 15:11:24 +00:00
|
|
|
;; On GNU/Linux and Irix, the system's ping program seems to send packets
|
2000-03-20 13:12:14 +00:00
|
|
|
;; indefinitely unless told otherwise
|
2000-10-04 05:43:37 +00:00
|
|
|
(defcustom ping-program-options
|
2010-11-10 04:13:21 +00:00
|
|
|
(and (memq system-type '(gnu/linux irix))
|
2000-03-20 13:12:14 +00:00
|
|
|
(list "-c" "4"))
|
|
|
|
"Options for the ping program.
|
|
|
|
These options can be used to limit how many ICMP packets are emitted."
|
|
|
|
:group 'net-utils
|
2002-01-06 15:11:24 +00:00
|
|
|
:type '(repeat string))
|
2000-03-20 13:12:14 +00:00
|
|
|
|
2008-04-12 03:17:19 +00:00
|
|
|
(define-obsolete-variable-alias 'ipconfig-program 'ifconfig-program "22.2")
|
|
|
|
|
2008-02-08 18:22:54 +00:00
|
|
|
(defcustom ifconfig-program
|
2000-03-20 13:12:14 +00:00
|
|
|
(if (eq system-type 'windows-nt)
|
|
|
|
"ipconfig"
|
|
|
|
"ifconfig")
|
|
|
|
"Program to print network configuration information."
|
|
|
|
:group 'net-utils
|
2002-01-06 15:11:24 +00:00
|
|
|
:type 'string)
|
2000-03-20 13:12:14 +00:00
|
|
|
|
2010-09-23 07:05:22 +00:00
|
|
|
(define-obsolete-variable-alias 'ipconfig-program-options
|
|
|
|
'ifconfig-program-options "22.2")
|
|
|
|
|
2008-02-08 18:22:54 +00:00
|
|
|
(defcustom ifconfig-program-options
|
2002-01-06 15:11:24 +00:00
|
|
|
(list
|
|
|
|
(if (eq system-type 'windows-nt)
|
|
|
|
"/all" "-a"))
|
2008-02-26 11:55:41 +00:00
|
|
|
"Options for the ifconfig program."
|
2000-03-20 13:12:14 +00:00
|
|
|
:group 'net-utils
|
2002-01-06 15:11:24 +00:00
|
|
|
:type '(repeat string))
|
2000-03-20 13:12:14 +00:00
|
|
|
|
2008-02-23 20:01:44 +00:00
|
|
|
(defcustom iwconfig-program "iwconfig"
|
|
|
|
"Program to print wireless network configuration information."
|
|
|
|
:group 'net-utils
|
2008-02-23 20:02:55 +00:00
|
|
|
:type 'string
|
|
|
|
:version "23.1")
|
2008-02-23 20:01:44 +00:00
|
|
|
|
|
|
|
(defcustom iwconfig-program-options nil
|
2008-03-11 10:23:09 +00:00
|
|
|
"Options for the iwconfig program."
|
2008-02-23 20:01:44 +00:00
|
|
|
:group 'net-utils
|
2008-02-23 20:02:55 +00:00
|
|
|
:type '(repeat string)
|
|
|
|
:version "23.1")
|
2008-02-23 20:01:44 +00:00
|
|
|
|
2008-02-26 11:55:41 +00:00
|
|
|
(defcustom netstat-program "netstat"
|
2000-03-20 13:12:14 +00:00
|
|
|
"Program to print network statistics."
|
|
|
|
:group 'net-utils
|
2002-01-06 15:11:24 +00:00
|
|
|
:type 'string)
|
2000-03-20 13:12:14 +00:00
|
|
|
|
2000-10-04 05:43:37 +00:00
|
|
|
(defcustom netstat-program-options
|
2000-03-20 13:12:14 +00:00
|
|
|
(list "-a")
|
2008-02-26 11:55:41 +00:00
|
|
|
"Options for the netstat program."
|
2000-03-20 13:12:14 +00:00
|
|
|
:group 'net-utils
|
2002-01-06 15:11:24 +00:00
|
|
|
:type '(repeat string))
|
2000-03-20 13:12:14 +00:00
|
|
|
|
2008-02-26 11:55:41 +00:00
|
|
|
(defcustom arp-program "arp"
|
2000-03-20 13:12:14 +00:00
|
|
|
"Program to print IP to address translation tables."
|
|
|
|
:group 'net-utils
|
2002-01-06 15:11:24 +00:00
|
|
|
:type 'string)
|
2000-03-20 13:12:14 +00:00
|
|
|
|
2000-10-04 05:43:37 +00:00
|
|
|
(defcustom arp-program-options
|
2000-03-20 13:12:14 +00:00
|
|
|
(list "-a")
|
2008-02-26 11:55:41 +00:00
|
|
|
"Options for the arp program."
|
2000-03-20 13:12:14 +00:00
|
|
|
:group 'net-utils
|
2002-01-06 15:11:24 +00:00
|
|
|
:type '(repeat string))
|
2000-03-20 13:12:14 +00:00
|
|
|
|
2000-10-04 05:43:37 +00:00
|
|
|
(defcustom route-program
|
2000-03-20 13:12:14 +00:00
|
|
|
(if (eq system-type 'windows-nt)
|
|
|
|
"route"
|
|
|
|
"netstat")
|
|
|
|
"Program to print routing tables."
|
|
|
|
:group 'net-utils
|
2002-01-06 15:11:24 +00:00
|
|
|
:type 'string)
|
2000-03-20 13:12:14 +00:00
|
|
|
|
2000-10-04 05:43:37 +00:00
|
|
|
(defcustom route-program-options
|
2000-03-20 13:12:14 +00:00
|
|
|
(if (eq system-type 'windows-nt)
|
|
|
|
(list "print")
|
|
|
|
(list "-r"))
|
2008-02-26 11:55:41 +00:00
|
|
|
"Options for the route program."
|
2000-03-20 13:12:14 +00:00
|
|
|
:group 'net-utils
|
2002-01-06 15:11:24 +00:00
|
|
|
:type '(repeat string))
|
2000-03-20 13:12:14 +00:00
|
|
|
|
2008-02-26 11:55:41 +00:00
|
|
|
(defcustom nslookup-program "nslookup"
|
2000-03-20 13:12:14 +00:00
|
|
|
"Program to interactively query DNS information."
|
|
|
|
:group 'net-utils
|
2002-01-06 15:11:24 +00:00
|
|
|
:type 'string)
|
2000-03-20 13:12:14 +00:00
|
|
|
|
2008-02-26 11:55:41 +00:00
|
|
|
(defcustom nslookup-program-options nil
|
|
|
|
"Options for the nslookup program."
|
2000-03-20 13:12:14 +00:00
|
|
|
:group 'net-utils
|
2002-01-06 15:11:24 +00:00
|
|
|
:type '(repeat string))
|
2000-03-20 13:12:14 +00:00
|
|
|
|
|
|
|
(defcustom nslookup-prompt-regexp "^> "
|
2000-10-06 04:58:36 +00:00
|
|
|
"Regexp to match the nslookup prompt.
|
|
|
|
|
|
|
|
This variable is only used if the variable
|
2005-04-26 23:15:08 +00:00
|
|
|
`comint-use-prompt-regexp' is non-nil."
|
2000-03-20 13:12:14 +00:00
|
|
|
:group 'net-utils
|
2002-01-06 15:11:24 +00:00
|
|
|
:type 'regexp)
|
2000-03-20 13:12:14 +00:00
|
|
|
|
2008-02-26 11:55:41 +00:00
|
|
|
(defcustom dig-program "dig"
|
2000-03-20 13:12:14 +00:00
|
|
|
"Program to query DNS information."
|
|
|
|
:group 'net-utils
|
2002-01-06 15:11:24 +00:00
|
|
|
:type 'string)
|
2000-03-20 13:12:14 +00:00
|
|
|
|
|
|
|
(defcustom ftp-program "ftp"
|
2008-02-26 11:55:41 +00:00
|
|
|
"Program to run to do FTP transfers."
|
2000-03-20 13:12:14 +00:00
|
|
|
:group 'net-utils
|
2002-01-06 15:11:24 +00:00
|
|
|
:type 'string)
|
2000-03-20 13:12:14 +00:00
|
|
|
|
|
|
|
(defcustom ftp-program-options nil
|
2008-02-26 11:55:41 +00:00
|
|
|
"Options for the ftp program."
|
2000-03-20 13:12:14 +00:00
|
|
|
:group 'net-utils
|
2002-01-06 15:11:24 +00:00
|
|
|
:type '(repeat string))
|
2000-03-20 13:12:14 +00:00
|
|
|
|
|
|
|
(defcustom ftp-prompt-regexp "^ftp>"
|
2000-10-06 04:58:36 +00:00
|
|
|
"Regexp which matches the FTP program's prompt.
|
|
|
|
|
|
|
|
This variable is only used if the variable
|
2005-04-26 23:15:08 +00:00
|
|
|
`comint-use-prompt-regexp' is non-nil."
|
2000-03-20 13:12:14 +00:00
|
|
|
:group 'net-utils
|
2002-01-06 15:11:24 +00:00
|
|
|
:type 'regexp)
|
2000-03-20 13:12:14 +00:00
|
|
|
|
|
|
|
(defcustom smbclient-program "smbclient"
|
|
|
|
"Smbclient program."
|
|
|
|
:group 'net-utils
|
2002-01-06 15:11:24 +00:00
|
|
|
:type 'string)
|
2000-03-20 13:12:14 +00:00
|
|
|
|
|
|
|
(defcustom smbclient-program-options nil
|
2008-02-26 11:55:41 +00:00
|
|
|
"Options for the smbclient program."
|
2000-03-20 13:12:14 +00:00
|
|
|
:group 'net-utils
|
2002-01-06 15:11:24 +00:00
|
|
|
:type '(repeat string))
|
2000-03-20 13:12:14 +00:00
|
|
|
|
|
|
|
(defcustom smbclient-prompt-regexp "^smb: \>"
|
2000-10-06 04:58:36 +00:00
|
|
|
"Regexp which matches the smbclient program's prompt.
|
|
|
|
|
|
|
|
This variable is only used if the variable
|
2005-04-26 23:15:08 +00:00
|
|
|
`comint-use-prompt-regexp' is non-nil."
|
2000-03-20 13:12:14 +00:00
|
|
|
:group 'net-utils
|
2002-01-06 15:11:24 +00:00
|
|
|
:type 'regexp)
|
2000-03-20 13:12:14 +00:00
|
|
|
|
2008-02-26 11:55:41 +00:00
|
|
|
(defcustom dns-lookup-program "host"
|
2003-03-23 13:39:14 +00:00
|
|
|
"Program to interactively query DNS information."
|
|
|
|
:group 'net-utils
|
2008-02-26 11:55:41 +00:00
|
|
|
:type 'string)
|
2003-03-23 13:39:14 +00:00
|
|
|
|
2008-02-26 11:55:41 +00:00
|
|
|
(defcustom dns-lookup-program-options nil
|
|
|
|
"Options for the dns-lookup program."
|
2003-03-23 13:39:14 +00:00
|
|
|
:group 'net-utils
|
2008-02-26 11:55:41 +00:00
|
|
|
:type '(repeat string))
|
2003-03-23 13:39:14 +00:00
|
|
|
|
2000-03-30 10:20:29 +00:00
|
|
|
;; Internal variables
|
|
|
|
(defvar network-connection-service nil)
|
|
|
|
(defvar network-connection-host nil)
|
|
|
|
|
2000-03-20 13:12:14 +00:00
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
;; Nslookup goodies
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
2009-08-08 18:26:36 +00:00
|
|
|
(defvar nslookup-font-lock-keywords
|
2008-02-26 04:31:30 +00:00
|
|
|
(list
|
|
|
|
(list "^[A-Za-z0-9 _]+:" 0 'font-lock-type-face)
|
|
|
|
(list "\\<\\(SOA\\|NS\\|MX\\|A\\|CNAME\\)\\>"
|
|
|
|
1 'font-lock-keyword-face)
|
|
|
|
;; Dotted quads
|
|
|
|
(list
|
|
|
|
(mapconcat 'identity
|
|
|
|
(make-list 4 "[0-9]+")
|
|
|
|
"\\.")
|
|
|
|
0 'font-lock-variable-name-face)
|
|
|
|
;; Host names
|
|
|
|
(list
|
|
|
|
(let ((host-expression "[-A-Za-z0-9]+"))
|
|
|
|
(concat
|
|
|
|
(mapconcat 'identity
|
|
|
|
(make-list 2 host-expression)
|
|
|
|
"\\.")
|
|
|
|
"\\(\\." host-expression "\\)*"))
|
|
|
|
0 'font-lock-variable-name-face))
|
2000-10-05 02:48:41 +00:00
|
|
|
"Expressions to font-lock for nslookup.")
|
2000-03-20 13:12:14 +00:00
|
|
|
|
2009-08-08 18:26:36 +00:00
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
;; General network utilities mode
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
|
|
|
(defvar net-utils-font-lock-keywords
|
|
|
|
(list
|
|
|
|
;; Dotted quads
|
|
|
|
(list
|
|
|
|
(mapconcat 'identity (make-list 4 "[0-9]+") "\\.")
|
|
|
|
0 'font-lock-variable-name-face)
|
|
|
|
;; Simple rfc4291 addresses
|
|
|
|
(list (concat
|
|
|
|
"\\( \\([[:xdigit:]]+\\(:\\|::\\)\\)+[[:xdigit:]]+\\)"
|
|
|
|
"\\|"
|
|
|
|
"\\(::[[:xdigit:]]+\\)")
|
|
|
|
0 'font-lock-variable-name-face)
|
|
|
|
;; Host names
|
|
|
|
(list
|
|
|
|
(let ((host-expression "[-A-Za-z0-9]+"))
|
|
|
|
(concat
|
|
|
|
(mapconcat 'identity (make-list 2 host-expression) "\\.")
|
|
|
|
"\\(\\." host-expression "\\)*"))
|
|
|
|
0 'font-lock-variable-name-face))
|
|
|
|
"Expressions to font-lock for general network utilities.")
|
|
|
|
|
|
|
|
(define-derived-mode net-utils-mode special-mode "NetworkUtil"
|
|
|
|
"Major mode for interacting with an external network utility."
|
|
|
|
(set (make-local-variable 'font-lock-defaults)
|
|
|
|
'((net-utils-font-lock-keywords))))
|
|
|
|
|
2000-03-20 13:12:14 +00:00
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
;; Utility functions
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
|
|
|
;; Simplified versions of some at-point functions from ffap.el.
|
|
|
|
;; It's not worth loading all of ffap just for these.
|
|
|
|
(defun net-utils-machine-at-point ()
|
|
|
|
(let ((pt (point)))
|
|
|
|
(buffer-substring-no-properties
|
|
|
|
(save-excursion
|
|
|
|
(skip-chars-backward "-a-zA-Z0-9.")
|
|
|
|
(point))
|
|
|
|
(save-excursion
|
|
|
|
(skip-chars-forward "-a-zA-Z0-9.")
|
|
|
|
(skip-chars-backward "." pt)
|
|
|
|
(point)))))
|
|
|
|
|
|
|
|
(defun net-utils-url-at-point ()
|
|
|
|
(let ((pt (point)))
|
|
|
|
(buffer-substring-no-properties
|
|
|
|
(save-excursion
|
|
|
|
(skip-chars-backward "--:=&?$+@-Z_a-z~#,%")
|
|
|
|
(skip-chars-forward "^A-Za-z0-9" pt)
|
|
|
|
(point))
|
|
|
|
(save-excursion
|
|
|
|
(skip-chars-forward "--:=&?$+@-Z_a-z~#,%")
|
|
|
|
(skip-chars-backward ":;.,!?" pt)
|
|
|
|
(point)))))
|
|
|
|
|
|
|
|
(defun net-utils-remove-ctrl-m-filter (process output-string)
|
|
|
|
"Remove trailing control Ms."
|
|
|
|
(let ((old-buffer (current-buffer))
|
|
|
|
(filtered-string output-string))
|
|
|
|
(unwind-protect
|
|
|
|
(let ((moving))
|
|
|
|
(set-buffer (process-buffer process))
|
2009-08-08 18:26:36 +00:00
|
|
|
(let ((inhibit-read-only t))
|
|
|
|
(setq moving (= (point) (process-mark process)))
|
|
|
|
|
|
|
|
(while (string-match "\r" filtered-string)
|
|
|
|
(setq filtered-string
|
|
|
|
(replace-match "" nil nil filtered-string)))
|
|
|
|
|
|
|
|
(save-excursion
|
|
|
|
;; Insert the text, moving the process-marker.
|
|
|
|
(goto-char (process-mark process))
|
|
|
|
(insert filtered-string)
|
|
|
|
(set-marker (process-mark process) (point))))
|
2000-03-20 13:12:14 +00:00
|
|
|
(if moving (goto-char (process-mark process))))
|
|
|
|
(set-buffer old-buffer))))
|
2000-10-04 05:43:37 +00:00
|
|
|
|
2008-03-11 10:23:09 +00:00
|
|
|
(defun net-utils-run-program (name header program args)
|
2000-03-20 13:12:14 +00:00
|
|
|
"Run a network information program."
|
2008-03-11 10:23:09 +00:00
|
|
|
(let ((buf (get-buffer-create (concat "*" name "*"))))
|
|
|
|
(set-buffer buf)
|
|
|
|
(erase-buffer)
|
|
|
|
(insert header "\n")
|
|
|
|
(set-process-filter
|
|
|
|
(apply 'start-process name buf program args)
|
|
|
|
'net-utils-remove-ctrl-m-filter)
|
|
|
|
(display-buffer buf)
|
|
|
|
buf))
|
2000-03-20 13:12:14 +00:00
|
|
|
|
2009-08-08 18:26:36 +00:00
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
;; General network utilities (diagnostic)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
|
|
|
(defun net-utils-run-simple (buffer-name program-name args)
|
|
|
|
"Run a network utility for diagnostic output only."
|
|
|
|
(interactive)
|
|
|
|
(when (get-buffer buffer-name)
|
|
|
|
(kill-buffer buffer-name))
|
|
|
|
(get-buffer-create buffer-name)
|
|
|
|
(with-current-buffer buffer-name
|
|
|
|
(net-utils-mode)
|
|
|
|
(set-process-filter
|
|
|
|
(apply 'start-process (format "%s" program-name)
|
|
|
|
buffer-name program-name args)
|
|
|
|
'net-utils-remove-ctrl-m-filter)
|
|
|
|
(goto-char (point-min)))
|
|
|
|
(display-buffer buffer-name))
|
|
|
|
|
|
|
|
;;;###autoload
|
2009-09-24 01:37:14 +00:00
|
|
|
(defun ifconfig ()
|
|
|
|
"Run ifconfig and display diagnostic output."
|
|
|
|
(interactive)
|
|
|
|
(net-utils-run-simple
|
|
|
|
(format "*%s*" ifconfig-program)
|
|
|
|
ifconfig-program
|
2009-08-08 18:26:36 +00:00
|
|
|
ifconfig-program-options))
|
|
|
|
|
|
|
|
(defalias 'ipconfig 'ifconfig)
|
|
|
|
|
|
|
|
;;;###autoload
|
2009-09-24 01:37:14 +00:00
|
|
|
(defun iwconfig ()
|
|
|
|
"Run iwconfig and display diagnostic output."
|
|
|
|
(interactive)
|
|
|
|
(net-utils-run-simple
|
|
|
|
(format "*%s*" iwconfig-program)
|
|
|
|
iwconfig-program
|
2009-08-08 18:26:36 +00:00
|
|
|
iwconfig-program-options))
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
(defun netstat ()
|
2009-09-24 01:37:14 +00:00
|
|
|
"Run netstat and display diagnostic output."
|
2009-08-08 18:26:36 +00:00
|
|
|
(interactive)
|
|
|
|
(net-utils-run-simple
|
|
|
|
(format "*%s*" netstat-program)
|
|
|
|
netstat-program
|
|
|
|
netstat-program-options))
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
(defun arp ()
|
2009-09-24 01:37:14 +00:00
|
|
|
"Run arp and display diagnostic output."
|
2009-08-08 18:26:36 +00:00
|
|
|
(interactive)
|
|
|
|
(net-utils-run-simple
|
|
|
|
(format "*%s*" arp-program)
|
|
|
|
arp-program
|
|
|
|
arp-program-options))
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
(defun route ()
|
|
|
|
"Run route and display diagnostic output."
|
|
|
|
(interactive)
|
|
|
|
(net-utils-run-simple
|
|
|
|
(format "*%s*" route-program)
|
|
|
|
route-program
|
|
|
|
route-program-options))
|
|
|
|
|
2000-03-20 13:12:14 +00:00
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
;; Wrappers for external network programs
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
(defun traceroute (target)
|
|
|
|
"Run traceroute program for TARGET."
|
|
|
|
(interactive "sTarget: ")
|
2000-10-04 05:43:37 +00:00
|
|
|
(let ((options
|
2000-03-20 13:12:14 +00:00
|
|
|
(if traceroute-program-options
|
|
|
|
(append traceroute-program-options (list target))
|
|
|
|
(list target))))
|
|
|
|
(net-utils-run-program
|
|
|
|
(concat "Traceroute" " " target)
|
|
|
|
(concat "** Traceroute ** " traceroute-program " ** " target)
|
|
|
|
traceroute-program
|
2002-01-06 15:11:24 +00:00
|
|
|
options)))
|
2000-03-20 13:12:14 +00:00
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
(defun ping (host)
|
|
|
|
"Ping HOST.
|
2000-10-04 05:43:37 +00:00
|
|
|
If your system's ping continues until interrupted, you can try setting
|
2000-03-20 13:12:14 +00:00
|
|
|
`ping-program-options'."
|
2000-10-04 05:43:37 +00:00
|
|
|
(interactive
|
2000-03-20 13:12:14 +00:00
|
|
|
(list (read-from-minibuffer "Ping host: " (net-utils-machine-at-point))))
|
2000-10-04 05:43:37 +00:00
|
|
|
(let ((options
|
2000-03-20 13:12:14 +00:00
|
|
|
(if ping-program-options
|
|
|
|
(append ping-program-options (list host))
|
|
|
|
(list host))))
|
|
|
|
(net-utils-run-program
|
|
|
|
(concat "Ping" " " host)
|
|
|
|
(concat "** Ping ** " ping-program " ** " host)
|
|
|
|
ping-program
|
2002-01-06 15:11:24 +00:00
|
|
|
options)))
|
2000-03-20 13:12:14 +00:00
|
|
|
|
|
|
|
;; FIXME -- Needs to be a process filter
|
|
|
|
;; (defun netstat-with-filter (filter)
|
|
|
|
;; "Run netstat program."
|
|
|
|
;; (interactive "sFilter: ")
|
|
|
|
;; (netstat)
|
|
|
|
;; (set-buffer (get-buffer "*Netstat*"))
|
|
|
|
;; (goto-char (point-min))
|
2002-01-06 15:11:24 +00:00
|
|
|
;; (delete-matching-lines filter))
|
2000-03-20 13:12:14 +00:00
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
(defun nslookup-host (host)
|
|
|
|
"Lookup the DNS information for HOST."
|
|
|
|
(interactive
|
|
|
|
(list (read-from-minibuffer "Lookup host: " (net-utils-machine-at-point))))
|
2000-10-04 05:43:37 +00:00
|
|
|
(let ((options
|
2000-03-20 13:12:14 +00:00
|
|
|
(if nslookup-program-options
|
|
|
|
(append nslookup-program-options (list host))
|
|
|
|
(list host))))
|
|
|
|
(net-utils-run-program
|
|
|
|
"Nslookup"
|
|
|
|
(concat "** "
|
|
|
|
(mapconcat 'identity
|
|
|
|
(list "Nslookup" host nslookup-program)
|
|
|
|
" ** "))
|
|
|
|
nslookup-program
|
2002-01-06 15:11:24 +00:00
|
|
|
options)))
|
2000-03-20 13:12:14 +00:00
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
(defun nslookup ()
|
|
|
|
"Run nslookup program."
|
|
|
|
(interactive)
|
2009-09-01 03:14:20 +00:00
|
|
|
(switch-to-buffer (make-comint "nslookup" nslookup-program))
|
2002-01-06 15:11:24 +00:00
|
|
|
(nslookup-mode))
|
2000-03-20 13:12:14 +00:00
|
|
|
|
2008-02-26 04:31:30 +00:00
|
|
|
(defvar comint-prompt-regexp)
|
|
|
|
(defvar comint-input-autoexpand)
|
|
|
|
|
|
|
|
(autoload 'comint-mode "comint" nil t)
|
|
|
|
|
Move keymap initialization into declaration.
* lisp/textmodes/enriched.el (enriched-mode-map):
* lisp/textmodes/bib-mode.el (bib-mode-map):
* lisp/term/lk201.el (lk201-function-map):
* lisp/tar-mode.el (tar-mode-map):
* lisp/replace.el (occur-mode-map):
* lisp/progmodes/idlwave.el (idlwave-rinfo-mouse-map, idlwave-rinfo-map):
* lisp/progmodes/idlw-help.el (idlwave-help-mode-map):
* lisp/progmodes/gdb-mi.el (gdb-memory-format-menu, gdb-memory-unit-menu):
* lisp/play/solitaire.el (solitaire-mode-map):
* lisp/play/snake.el (snake-mode-map, snake-null-map):
* lisp/play/pong.el (pong-mode-map):
* lisp/play/handwrite.el (menu-bar-handwrite-map):
* lisp/play/gametree.el (gametree-mode-map):
* lisp/net/rcirc.el (rcirc-mode-map, rcirc-browse-url-map
(rcirc-multiline-minor-mode-map, rcirc-track-minor-mode-map):
* lisp/net/newst-plainview.el (newsticker-menu, newsticker-mode-map)
(newsticker--url-keymap):
* lisp/net/net-utils.el (nslookup-mode-map, ftp-mode-map):
* lisp/menu-bar.el (menu-bar-file-menu, menu-bar-i-search-menu)
(menu-bar-search-menu, menu-bar-replace-menu, menu-bar-goto-menu)
(menu-bar-edit-menu, menu-bar-custom-menu)
(menu-bar-showhide-fringe-ind-menu, menu-bar-showhide-fringe-menu)
(menu-bar-showhide-scroll-bar-menu, menu-bar-showhide-menu)
(menu-bar-line-wrapping-menu, menu-bar-options-menu)
(menu-bar-games-menu, menu-bar-encryption-decryption-menu)
(menu-bar-tools-menu, menu-bar-describe-menu)
(menu-bar-search-documentation-menu, menu-bar-manuals-menu)
(menu-bar-help-menu):
* lisp/mail/rmailsum.el (rmail-summary-mode-map):
* lisp/kmacro.el (kmacro-step-edit-map):
* lisp/ibuffer.el (ibuffer-mode-groups-popup, ibuffer-mode-map)
(ibuffer-mode-operate-map):
* lisp/hi-lock.el (hi-lock-menu, hi-lock-map):
* lisp/emulation/vip.el (vip-mode-map):
* lisp/emacs-lisp/re-builder.el (reb-lisp-mode-map):
* lisp/bookmark.el (bookmark-bmenu-mode-map):
* lisp/help-mode.el (help-mode-map):
* lisp/erc/erc-list.el (erc-list-menu-mode-map):
* lisp/org/org-remember.el (org-remember-mode-map):
* lisp/org/org-src.el (org-src-mode-map): Move initialization into declaration.
2011-02-10 16:56:00 +00:00
|
|
|
(defvar nslookup-mode-map
|
|
|
|
(let ((map (make-sparse-keymap)))
|
|
|
|
(define-key map "\t" 'comint-dynamic-complete)
|
|
|
|
map))
|
|
|
|
|
2000-03-20 13:12:14 +00:00
|
|
|
;; Using a derived mode gives us keymaps, hooks, etc.
|
2000-10-06 04:58:36 +00:00
|
|
|
(define-derived-mode nslookup-mode comint-mode "Nslookup"
|
2000-03-20 13:12:14 +00:00
|
|
|
"Major mode for interacting with the nslookup program."
|
2000-10-04 05:43:37 +00:00
|
|
|
(set
|
2000-03-20 13:12:14 +00:00
|
|
|
(make-local-variable 'font-lock-defaults)
|
|
|
|
'((nslookup-font-lock-keywords)))
|
|
|
|
(setq comint-prompt-regexp nslookup-prompt-regexp)
|
2002-01-06 15:11:24 +00:00
|
|
|
(setq comint-input-autoexpand t))
|
2000-03-20 13:12:14 +00:00
|
|
|
|
2003-03-23 13:39:14 +00:00
|
|
|
;;;###autoload
|
|
|
|
(defun dns-lookup-host (host)
|
|
|
|
"Lookup the DNS information for HOST (name or IP address)."
|
|
|
|
(interactive
|
|
|
|
(list (read-from-minibuffer "Lookup host: " (net-utils-machine-at-point))))
|
|
|
|
(let ((options
|
|
|
|
(if dns-lookup-program-options
|
|
|
|
(append dns-lookup-program-options (list host))
|
|
|
|
(list host))))
|
|
|
|
(net-utils-run-program
|
|
|
|
(concat "DNS Lookup [" host "]")
|
|
|
|
(concat "** "
|
|
|
|
(mapconcat 'identity
|
|
|
|
(list "DNS Lookup" host dns-lookup-program)
|
|
|
|
" ** "))
|
|
|
|
dns-lookup-program
|
2008-02-26 04:31:30 +00:00
|
|
|
options)))
|
|
|
|
|
|
|
|
(autoload 'ffap-string-at-point "ffap")
|
2003-03-23 13:39:14 +00:00
|
|
|
|
2000-03-20 13:12:14 +00:00
|
|
|
;;;###autoload
|
2005-08-09 02:56:45 +00:00
|
|
|
(defun run-dig (host)
|
2000-03-20 13:12:14 +00:00
|
|
|
"Run dig program."
|
|
|
|
(interactive
|
|
|
|
(list
|
2008-02-26 04:31:30 +00:00
|
|
|
(read-from-minibuffer "Lookup host: "
|
|
|
|
(or (ffap-string-at-point 'machine) ""))))
|
2000-03-20 13:12:14 +00:00
|
|
|
(net-utils-run-program
|
|
|
|
"Dig"
|
|
|
|
(concat "** "
|
|
|
|
(mapconcat 'identity
|
|
|
|
(list "Dig" host dig-program)
|
|
|
|
" ** "))
|
|
|
|
dig-program
|
2002-01-06 15:11:24 +00:00
|
|
|
(list host)))
|
2000-03-20 13:12:14 +00:00
|
|
|
|
2008-02-26 04:31:30 +00:00
|
|
|
(autoload 'comint-exec "comint")
|
|
|
|
|
2000-03-20 13:12:14 +00:00
|
|
|
;; This is a lot less than ange-ftp, but much simpler.
|
|
|
|
;;;###autoload
|
|
|
|
(defun ftp (host)
|
|
|
|
"Run ftp program."
|
2000-10-04 05:43:37 +00:00
|
|
|
(interactive
|
2000-03-20 13:12:14 +00:00
|
|
|
(list
|
2000-10-04 05:43:37 +00:00
|
|
|
(read-from-minibuffer
|
2000-03-20 13:12:14 +00:00
|
|
|
"Ftp to Host: " (net-utils-machine-at-point))))
|
|
|
|
(let ((buf (get-buffer-create (concat "*ftp [" host "]*"))))
|
|
|
|
(set-buffer buf)
|
2000-10-06 04:58:36 +00:00
|
|
|
(ftp-mode)
|
2000-03-20 13:12:14 +00:00
|
|
|
(comint-exec buf (concat "ftp-" host) ftp-program nil
|
|
|
|
(if ftp-program-options
|
|
|
|
(append (list host) ftp-program-options)
|
|
|
|
(list host)))
|
2000-10-06 04:58:36 +00:00
|
|
|
(pop-to-buffer buf)))
|
2000-03-20 13:12:14 +00:00
|
|
|
|
Move keymap initialization into declaration.
* lisp/textmodes/enriched.el (enriched-mode-map):
* lisp/textmodes/bib-mode.el (bib-mode-map):
* lisp/term/lk201.el (lk201-function-map):
* lisp/tar-mode.el (tar-mode-map):
* lisp/replace.el (occur-mode-map):
* lisp/progmodes/idlwave.el (idlwave-rinfo-mouse-map, idlwave-rinfo-map):
* lisp/progmodes/idlw-help.el (idlwave-help-mode-map):
* lisp/progmodes/gdb-mi.el (gdb-memory-format-menu, gdb-memory-unit-menu):
* lisp/play/solitaire.el (solitaire-mode-map):
* lisp/play/snake.el (snake-mode-map, snake-null-map):
* lisp/play/pong.el (pong-mode-map):
* lisp/play/handwrite.el (menu-bar-handwrite-map):
* lisp/play/gametree.el (gametree-mode-map):
* lisp/net/rcirc.el (rcirc-mode-map, rcirc-browse-url-map
(rcirc-multiline-minor-mode-map, rcirc-track-minor-mode-map):
* lisp/net/newst-plainview.el (newsticker-menu, newsticker-mode-map)
(newsticker--url-keymap):
* lisp/net/net-utils.el (nslookup-mode-map, ftp-mode-map):
* lisp/menu-bar.el (menu-bar-file-menu, menu-bar-i-search-menu)
(menu-bar-search-menu, menu-bar-replace-menu, menu-bar-goto-menu)
(menu-bar-edit-menu, menu-bar-custom-menu)
(menu-bar-showhide-fringe-ind-menu, menu-bar-showhide-fringe-menu)
(menu-bar-showhide-scroll-bar-menu, menu-bar-showhide-menu)
(menu-bar-line-wrapping-menu, menu-bar-options-menu)
(menu-bar-games-menu, menu-bar-encryption-decryption-menu)
(menu-bar-tools-menu, menu-bar-describe-menu)
(menu-bar-search-documentation-menu, menu-bar-manuals-menu)
(menu-bar-help-menu):
* lisp/mail/rmailsum.el (rmail-summary-mode-map):
* lisp/kmacro.el (kmacro-step-edit-map):
* lisp/ibuffer.el (ibuffer-mode-groups-popup, ibuffer-mode-map)
(ibuffer-mode-operate-map):
* lisp/hi-lock.el (hi-lock-menu, hi-lock-map):
* lisp/emulation/vip.el (vip-mode-map):
* lisp/emacs-lisp/re-builder.el (reb-lisp-mode-map):
* lisp/bookmark.el (bookmark-bmenu-mode-map):
* lisp/help-mode.el (help-mode-map):
* lisp/erc/erc-list.el (erc-list-menu-mode-map):
* lisp/org/org-remember.el (org-remember-mode-map):
* lisp/org/org-src.el (org-src-mode-map): Move initialization into declaration.
2011-02-10 16:56:00 +00:00
|
|
|
(defvar ftp-mode-map
|
|
|
|
(let ((map (make-sparse-keymap)))
|
|
|
|
;; Occasionally useful
|
|
|
|
(define-key map "\t" 'comint-dynamic-complete)
|
|
|
|
map))
|
|
|
|
|
2000-10-06 04:58:36 +00:00
|
|
|
(define-derived-mode ftp-mode comint-mode "FTP"
|
2000-03-20 13:12:14 +00:00
|
|
|
"Major mode for interacting with the ftp program."
|
|
|
|
(setq comint-prompt-regexp ftp-prompt-regexp)
|
|
|
|
(setq comint-input-autoexpand t)
|
2000-10-06 04:58:36 +00:00
|
|
|
;; Only add the password-prompting hook if it's not already in the
|
|
|
|
;; global hook list. This stands a small chance of losing, if it's
|
|
|
|
;; later removed from the global list (very small, since any
|
|
|
|
;; password prompts will probably immediately follow the initial
|
|
|
|
;; connection), but it's better than getting prompted twice for the
|
|
|
|
;; same password.
|
|
|
|
(unless (memq 'comint-watch-for-password-prompt
|
|
|
|
(default-value 'comint-output-filter-functions))
|
|
|
|
(add-hook 'comint-output-filter-functions 'comint-watch-for-password-prompt
|
2002-01-06 15:11:24 +00:00
|
|
|
nil t)))
|
2000-03-20 13:12:14 +00:00
|
|
|
|
|
|
|
(defun smbclient (host service)
|
|
|
|
"Connect to SERVICE on HOST via SMB."
|
2000-10-04 05:43:37 +00:00
|
|
|
(interactive
|
2000-03-20 13:12:14 +00:00
|
|
|
(list
|
2000-10-04 05:43:37 +00:00
|
|
|
(read-from-minibuffer
|
2000-03-20 13:12:14 +00:00
|
|
|
"Connect to Host: " (net-utils-machine-at-point))
|
|
|
|
(read-from-minibuffer "SMB Service: ")))
|
|
|
|
(let* ((name (format "smbclient [%s\\%s]" host service))
|
|
|
|
(buf (get-buffer-create (concat "*" name "*")))
|
|
|
|
(service-name (concat "\\\\" host "\\" service)))
|
|
|
|
(set-buffer buf)
|
2000-10-06 04:58:36 +00:00
|
|
|
(smbclient-mode)
|
2000-03-20 13:12:14 +00:00
|
|
|
(comint-exec buf name smbclient-program nil
|
|
|
|
(if smbclient-program-options
|
|
|
|
(append (list service-name) smbclient-program-options)
|
|
|
|
(list service-name)))
|
2000-10-06 04:58:36 +00:00
|
|
|
(pop-to-buffer buf)))
|
2000-03-20 13:12:14 +00:00
|
|
|
|
|
|
|
(defun smbclient-list-shares (host)
|
|
|
|
"List services on HOST."
|
2000-10-04 05:43:37 +00:00
|
|
|
(interactive
|
2000-03-20 13:12:14 +00:00
|
|
|
(list
|
2000-10-04 05:43:37 +00:00
|
|
|
(read-from-minibuffer
|
2002-01-06 15:11:24 +00:00
|
|
|
"Connect to Host: " (net-utils-machine-at-point))))
|
2000-03-20 13:12:14 +00:00
|
|
|
(let ((buf (get-buffer-create (format "*SMB Shares on %s*" host))))
|
|
|
|
(set-buffer buf)
|
|
|
|
(smbclient-mode)
|
2000-10-06 04:58:36 +00:00
|
|
|
(comint-exec buf "smbclient-list-shares"
|
|
|
|
smbclient-program nil (list "-L" host))
|
|
|
|
(pop-to-buffer buf)))
|
2000-10-04 05:43:37 +00:00
|
|
|
|
2000-10-06 04:58:36 +00:00
|
|
|
(define-derived-mode smbclient-mode comint-mode "smbclient"
|
2000-03-20 13:12:14 +00:00
|
|
|
"Major mode for interacting with the smbclient program."
|
|
|
|
(setq comint-prompt-regexp smbclient-prompt-regexp)
|
|
|
|
(setq comint-input-autoexpand t)
|
2000-10-06 04:58:36 +00:00
|
|
|
;; Only add the password-prompting hook if it's not already in the
|
|
|
|
;; global hook list. This stands a small chance of losing, if it's
|
|
|
|
;; later removed from the global list (very small, since any
|
|
|
|
;; password prompts will probably immediately follow the initial
|
|
|
|
;; connection), but it's better than getting prompted twice for the
|
|
|
|
;; same password.
|
|
|
|
(unless (memq 'comint-watch-for-password-prompt
|
|
|
|
(default-value 'comint-output-filter-functions))
|
|
|
|
(add-hook 'comint-output-filter-functions 'comint-watch-for-password-prompt
|
2002-01-06 15:11:24 +00:00
|
|
|
nil t)))
|
2000-03-20 13:12:14 +00:00
|
|
|
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
;; Network Connections
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
|
|
|
;; Full list is available at:
|
2004-09-20 15:47:41 +00:00
|
|
|
;; http://www.iana.org/assignments/port-numbers
|
2000-10-04 05:43:37 +00:00
|
|
|
(defvar network-connection-service-alist
|
2000-03-20 13:12:14 +00:00
|
|
|
(list
|
|
|
|
(cons 'echo 7)
|
|
|
|
(cons 'active-users 11)
|
|
|
|
(cons 'daytime 13)
|
|
|
|
(cons 'chargen 19)
|
|
|
|
(cons 'ftp 21)
|
|
|
|
(cons 'telnet 23)
|
|
|
|
(cons 'smtp 25)
|
|
|
|
(cons 'time 37)
|
|
|
|
(cons 'whois 43)
|
|
|
|
(cons 'gopher 70)
|
|
|
|
(cons 'finger 79)
|
|
|
|
(cons 'www 80)
|
|
|
|
(cons 'pop2 109)
|
|
|
|
(cons 'pop3 110)
|
|
|
|
(cons 'sun-rpc 111)
|
|
|
|
(cons 'nntp 119)
|
|
|
|
(cons 'ntp 123)
|
|
|
|
(cons 'netbios-name 137)
|
|
|
|
(cons 'netbios-data 139)
|
|
|
|
(cons 'irc 194)
|
|
|
|
(cons 'https 443)
|
2002-01-06 15:11:24 +00:00
|
|
|
(cons 'rlogin 513))
|
2000-03-20 13:12:14 +00:00
|
|
|
"Alist of services and associated TCP port numbers.
|
2001-11-19 06:24:36 +00:00
|
|
|
This list is not complete.")
|
|
|
|
|
2008-03-11 10:23:09 +00:00
|
|
|
;; Workhorse routine
|
|
|
|
(defun run-network-program (process-name host port &optional initial-string)
|
|
|
|
(let ((tcp-connection)
|
|
|
|
(buf))
|
|
|
|
(setq buf (get-buffer-create (concat "*" process-name "*")))
|
2000-03-20 13:12:14 +00:00
|
|
|
(set-buffer buf)
|
2000-10-04 05:43:37 +00:00
|
|
|
(or
|
2000-03-20 13:12:14 +00:00
|
|
|
(setq tcp-connection
|
2008-03-11 10:23:09 +00:00
|
|
|
(open-network-stream process-name buf host port))
|
|
|
|
(error "Could not open connection to %s" host))
|
2000-03-20 13:12:14 +00:00
|
|
|
(erase-buffer)
|
|
|
|
(set-marker (process-mark tcp-connection) (point-min))
|
|
|
|
(set-process-filter tcp-connection 'net-utils-remove-ctrl-m-filter)
|
2008-03-11 10:23:09 +00:00
|
|
|
(and initial-string
|
2000-10-04 05:43:37 +00:00
|
|
|
(process-send-string tcp-connection
|
2008-03-11 10:23:09 +00:00
|
|
|
(concat initial-string "\r\n")))
|
2000-03-20 13:12:14 +00:00
|
|
|
(display-buffer buf)))
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
;; Simple protocols
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
2000-05-30 20:02:22 +00:00
|
|
|
(defcustom finger-X.500-host-regexps nil
|
|
|
|
"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."
|
|
|
|
:group 'net-utils
|
|
|
|
:type '(repeat regexp)
|
|
|
|
:version "21.1")
|
|
|
|
|
2000-03-20 13:12:14 +00:00
|
|
|
;; Finger protocol
|
|
|
|
;;;###autoload
|
|
|
|
(defun finger (user host)
|
|
|
|
"Finger USER on HOST."
|
|
|
|
;; One of those great interactive statements that's actually
|
|
|
|
;; longer than the function call! The idea is that if the user
|
|
|
|
;; uses a string like "pbreton@cs.umb.edu", we won't ask for the
|
|
|
|
;; host name. If we don't see an "@", we'll prompt for the host.
|
|
|
|
(interactive
|
|
|
|
(let* ((answer (read-from-minibuffer "Finger User: "
|
|
|
|
(net-utils-url-at-point)))
|
|
|
|
(index (string-match (regexp-quote "@") answer)))
|
|
|
|
(if index
|
2000-05-30 20:02:22 +00:00
|
|
|
(list (substring answer 0 index)
|
|
|
|
(substring answer (1+ index)))
|
|
|
|
(list answer
|
|
|
|
(read-from-minibuffer "At Host: "
|
|
|
|
(net-utils-machine-at-point))))))
|
|
|
|
(let* ((user-and-host (concat user "@" host))
|
|
|
|
(process-name (concat "Finger [" user-and-host "]"))
|
|
|
|
(regexps finger-X.500-host-regexps)
|
|
|
|
found)
|
2003-03-23 13:39:14 +00:00
|
|
|
(and regexps
|
|
|
|
(while (not (string-match (car regexps) host))
|
|
|
|
(setq regexps (cdr regexps)))
|
|
|
|
(when regexps
|
|
|
|
(setq user-and-host user)))
|
2000-10-04 05:43:37 +00:00
|
|
|
(run-network-program
|
|
|
|
process-name
|
|
|
|
host
|
2000-03-20 13:12:14 +00:00
|
|
|
(cdr (assoc 'finger network-connection-service-alist))
|
2000-05-30 20:02:22 +00:00
|
|
|
user-and-host)))
|
2000-03-20 13:12:14 +00:00
|
|
|
|
|
|
|
(defcustom whois-server-name "rs.internic.net"
|
|
|
|
"Default host name for the whois service."
|
|
|
|
:group 'net-utils
|
2002-01-06 15:11:24 +00:00
|
|
|
:type 'string)
|
2000-03-20 13:12:14 +00:00
|
|
|
|
|
|
|
(defcustom whois-server-list
|
|
|
|
'(("whois.arin.net") ; Networks, ASN's, and related POC's (numbers)
|
|
|
|
("rs.internic.net") ; domain related info
|
2007-02-26 17:43:11 +00:00
|
|
|
("whois.publicinterestregistry.net")
|
2000-03-20 13:12:14 +00:00
|
|
|
("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."
|
|
|
|
:group 'net-utils
|
|
|
|
:type '(repeat (list string)))
|
|
|
|
|
2007-02-26 17:43:11 +00:00
|
|
|
;; FIXME: modern whois clients include a much better tld <-> whois server
|
|
|
|
;; list, Emacs should probably avoid specifying the server as the client
|
|
|
|
;; will DTRT anyway... -rfr
|
2000-03-20 13:12:14 +00:00
|
|
|
(defcustom whois-server-tld
|
|
|
|
'(("rs.internic.net" . "com")
|
2007-02-26 17:43:11 +00:00
|
|
|
("whois.publicinterestregistry.net" . "org")
|
2000-03-20 13:12:14 +00:00
|
|
|
("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."
|
|
|
|
:group 'net-utils
|
|
|
|
:type '(repeat (cons string string)))
|
|
|
|
|
|
|
|
(defcustom whois-guess-server t
|
|
|
|
"If non-nil then whois will try to deduce the appropriate whois
|
|
|
|
server from the query. If the query doesn't look like a domain or hostname
|
2007-02-26 17:43:11 +00:00
|
|
|
then the server named by `whois-server-name' is used."
|
2000-03-20 13:12:14 +00:00
|
|
|
:group 'net-utils
|
|
|
|
:type 'boolean)
|
|
|
|
|
|
|
|
(defun whois-get-tld (host)
|
|
|
|
"Return the top level domain of `host', or nil if it isn't a domain name."
|
|
|
|
(let ((i (1- (length host)))
|
|
|
|
(max-len (- (length host) 5)))
|
|
|
|
(while (not (or (= i max-len) (char-equal (aref host i) ?.)))
|
|
|
|
(setq i (1- i)))
|
|
|
|
(if (= i max-len)
|
|
|
|
nil
|
|
|
|
(substring host (1+ i)))))
|
|
|
|
|
|
|
|
;; Whois protocol
|
|
|
|
;;;###autoload
|
|
|
|
(defun whois (arg search-string)
|
|
|
|
"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."
|
|
|
|
(interactive "P\nsWhois: ")
|
|
|
|
(let* ((whois-apropos-host (if whois-guess-server
|
|
|
|
(rassoc (whois-get-tld search-string)
|
|
|
|
whois-server-tld)
|
|
|
|
nil))
|
|
|
|
(server-name (if whois-apropos-host
|
|
|
|
(car whois-apropos-host)
|
|
|
|
whois-server-name))
|
|
|
|
(host
|
|
|
|
(if arg
|
|
|
|
(completing-read "Whois server name: "
|
|
|
|
whois-server-list nil nil "whois.")
|
|
|
|
server-name)))
|
2000-10-04 05:43:37 +00:00
|
|
|
(run-network-program
|
2000-03-20 13:12:14 +00:00
|
|
|
"Whois"
|
|
|
|
host
|
|
|
|
(cdr (assoc 'whois network-connection-service-alist))
|
2002-01-06 15:11:24 +00:00
|
|
|
search-string)))
|
2000-03-20 13:12:14 +00:00
|
|
|
|
|
|
|
(defcustom whois-reverse-lookup-server "whois.arin.net"
|
|
|
|
"Server which provides inverse DNS mapping."
|
|
|
|
:group 'net-utils
|
2002-01-06 15:11:24 +00:00
|
|
|
:type 'string)
|
2000-03-20 13:12:14 +00:00
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
(defun whois-reverse-lookup ()
|
|
|
|
(interactive)
|
|
|
|
(let ((whois-server-name whois-reverse-lookup-server))
|
|
|
|
(call-interactively 'whois)))
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
;;; General Network connection
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
2000-03-30 10:20:29 +00:00
|
|
|
;; Using a derived mode gives us keymaps, hooks, etc.
|
2000-10-04 05:43:37 +00:00
|
|
|
(define-derived-mode
|
2000-03-30 10:20:29 +00:00
|
|
|
network-connection-mode comint-mode "Network-Connection"
|
2002-01-06 15:11:24 +00:00
|
|
|
"Major mode for interacting with the network-connection program.")
|
2000-03-30 10:20:29 +00:00
|
|
|
|
|
|
|
(defun network-connection-mode-setup (host service)
|
2001-12-24 20:18:36 +00:00
|
|
|
(make-local-variable 'network-connection-host)
|
|
|
|
(setq network-connection-host host)
|
|
|
|
(make-local-variable 'network-connection-service)
|
2001-12-25 10:43:25 +00:00
|
|
|
(setq network-connection-service service))
|
2000-03-30 10:20:29 +00:00
|
|
|
|
2000-03-20 13:12:14 +00:00
|
|
|
;;;###autoload
|
|
|
|
(defun network-connection-to-service (host service)
|
|
|
|
"Open a network connection to SERVICE on HOST."
|
2000-10-04 05:43:37 +00:00
|
|
|
(interactive
|
2000-03-20 13:12:14 +00:00
|
|
|
(list
|
|
|
|
(read-from-minibuffer "Host: " (net-utils-machine-at-point))
|
2000-10-04 05:43:37 +00:00
|
|
|
(completing-read "Service: "
|
|
|
|
(mapcar
|
|
|
|
(function
|
2000-03-20 13:12:14 +00:00
|
|
|
(lambda (elt)
|
|
|
|
(list (symbol-name (car elt)))))
|
|
|
|
network-connection-service-alist))))
|
2000-10-04 05:43:37 +00:00
|
|
|
(network-connection
|
|
|
|
host
|
2002-01-06 15:11:24 +00:00
|
|
|
(cdr (assoc (intern service) network-connection-service-alist))))
|
2000-03-20 13:12:14 +00:00
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
(defun network-connection (host port)
|
|
|
|
"Open a network connection to HOST on PORT."
|
|
|
|
(interactive "sHost: \nnPort: ")
|
|
|
|
(network-service-connection host (number-to-string port)))
|
|
|
|
|
|
|
|
(defun network-service-connection (host service)
|
|
|
|
"Open a network connection to SERVICE on HOST."
|
2002-01-06 15:11:24 +00:00
|
|
|
(let* ((process-name (concat "Network Connection [" host " " service "]"))
|
|
|
|
(portnum (string-to-number service))
|
|
|
|
(buf (get-buffer-create (concat "*" process-name "*"))))
|
2000-03-20 13:12:14 +00:00
|
|
|
(or (zerop portnum) (setq service portnum))
|
2000-10-04 05:43:37 +00:00
|
|
|
(make-comint
|
2000-03-20 13:12:14 +00:00
|
|
|
process-name
|
|
|
|
(cons host service))
|
2000-03-30 10:20:29 +00:00
|
|
|
(set-buffer buf)
|
|
|
|
(network-connection-mode)
|
|
|
|
(network-connection-mode-setup host service)
|
2002-01-06 15:11:24 +00:00
|
|
|
(pop-to-buffer buf)))
|
2000-03-20 13:12:14 +00:00
|
|
|
|
2008-02-26 04:31:30 +00:00
|
|
|
(defvar comint-input-ring)
|
|
|
|
|
2000-10-04 05:43:37 +00:00
|
|
|
(defun network-connection-reconnect ()
|
|
|
|
"Reconnect a network connection, preserving the old input ring."
|
|
|
|
(interactive)
|
|
|
|
(let ((proc (get-buffer-process (current-buffer)))
|
|
|
|
(old-comint-input-ring comint-input-ring)
|
|
|
|
(host network-connection-host)
|
2002-01-06 15:11:24 +00:00
|
|
|
(service network-connection-service))
|
2000-10-04 05:43:37 +00:00
|
|
|
(if (not (or (not proc)
|
|
|
|
(eq (process-status proc) 'closed)))
|
|
|
|
(message "Still connected")
|
|
|
|
(goto-char (point-max))
|
|
|
|
(insert (format "Reopening connection to %s\n" host))
|
|
|
|
(network-connection host
|
2002-01-06 15:11:24 +00:00
|
|
|
(if (numberp service)
|
|
|
|
service
|
|
|
|
(cdr (assoc service network-connection-service-alist))))
|
2000-10-04 05:43:37 +00:00
|
|
|
(and old-comint-input-ring
|
2002-01-06 15:11:24 +00:00
|
|
|
(setq comint-input-ring old-comint-input-ring)))))
|
2000-10-04 05:43:37 +00:00
|
|
|
|
2000-03-20 13:12:14 +00:00
|
|
|
(provide 'net-utils)
|
|
|
|
|
|
|
|
;;; net-utils.el ends here
|