write-request-header ( request -- request )

Vocabulary

http.client.private

Inputs

request

an object

Outputs

request

an object

Definition

USING: accessors hashtables http http.client.post-data kernel
sequences ;

IN: http.client.private

: write-request-header ( request -- request )
    dup header>> >hashtable over url>> host>>
    [ set-host-header ] when
    over url>> "Authorization" ?set-basic-auth
    over proxy-url>> "Proxy-Authorization" ?set-basic-auth
    over data>> [ set-post-data-headers ] when* over cookies>>
    [ set-cookie-header ] unless-empty write-header ;