gopher-server

Vocabulary

gopher.server

Definition

USING: io.servers strings ;

IN: gopher.server

TUPLE: gopher-server < threaded-server
    { serving-hostname string initial: "" }
    { serving-directory string initial: "" } ;

Methods

USING: accessors combinators gopher.server gopher.server.private
io io.files.info io.files.types io.pathnames io.servers kernel ;

M: gopher-server handle-client*
    dup serving-directory>> read-gopher-path append-path
    dup file-info type>> {
        { +directory+ [ send-directory ] }
        { +regular-file+ [ nip send-file ] }
        [ 3drop ]
    } case flush ;