ftp-put

Vocabulary

ftp.server

Definition

IN: ftp.server

TUPLE: ftp-put path ;

Methods

USING: accessors continuations ftp.server io io.encodings.binary
io.files kernel ;

M: ftp-put handle-passive-command
    [
        path>>
        [ transfer-incoming-file ]
        [ binary <file-writer> stream-copy ] bi
        finish-file-transfer
    ] [ 3drop "File transfer failed" ftp-error ] recover ;