(ftp-get) ( url path -- )

Vocabulary

ftp.client

Inputs

url	an object
path	an object

Outputs

None

Definition

USING: io io.encodings.binary io.files kernel ;

IN: ftp.client

: (ftp-get) ( url path -- )
    [ binary open-passive-client ] dip
    [ ftp-retr 150 ftp-assert drop ]
    [ binary <file-writer> stream-copy ] 2bi
    read-response 226 ftp-assert ;