handle-passive-command ( stream obj -- )

Vocabulary

ftp.server

Inputs

stream	an object
obj	an object

Outputs

None

Definition

IN: ftp.server

GENERIC: handle-passive-command ( stream obj -- )

Methods

USING: destructors ftp.server kernel ;

M: ftp-disconnect handle-passive-command drop dispose ;


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

M: ftp-get handle-passive-command
    [
        path>>
        [ transfer-outgoing-file ]
        [ binary <file-reader> swap stream-copy ] bi
        finish-file-transfer
    ] [ 3drop "File transfer failed" ftp-error ] recover ;


USING: ftp ftp.server io io.encodings io.encodings.utf8
io.streams.string kernel sequences splitting tools.files ;

M: ftp-list handle-passive-command
    drop start-directory [
        utf8 encode-output
        [ "." directory. ] with-string-writer split-lines
        harvest [ ftp-send ] each
    ] with-output-stream finish-directory ;


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 ;