transfer-outgoing-file ( path -- )

Vocabulary

ftp.server

Inputs

path

an object

Outputs

None

Definition

USING: accessors io.files.info io.pathnames kernel math.parser
sequences ;

IN: ftp.server

: transfer-outgoing-file ( path -- )
    [ "Opening BINARY mode data connection for " ] dip
    [ file-name ]
    [ file-info size>> number>string "(" " bytes)." surround ]
    bi " " glue append 150 server-response ;