715 |
:group 'tramp |
:group 'tramp |
716 |
:type 'regexp) |
:type 'regexp) |
717 |
|
|
718 |
|
(defcustom tramp-yesno-prompt-regexp |
719 |
|
"Are you sure you want to continue connecting (yes/no)\\? *" |
720 |
|
"Regular expression matching all queries which need to be confirmed. |
721 |
|
The confirmation should be done with yes or no. |
722 |
|
The regexp should match at end of buffer." |
723 |
|
:group 'tramp |
724 |
|
:type 'regexp) |
725 |
|
|
726 |
(defcustom tramp-temp-name-prefix "tramp." |
(defcustom tramp-temp-name-prefix "tramp." |
727 |
"*Prefix to use for temporary files. |
"*Prefix to use for temporary files. |
728 |
If this is a relative file name (such as \"tramp.\"), it is considered |
If this is a relative file name (such as \"tramp.\"), it is considered |
1037 |
:group 'tramp |
:group 'tramp |
1038 |
:type 'boolean) |
:type 'boolean) |
1039 |
|
|
1040 |
|
;; The following can be received from ssh: |
1041 |
|
;; The authenticity of host 'ls6-www (<no hostip for proxy command>)' can't be established. |
1042 |
|
;; RSA1 key fingerprint is 70:34:ee:0b:29:9b:6e:5d:eb:bb:e3:93:21:47:45:4d. |
1043 |
|
;; Are you sure you want to continue connecting (yes/no)? |
1044 |
|
|
1045 |
(defcustom tramp-actions-before-shell |
(defcustom tramp-actions-before-shell |
1046 |
'((tramp-password-prompt-regexp tramp-action-password) |
'((tramp-password-prompt-regexp tramp-action-password) |
1047 |
(tramp-login-prompt-regexp tramp-action-login) |
(tramp-login-prompt-regexp tramp-action-login) |
1048 |
(shell-prompt-pattern tramp-action-succeed) |
(shell-prompt-pattern tramp-action-succeed) |
1049 |
(tramp-wrong-passwd-regexp tramp-action-permission-denied)) |
(tramp-wrong-passwd-regexp tramp-action-permission-denied) |
1050 |
|
(tramp-yesno-prompt-regexp tramp-action-yesno)) |
1051 |
"List of pattern/action pairs. |
"List of pattern/action pairs. |
1052 |
Whenever a pattern matches, the corresponding action is performed. |
Whenever a pattern matches, the corresponding action is performed. |
1053 |
Each item looks like (PATTERN ACTION). |
Each item looks like (PATTERN ACTION). |
3484 |
(erase-buffer) |
(erase-buffer) |
3485 |
(throw 'tramp-action 'permission-denied)) |
(throw 'tramp-action 'permission-denied)) |
3486 |
|
|
3487 |
|
(defun tramp-action-yesno (p multi-method method user host) |
3488 |
|
"Ask the user if he is sure." |
3489 |
|
(save-window-excursion |
3490 |
|
(pop-to-buffer (tramp-get-buffer multi-method method user host)) |
3491 |
|
(unless (yes-or-no-p (match-string 0)) |
3492 |
|
(kill-process p) |
3493 |
|
(erase-buffer) |
3494 |
|
(throw 'tramp-action 'permission-denied)) |
3495 |
|
(process-send-string p (concat "yes" tramp-rsh-end-of-line)) |
3496 |
|
(erase-buffer))) |
3497 |
|
|
3498 |
;; The following functions are specifically for multi connections. |
;; The following functions are specifically for multi connections. |
3499 |
|
|
3500 |
(defun tramp-multi-action-login (p method user host) |
(defun tramp-multi-action-login (p method user host) |