<ftp-server> ( directory port -- server )

Vocabulary

ftp.server

Inputs

directory	an object
port	an object

Outputs

server

an object

Definition

USING: accessors calendar io.encodings.latin1 io.pathnames
io.servers kernel ;

IN: ftp.server

: <ftp-server> ( directory port -- server )
    latin1 ftp-server new-threaded-server swap >>insecure
    swap resolve-symlinks >>serving-directory
    "ftp.server" >>name 5 minutes >>timeout ;