XEROX FTPSERVERPATCH 2 4 1 FTPSERVERPATCH 1 4 By: Ron Clarke (Rclarke.pasa@xerox.com) Uses: FTPSERVER DESCRIPTION/OPERATION Presently the Lisp Library package FTPSERVER provides only FILENAME, VERSION, TYPE and AUTHOR information. Loading FTPSERVERPATCH after FTPSERVER has been loaded will enable FTPSERVER to also provide CREATIONDATE, READDATE, WRITEDATE, LENGTH, SIZE and BYTESIZE information. These fields can then be accessed using the function GETFILEINFO or by using the Lisp Library package FILEBROWSER. You will also be able to use the Lisp Library package COPYFILES to copy files between 11XXs running FTPSERVER since COPYFILES needs CREATIONDATE information to determine whether a file should betransferred. (LIST ((PAGE NIL (PAPERSIZE LETTER STARTINGPAGE# 97) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO NIL) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE NIL . LETTER) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO NIL) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE NIL . LETTER) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO NIL) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))DÈÈ PAGEHEADING RUNNINGHEAD(È(È(ŠŠ8(ŠŠ8MODERNLOGOMODERN MODERN MODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN )XÛ!zº