handle-RETR ( obj -- )

Vocabulary

ftp.server

Inputs

obj

an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: ftp.server

: handle-RETR ( obj -- )
    tokenized>> second fixup-relative-path dup can-serve-file?
    [ <ftp-get> fulfill-client ]
    [ not-a-plain-file <ftp-disconnect> fulfill-client ] if ;