send-directory ( server path -- )

Vocabulary

gemini.server.private

Inputs

server	an object
path	an object

Outputs

None

Definition

USING: io.files io.pathnames kernel ;

IN: gemini.server.private

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