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

Vocabulary

gopher.server

Inputs

directory	an object
port	an object

Outputs

server

an object

Definition

USING: accessors calendar io.encodings.binary io.encodings.utf8
io.pathnames io.servers kernel ;

IN: gopher.server

: <gopher-server> ( directory port -- server )
    utf8 gopher-server new-threaded-server swap >>insecure
    "localhost" >>serving-hostname
    swap resolve-symlinks >>serving-directory
    "gopher.server" >>name binary >>encoding 5 minutes >>timeout
    ;