send-directory ( server path -- )

Vocabulary

gopher.server.private

Inputs

server	an object
path	an object

Outputs

None

Definition

USING: io.files io.pathnames kernel ;

IN: gopher.server.private

: send-directory ( server path -- )
    dup ".gophermap" append-path
    [ send-file 2drop ] [
        drop dup ".gopherhead" append-path
        [ send-file ] when-file-exists list-directory
    ] if-file-exists ;