extract-host ( request -- request )

Vocabulary

http.server.requests

Inputs

request

an object

Outputs

request

an object

Definition

USING: accessors continuations http kernel urls ;

IN: http.server.requests

: extract-host ( request -- request )
    [ ] [ url>> ] [
        "host" header
        [ parse-host ] [ nip bad-request-header ] recover
    ] tri [ >>host ] [ >>port ] bi* drop ;