handle-MDTM ( obj -- )

Vocabulary

ftp.server

Inputs

obj

an object

Outputs

None

Definition

USING: accessors calendar.format io.files.info kernel sequences
;

IN: ftp.server

: handle-MDTM ( obj -- )
    tokenized>> ?second [
        fixup-relative-path dup file-info dup directory?
        [ drop not-a-plain-file ]
        [ nip modified>> timestamp>mdtm 213 server-response ] if
    ] [ "" not-a-plain-file ] if* ;