prepare-request ( request -- )

Vocabulary

http.server

Inputs

request

an object

Outputs

None

Definition

USING: accessors http.server.remapping io.sockets
io.sockets.secure kernel namespaces ;

IN: http.server

: prepare-request ( request -- )
    [
        local-address get
        [ secure? "https" "http" ? >>protocol ]
        [ port>> remap-port >>port ] bi
    ] change-url drop ;