/[tramp]/tramp/lisp/tramp.el
ViewVC logotype

Diff of /tramp/lisp/tramp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2.155 by kai, Mon Jul 29 14:09:49 2002 UTC revision 2.156 by kai, Mon Jul 29 17:41:16 2002 UTC
# Line 715  The regexp should match at end of buffer Line 715  The regexp should match at end of buffer
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
# Line 1029  but it might be slow on large directorie Line 1037  but it might be slow on large directorie
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).
# Line 3470  Returns nil if none was found, else the Line 3484  Returns nil if none was found, else the
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)

Legend:
Removed from v.2.155  
changed lines
  Added in v.2.156

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26