handle-STOR ( obj -- )

Vocabulary

ftp.server

Inputs

obj

an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: ftp.server

: handle-STOR ( obj -- )
    tokenized>> second dup can-serve-file?
    [ <ftp-put> fulfill-client ]
    [ drop <ftp-disconnect> fulfill-client ] if ;