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

* net/tramp.el (tramp-restricted-shell-hosts-alist): New defcustom.

Browse source 
* net/tramp-sh.el (tramp-maybe-open-connection): Handle it.
This commit is contained in:
Michael Albinus 2012-07-06 15:16:13 +02:00
parent 3181e27910
commit 07b151f1bc
3 changed files with 31 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2012-07-06 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-restricted-shell-hosts-alist): New defcustom.
* net/tramp-sh.el (tramp-maybe-open-connection): Handle it.
2012-07-06 Glenn Morris <rgm@gnu.org>
* Makefile.in (compile-one-process): Rename from "recompile".

19
lisp/net/tramp-sh.el
View file

@ -4340,7 +4340,8 @@ connection if a previous connection has died for some reason."
(set-process-sentinel p 'tramp-process-sentinel)
(tramp-compat-set-process-query-on-exit-flag p nil)
(setq tramp-current-connection
(cons (butlast (append vec nil)) (current-time)))
(cons (butlast (append vec nil)) (current-time))
tramp-current-host (system-name))
(tramp-message
vec 6 "%s" (mapconcat 'identity (process-command p) " "))
@ -4387,7 +4388,7 @@ connection if a previous connection has died for some reason."
(expand-file-name
tramp-temp-name-prefix
(tramp-compat-temporary-file-directory)))))
spec)
spec r-shell)
;; Add arguments for asynchronous processes.
(when (and process-name async-args)
@ -4403,6 +4404,11 @@ connection if a previous connection has died for some reason."
(setq l-port (match-string 2 l-host)
l-host (match-string 1 l-host)))
;; Check, whether there is a restricted shell.
(dolist (elt tramp-restricted-shell-hosts-alist)
(when (string-match elt tramp-current-host)
(setq r-shell t)))
;; Set variables for computing the prompt for
;; reading password. They can also be derived
;; from a gateway.
@ -4421,7 +4427,7 @@ connection if a previous connection has died for some reason."
(concat
;; We do not want to see the trailing local
;; prompt in `start-file-process'.
(unless (memq system-type '(windows-nt)) "exec ")
(unless r-shell "exec ")
command " "
(mapconcat
(lambda (x)
@ -4430,9 +4436,10 @@ connection if a previous connection has died for some reason."
login-args " ")
;; Local shell could be a Windows COMSPEC. It
;; doesn't know the ";" syntax, but we must exit
;; always for `start-file-process'. "exec" does
;; not work either.
(if (memq system-type '(windows-nt)) " && exit || exit")))
;; always for `start-file-process'. It could
;; also be a restricted shell, which does not
;; allow "exec".
(when r-shell " && exit || exit")))
;; Send the command.
(tramp-message vec 3 "Sending command `%s'" command)

12
lisp/net/tramp.el
View file

@ -405,6 +405,18 @@ interpreted as a regular expression which always matches."
:group 'tramp
:type 'boolean)
(defcustom tramp-restricted-shell-hosts-alist
(when (memq system-type '(windows-nt))
(list (concat "\\`" (regexp-quote (system-name)) "\\'")))
"List of hosts, which run a restricted shell.
This is a list of regular expressions, which denote hosts running
a registered shell like \"rbash\". Those hosts can be used as
proxies only, see `tramp-default-proxies-alist'. If the local
host runs a registered shell, it shall be added to this list, too."
:version "24.2"
:group 'tramp
:type '(repeat (regexp :tag "Host regexp")))
;;;###tramp-autoload
(defconst tramp-local-host-regexp
(concat