;; Maintainer: Noah Friedman <friedman@prep.ai.mit.edu>
;; Keywords: unix, comm
-;;; Copyright (C) 1992 Free Software Foundation, Inc.
-;;;
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2, or (at your option)
-;;; any later version.
-;;;
-;;; This program 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
-;;; along with this program; if not, you can either send email to this
-;;; program's author (see below) or write to:
-;;;
-;;; The Free Software Foundation, Inc.
-;;; 675 Massachusetts Avenue.
-;;; Cambridge, MA 02139, USA.
-;;;
-
-;;; Todo: add directory tracking using ange-ftp style patchnames for the cwd.
+;; Copyright (C) 1992, 1993 Free Software Foundation, Inc.
+;;
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program 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
+;; along with this program; if not, write to: The Free Software Foundation,
+;; Inc.; 675 Massachusetts Avenue.; Cambridge, MA 02139, USA.
+
+;;; Commentary:
+
+;; Support for remote logins using `rlogin'.
+;;
+;; Todo: add directory tracking using ange-ftp style patchnames for the cwd.
;;; Code:
(defvar rlogin-program "rlogin"
"*Name of program to invoke rlogin")
+(defvar rlogin-explicit-args nil
+ "*List of arguments to pass to rlogin on the command line.")
+
(defvar rlogin-mode-hook nil
"*Hooks to run after setting current buffer to rlogin-mode.")
+;; I think this is so obnoxious I refuse to enable it by default.
+;; In any case, there is a bug with regards to generating a quit while
+;; reading keyboard input in a process filter, so until that's fixed it's
+;; not safe to enable this anyway.
+(defvar rlogin-password-paranoia nil
+ "*If non-`nil', query user for a password in the minibuffer when a
+Password: prompt appears. Stars will echo as characters are type.
+
+It's also possible to selectively enter passwords without echoing them in
+the minibuffer using the function `rlogin-password'.")
+
+(defvar rlogin-last-input-line nil nil)
+
;; Initialize rlogin mode map.
(defvar rlogin-mode-map '())
(cond ((not rlogin-mode-map)
(define-key rlogin-mode-map "\C-c\C-\\" 'rlogin-send-Ctrl-backslash)
(define-key rlogin-mode-map "\C-d" 'rlogin-delchar-or-send-Ctrl-D)))
-(defun rlogin (host)
- (interactive "sOpen rlogin connection to host: ")
- (let* ((buffer-name (concat "rlogin-" host))
- (*buffer-name* (concat "*" buffer-name "*")))
- (cond ((not (comint-check-proc *buffer-name*))
- (let* ((xargs-name (intern-soft "explicit-rlogin-args"))
- (xargs (and xargs-name (boundp xargs-name) (symbol-value xargs-name)))
- (process-connection-type nil)
- proc)
- (if xargs
- (setq xargs (append xargs host))
- (setq xargs (list host)))
- (set-buffer (apply 'make-comint buffer-name rlogin-program nil xargs))
- (setq proc (get-process buffer-name))
- (set-process-filter proc 'rlogin-filter)
- (rlogin-mode))))
- (switch-to-buffer *buffer-name*)))
+;;;###autoload
+(defun rlogin (&optional prefix host)
+ "Open a network login connection to HOST via the `rlogin' program.
+Input is sent line-at-a-time to the remote connection.
+
+Communication with HOST is recorded in a buffer *rlogin-HOST*.
+If a prefix argument is given and the buffer *rlogin-HOST* already exists,
+a new buffer with a different connection will be made.
+
+The variable `rlogin-program' contains the name of the actual program to
+run. It can be a relative or absolute path.
+
+The variable `rlogin-explicit-args' is a list of arguments to give to
+the rlogin when starting."
+ (interactive (list current-prefix-arg
+ (read-from-minibuffer "Open rlogin connection to host: ")))
+ (let* ((buffer-name (format "*rlogin-%s*" host))
+ (args (if (and rlogin-explicit-args (listp rlogin-explicit-args))
+ (cons host rlogin-explicit-args)
+ (list host)))
+ proc)
+ (and prefix (setq buffer-name
+ (buffer-name (generate-new-buffer buffer-name))))
+ (switch-to-buffer buffer-name)
+ (or (comint-check-proc buffer-name)
+ (progn
+ (comint-mode)
+ (comint-exec (current-buffer) buffer-name rlogin-program nil args)
+ (setq proc (get-process buffer-name))
+ (set-marker (process-mark proc) (point-min))
+ (set-process-filter proc 'rlogin-filter)
+ (rlogin-mode)))))
+
+;;;###autoload
+(defun rlogin-with-args (host args)
+ "Open a new rlogin connection to HOST, even if one already exists.
+String ARGS is given as arguments to the `rlogin' program, overriding the
+value of `rlogin-explicit-args'."
+ (interactive (list (read-from-minibuffer "Open rlogin connection to host: ")
+ (read-from-minibuffer "with arguments: ")))
+ (let ((old-match-data (match-data))
+ (rlogin-explicit-args nil))
+ (unwind-protect
+ (progn
+ (while (string-match "[ \t]*\\([^ \t]\\)+$" args)
+ (setq rlogin-explicit-args
+ (cons (substring args
+ (match-beginning 1)
+ (match-end 1))
+ rlogin-explicit-args)
+ args (substring args 0 (match-beginning 0)))))
+ (store-match-data old-match-data))
+ (rlogin 1 host)))
+
+;;;###autoload
+(defun rlogin-password ()
+ "Play the paranoia game by not echoing entered password in buffer
+(stars will echo in the minibuffer instead."
+ (interactive)
+ (let ((input (comint-read-noecho "Enter password: " 'stars)))
+ (insert-before-markers "\n")
+ (comint-send-string (get-buffer-process (current-buffer))
+ (format "%s\n" input))))
+;;;###autoload
(defun rlogin-mode ()
(interactive)
+ (kill-all-local-variables)
(comint-mode)
(setq comint-prompt-regexp shell-prompt-pattern)
(setq major-mode 'rlogin-mode)
- (setq mode-name "Rlogin")
+ (setq mode-name "rlogin")
(use-local-map rlogin-mode-map)
(run-hooks 'rlogin-mode-hook))
(defun rlogin-filter (proc string)
- (let ((process-buffer (process-buffer proc))
- (at-eobp (eobp)))
- (save-excursion
- (set-buffer process-buffer)
- (goto-char (point-max))
- (let ((now (point))
- process-mark)
- (insert string)
- (subst-char-in-region now (point) ?\C-m ?\ )
- (subst-char-in-region now (point) ?\M-r ?\ )
- (setq process-mark (process-mark proc))
- (and process-mark
- (set-marker process-mark (point)))))
- (and at-eobp
- (eq process-buffer (current-buffer))
- (goto-char (point-max)))))
+ (let ((old-buffer (current-buffer))
+ (old-match-data (match-data))
+ at-max-pos
+ moving)
+ (unwind-protect
+ (progn
+ (set-buffer (process-buffer proc))
+ (setq moving (= (point) (process-mark proc)))
+ (save-excursion
+ (goto-char (process-mark proc))
+ (save-restriction
+ (let ((beg (point)))
+ (insert-before-markers string)
+ (narrow-to-region beg (point))
+ (goto-char (point-min))
+ (while (search-forward "\C-m" nil t)
+ (delete-char -1))
+ (and rlogin-password-paranoia
+ (setq string (buffer-substring (point-min) (point-max))))
+ (goto-char (point-max))))
+ (set-marker (process-mark proc) (point)))
+ (and moving
+ (goto-char (process-mark proc))))
+ (set-buffer old-buffer)
+ (store-match-data old-match-data)))
+ (and rlogin-password-paranoia
+ (string= "Password:" string)
+ (let ((input (comint-read-noecho "Enter password: " 'stars)))
+ (and input
+ (progn
+ (insert-before-markers "\n")
+ (comint-send-string proc (format "%s\n" input)))))))
(defun rlogin-send-Ctrl-C ()
(interactive)
(delete-char arg)))
;;; rlogin.el ends here
-
HCoop / bpt / emacs.git / blobdiff