;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 124.37
;;; Reason:
;;;  Create parameter fs:*ftp-access-record-history* to control whether
;;;  FTP commands are recorded
;;; Written 8-Jun-88 12:57:06 by pld (Peter L. DeWolf) at site Gigamos Cambridge
;;; while running on Cthulhu from band 1
;;; with Experimental System 124.36, Experimental Local-File 74.1, Experimental File-Server 23.1, Experimental Unix-Interface 12.0, Experimental ZMail 72.1, Experimental Tape 23.6, Experimental Lambda-Diag 16.1, microcode 1756, SDU Boot Tape 3.14, SDU ROM 8, the old ones.


; From modified file DJ: L.NETWORK.IP-TCP.USER; FTP-ACCESS.LISP#51 at 8-Jun-88 13:03:42
#10R FILE-SYSTEM#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "FILE-SYSTEM")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; IP-TCP; USER; FTP-ACCESS  "

(defparameter *ftp-access-record-history* t "Determines whether or not to save FTP command history")

))

; From modified file DJ: L.NETWORK.IP-TCP.USER; FTP-ACCESS.LISP#51 at 8-Jun-88 13:03:47
#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:*control* (send ftp:*control* :remote-address))
    (setq ftp:*connected* nil))
  (unless ftp:*connected*
    (setq ftp:*history* (if *ftp-access-record-history* nil :dont-record))
    (ftp:cmd-open (send host :name))
    (send self :real-login t host))
  t)

))