list-directory ( directory -- response )

Vocabulary

http.server.static

Inputs

directory

an object

Outputs

response

an object

Definition

USING: accessors http.server.responses kernel namespaces ;

IN: http.server.static

: list-directory ( directory -- response )
    file-responder get allow-listings>>
    [ directory>html <html-content> ] [ drop <403> ] if ;