extract-host ( request -- request )

Vocabulary

http.server.requests

Inputs

request

an object

Outputs

request

an object

Definition

USING: accessors http kernel urls ;

IN: http.server.requests

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