;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 123.34
;;; Reason:
;;;  If TCP is closed and reopened, FTP control connections in FTP Host Units become invalid --
;;;  but ftp:*connected* remains T.  Change :setup-control-connection to re-open the control
;;;  connection if the old one has died.
;;; Written 7-Oct-87 11:26:38 by pld (Peter L. DeWolf) at site LMI Cambridge
;;; while running on Jack Flanders from band 2
;;; with Experimental System 123.32, Experimental Local-File 73.0, Experimental FILE-Server 22.0, Experimental Unix-Interface 11.0, Experimental Tape 18.0, Experimental KERMIT 34.0, Experimental ZMail 71.0, Experimental Lambda-Diag 15.0, microcode 1754, SDU Boot Tape 3.12, SDU ROM 8.



; From modified file DJ: L.NETWORK.IP-TCP.USER; FTP-ACCESS.LISP#10 at 7-Oct-87 11:26:39
#10R FILE-SYSTEM#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "FILE-SYSTEM")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; IP-TCP; USER; FTP-ACCESS  "

(defmethod (ftp-host-unit :setup-control-connection) ()
  (unless (and ftp:*cin* (send ftp:*cin* :remote-address))
    (setq ftp:*connected* nil))
  (cond ((not ftp:*connected*)
	 (ftp:cmd-open (send host :name))
	 (send self :real-login t host)))
  t)

))