dhl-plink.el

dhl-plink.el

;;;;
;;;; dhl-plink.el
;;;;
;;;; Time-stamp: <2010-09-11 23:58:02 danlei>
;;;;
;;;; (c) Daniel H. Leidisch
;;;;
;;;; License: LLGPL
;;;; 

(defvar dhl-plink-plink-command "plink")
(defvar dhl-plink-port "22")
(defvar dhl-plink-host-name "host")
(defvar dhl-plink-user-name "user")
(defvar dhl-plink-password "pass")

(defvar dhl-plink-action nil
  "Action to be executed via `dhl-plink-do-action'.")

;; plink -l user -P port -pw passwort host command

(defvar dhl-plink-old-window-configuration nil)

(defun dhl-plink-popup-buffer (buffer)
  "Splits window vertically and popups buffer in a new window.
The window can be closed (and the buffer buried) by typing \"q\".
\"k\" will close the popup window and kill the buffer."
  (setq dhl-plink-old-window-configuration
        (current-window-configuration))
  (split-window-vertically)
  (other-window 1)
  (switch-to-buffer buffer)
  (local-set-key (kbd "q")
                 (lambda ()
                   (interactive)
                   (bury-buffer)
                   (set-window-configuration
                    dhl-plink-old-window-configuration)))
  (local-set-key (kbd "k")
                 (lambda ()
                   (interactive)
                   (kill-buffer)
                   (set-window-configuration
                    dhl-plink-old-window-configuration))))

(defun dhl-plink-send-command (command)
  "Sends command to remote server and displays output."
  (interactive "sRemote Command: ")
  (call-process dhl-plink-plink-command
                nil "*plink-output*" t
                "-l" dhl-plink-user-name
                "-P" dhl-plink-port
                "-pw" dhl-plink-password
                dhl-plink-host-name
                command)
  (dhl-plink-popup-buffer "*plink-output*"))

(defun dhl-plink-do-action ()
  "Executes `dhl-plink-action' on the remote host."
  (interactive)
  (if dhl-plink-action
      (if (y-or-n-p
           (concat "Execute " dhl-plink-action " on the remote host? "))
          (dhl-plink-send-command dhl-plink-action)
          (message "Aborted."))
      (message "Nothing to do.")))

(provide 'dhl-plink)