comparison lisp/ange-ftp.el @ 10451:bc83756f19ad

(ange-ftp-gateway-program, ange-ftp-shell-command): Use new global remote-shell-program.

10450:830e201e9603

(defvar ange-ftp-gateway-program-interactive nil
  "*If non-nil then the gateway program should  give a shell prompt.
Both telnet and rlogin do something like this.")

(defvar ange-ftp-gateway-program (if (eq system-type 'hpux) "remsh" "rsh")
  "*Name of program to spawn a shell on the gateway machine.
Valid candidates are rsh (remsh on hp-ux), telnet and rlogin.  See
also the gateway variable above.")

(defvar ange-ftp-gateway-prompt-pattern "^[^#$%>;\n]*[#$%>;] *"
  "*Regexp matching prompt after complete login sequence on gateway machine.
A match for this means the shell is now awaiting input.  Make this regexp as

	      func (cdr (assq (ange-ftp-host-type (car parsed))
			      ange-ftp-sans-version-alist))))
    (if func (funcall func file keep-backup-version)
      (ange-ftp-real-file-name-sans-versions file keep-backup-version))))

(defvar ange-ftp-remote-shell-file-name
  (if (memq system-type '(hpux usg-unix-v)) ; hope that's right
      "remsh"
    "rsh")
  "Name of command to run a remote shell, for ange-ftp.")

;;; This doesn't work yet; a new hook needs to be created.
;;; Maybe the new hook should be in call-process.
(defun ange-ftp-shell-command (command)
  (let* ((parsed (ange-ftp-ftp-name default-directory))
	 (host (nth 0 parsed))

      (if (> (length name) 0)		; else it's $HOME
	  (setq command (concat "cd " name "; " command)))
      (setq command
	    (format  "%s %s \"%s\""	; remsh -l USER does not work well
					; on a hp-ux machine I tried
		     ange-ftp-remote-shell-file-name host command))
      (ange-ftp-message "Remote command '%s' ..." command)
      ;; Cannot call ange-ftp-real-dired-run-shell-command here as it
      ;; would prepend "cd default-directory" --- which bombs because
      ;; default-directory is in ange-ftp syntax for remote file names.
      (ange-ftp-real-shell-command command))))

10451:bc83756f19ad

(defvar ange-ftp-gateway-program-interactive nil
  "*If non-nil then the gateway program should  give a shell prompt.
Both telnet and rlogin do something like this.")

(defvar ange-ftp-gateway-program remote-shell-program
  "*Name of program to spawn a shell on the gateway machine.
Valid candidates are rsh (remsh on some systems), telnet and rlogin.  See
also the gateway variable above.")

(defvar ange-ftp-gateway-prompt-pattern "^[^#$%>;\n]*[#$%>;] *"
  "*Regexp matching prompt after complete login sequence on gateway machine.
A match for this means the shell is now awaiting input.  Make this regexp as

	      func (cdr (assq (ange-ftp-host-type (car parsed))
			      ange-ftp-sans-version-alist))))
    (if func (funcall func file keep-backup-version)
      (ange-ftp-real-file-name-sans-versions file keep-backup-version))))

;;; This doesn't work yet; a new hook needs to be created.
;;; Maybe the new hook should be in call-process.
(defun ange-ftp-shell-command (command)
  (let* ((parsed (ange-ftp-ftp-name default-directory))
	 (host (nth 0 parsed))

      (if (> (length name) 0)		; else it's $HOME
	  (setq command (concat "cd " name "; " command)))
      (setq command
	    (format  "%s %s \"%s\""	; remsh -l USER does not work well
					; on a hp-ux machine I tried
		     remote-shell-program host command))
      (ange-ftp-message "Remote command '%s' ..." command)
      ;; Cannot call ange-ftp-real-dired-run-shell-command here as it
      ;; would prepend "cd default-directory" --- which bombs because
      ;; default-directory is in ange-ftp syntax for remote file names.
      (ange-ftp-real-shell-command command))))