another kind of interlock login sequence ?
Luc MAISONOBE 82631 (luc@kaula.cst.cnes.fr)
Mon, 6 Nov 1995 16:32:18 +0100
Hi folks,
I am a very recent efs user (first time this morning!). A gateway I use
sometimes doesn't fit the various login sequence efs seems to support. Some
weeks ago, I have read on an old archive this was a so called ANS-interlock,
I don't know what it really is.
The login sequence is:
open strange-gateway
quote user my-user-login-for-that-gateway
quote pass my-password-for-that-gateway
quote site remote.host.edu
quote user anonymous
quote pass luc@kaula.cst.cnes.fr
The "quote site" command is the one that doesn't match other gateway types.
In order to cope with this, I have patched efs.el (see diff after signature).
I am not a lisp guru, so this should be improved, but it could help somebody.
As I'm not sure this is interlock, I've called this type "pacte". Perhaps
Sandy will soon be able to reckognize it?
Luc
--
------------------------------------------------------------------------------
Luc Maisonobe - CT/TI/MS/SG | Tel : (33) 61-28-26-31
CNES | Fax : (33) 61-28-16-17
18 avenue E. Belin |
31055 Toulouse CEDEX - FRANCE | Email: luc@kaula.cst.cnes.fr
------------------------------------------------------------------------------
cd ~/sources/elisp/efs-1.14/
diff -c /homek/luc/sources/elisp/efs-1.14/efs.el\~ /homek/luc/sources/elisp/efs-1.14/efs.el
*** /homek/luc/sources/elisp/efs-1.14/efs.el~ Wed Nov 16 20:07:34 1994
--- /homek/luc/sources/elisp/efs-1.14/efs.el Mon Nov 6 15:04:47 1995
***************
*** 3507,3513 ****
(nth 2 efs-gateway-type)
(list (nth 3 efs-gateway-type))
(nth 4 efs-gateway-type)))))
! ((memq use-gateway '(proxy raptor interlock))
(message "Opening FTP connection to %s via %s..." host efs-gateway-host)
(setq proc (apply 'start-process name buffer (nth 1 efs-gateway-type)
(nth 2 efs-gateway-type))))
--- 3507,3513 ----
(nth 2 efs-gateway-type)
(list (nth 3 efs-gateway-type))
(nth 4 efs-gateway-type)))))
! ((memq use-gateway '(proxy raptor interlock pacte))
(message "Opening FTP connection to %s via %s..." host efs-gateway-host)
(setq proc (apply 'start-process name buffer (nth 1 efs-gateway-type)
(nth 2 efs-gateway-type))))
***************
*** 4142,4148 ****
PROC is the process to the FTP-client. Doesn't call efs-save-match-data.
You must do that yourself."
(let* ((gate (efs-use-gateway-p host))
! (to (if (memq gate '(proxy local raptor))
efs-gateway-host
host))
port cmd result)
--- 4142,4148 ----
PROC is the process to the FTP-client. Doesn't call efs-save-match-data.
You must do that yourself."
(let* ((gate (efs-use-gateway-p host))
! (to (if (memq gate '(proxy local raptor pacte))
efs-gateway-host
host))
port cmd result)
***************
*** 4161,4166 ****
--- 4161,4173 ----
(and (eq gate 'interlock) (string-match "^331 " (nth 1 result))
(setq result (efs-login-send-pass
efs-gateway-host (efs-get-user efs-gateway-host) proc)))
+
+ (and (eq gate 'pacte) (string-match "^220 " (nth 1 result))
+ (progn
+ (efs-login-send-user
+ efs-gateway-host (efs-get-user efs-gateway-host) proc)
+ (setq result (efs-raw-send-cmd
+ proc (format "quote site %s" host) nil))))
;; Analyze result of OPEN.
(if (car result)
Diff exited abnormally with code 1 at Mon Nov 6 15:51:22