procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Extend DNS lookup commands to allow specifying the name server

Browse source 
* lisp/net/net-utils.el (ffap-string-at-point): Removed due to
'net-utils-machine-at-point' obviating this autoloaded
function (Bug#25426).
(dig-program-options): New customization variable.
(nslookup-host, dns-lookup-host, run-dig): Can now specify
optional name server argument interactively (by prefix arg) and
non-interactively.

* etc/NEWS: Mention the extension of DNS lookup commands.
This commit is contained in:
Andrew Robbins 2017-05-12 11:19:46 +03:00 • committed by Eli Zaretskii
parent d9592104c8
commit a1b6981514
2 changed files with 48 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
etc/NEWS
View file

@ -338,6 +338,12 @@ want to reverse the direction of the scroll, customize
** Emacsclient has a new option -u/--suppress-output. The option
suppresses display of return values from the server process.
---
** New user option 'dig-program-options' and extended functionality
for DNS-querying functions 'nslookup-host', 'dns-lookup-host',
and 'run-dig'. Each function now accepts an optional name server
argument interactively (with a prefix argument) and non-interactively.
* Editing Changes in Emacs 26.1

63
lisp/net/net-utils.el
View file

@ -199,6 +199,12 @@ This variable is only used if the variable
:group 'net-utils
:type 'string)
(defcustom dig-program-options nil
"Options for the dig program."
:group 'net-utils
:type '(repeat string)
:version "26.1")
(defcustom ftp-program "ftp"
"Program to run to do FTP transfers."
:group 'net-utils
@ -507,14 +513,19 @@ If your system's ping continues until interrupted, you can try setting
;; (delete-matching-lines filter))
;;;###autoload
(defun nslookup-host (host)
"Lookup the DNS information for HOST."
(defun nslookup-host (host &optional name-server)
"Look up the DNS information for HOST (name or IP address).
Optional argument NAME-SERVER says which server to use for
DNS resolution.
Interactively, prompt for NAME-SERVER if invoked with prefix argument.
This command uses `nslookup-program' for looking up the DNS information."
(interactive
(list (read-from-minibuffer "Lookup host: " (net-utils-machine-at-point))))
(list (read-from-minibuffer "Lookup host: " (net-utils-machine-at-point))
(if current-prefix-arg (read-from-minibuffer "Name server: "))))
(let ((options
(if nslookup-program-options
(append nslookup-program-options (list host))
(list host))))
(append nslookup-program-options (list host)
(if name-server (list name-server)))))
(net-utils-run-program
"Nslookup"
(concat "** "
@ -551,14 +562,19 @@ If your system's ping continues until interrupted, you can try setting
(setq comint-input-autoexpand t))
;;;###autoload
(defun dns-lookup-host (host)
"Lookup the DNS information for HOST (name or IP address)."
(defun dns-lookup-host (host &optional name-server)
"Look up the DNS information for HOST (name or IP address).
Optional argument NAME-SERVER says which server to use for
DNS resolution.
Interactively, prompt for NAME-SERVER if invoked with prefix argument.
This command uses `dns-lookup-program' for looking up the DNS information."
(interactive
(list (read-from-minibuffer "Lookup host: " (net-utils-machine-at-point))))
(list (read-from-minibuffer "Lookup host: " (net-utils-machine-at-point))
(if current-prefix-arg (read-from-minibuffer "Name server: "))))
(let ((options
(if dns-lookup-program-options
(append dns-lookup-program-options (list host))
(list host))))
(append dns-lookup-program-options (list host)
(if name-server (list name-server)))))
(net-utils-run-program
(concat "DNS Lookup [" host "]")
(concat "** "
@ -568,15 +584,20 @@ If your system's ping continues until interrupted, you can try setting
dns-lookup-program
options)))
(autoload 'ffap-string-at-point "ffap")
;;;###autoload
(defun run-dig (host)
"Run dig program."
(defun run-dig (host &optional name-server)
"Look up DNS information for HOST (name or IP address).
Optional argument NAME-SERVER says which server to use for
DNS resolution.
Interactively, prompt for NAME-SERVER if invoked with prefix argument.
This command uses `dig-program' for looking up the DNS information."
(interactive
(list
(read-from-minibuffer "Lookup host: "
(or (ffap-string-at-point 'machine) ""))))
(list (read-from-minibuffer "Lookup host: " (net-utils-machine-at-point))
(if current-prefix-arg (read-from-minibuffer "Name server: "))))
(let ((options
(append dig-program-options (list host)
(if name-server (list (concat "@" name-server))))))
(net-utils-run-program
"Dig"
(concat "** "
@ -584,14 +605,14 @@ If your system's ping continues until interrupted, you can try setting
(list "Dig" host dig-program)
" ** "))
dig-program
(list host)))
options)))
(autoload 'comint-exec "comint")
;; This is a lot less than ange-ftp, but much simpler.
;;;###autoload
(defun ftp (host)
"Run ftp program."
"Run `ftp program."
(interactive
(list
(read-from-minibuffer