Lines Matching defs:dig
0 ;;; dig.el --- Domain Name System dig interface
7 ;; Keywords: DNS BIND dig
28 ;; This provide an interface for "dig".
30 ;; For interactive use, try M-x dig and type a hostname. Use `q' to quit
31 ;; dig buffer.
33 ;; For use in elisp programs, call `dig-invoke' and use
34 ;; `dig-extract-rr' to extract resource records.
44 (defgroup dig nil
48 (defcustom dig-program "dig"
49 "Name of dig (domain information groper) binary."
51 :group 'dig)
53 (defcustom dig-dns-server nil
58 :group 'dig)
60 (defcustom dig-font-lock-keywords
65 "Default expressions to highlight in dig mode."
67 :group 'dig)
69 (defun dig-invoke (domain &optional
71 dig-option server)
72 "Call dig with given arguments and return buffer containing output.
75 QUERY-OPTION is an optional string with dig \"query options\".
76 DIG-OPTIONS is an optional string with parameters for the dig program.
82 (setq buf (generate-new-buffer "*dig output*"))
83 (if dig-option (push dig-option cmdline))
89 (if dig-dns-server (push (concat "@" dig-dns-server) cmdline)))
90 (apply 'call-process dig-program nil buf nil cmdline)
93 (defun dig-extract-rr (domain &optional type class)
95 Buffer should contain output generated by `dig-invoke'."
115 (dig-extract-rr (match-string 1) type class)))))
117 (defun dig-rr-get-pkix-cert (rr)
130 (put 'dig-mode 'font-lock-defaults '(dig-font-lock-keywords t))
132 (put 'dig-mode 'mode-class 'special)
134 (defvar dig-mode-map nil)
135 (unless dig-mode-map
136 (setq dig-mode-map (make-sparse-keymap))
137 (suppress-keymap dig-mode-map)
139 (define-key dig-mode-map "q" 'dig-exit))
141 (defun dig-mode ()
142 "Major mode for displaying dig output."
145 (setq mode-name "dig")
146 (setq major-mode 'dig-mode)
147 (use-local-map dig-mode-map)
151 '(dig-font-lock-keywords t)))
154 (gnus-run-mode-hooks 'dig-mode-hook))
156 (defun dig-exit ()
157 "Quit dig output buffer."
161 (defun dig (domain &optional
162 query-type query-class query-option dig-option server)
163 "Query addresses of a DOMAIN using dig, by calling `dig-invoke'.
164 Optional arguments are passed to `dig-invoke'."
167 (dig-invoke domain query-type query-class query-option dig-option server))
171 (dig-mode)
176 (defun query-dig (domain &optional
177 query-type query-class query-option dig-option server)
178 "Query addresses of a DOMAIN using dig.
179 It works by calling `dig-invoke' and `dig-extract-rr'. Optional
180 arguments are passed to `dig-invoke' and `dig-extract-rr'. Returns
182 (let ((buffer (dig-invoke domain query-type query-class
183 query-option dig-option server)))
186 (let ((digger (dig-extract-rr domain query-type query-class)))
190 (provide 'dig)
193 ;;; dig.el ends here