prepare-redirect ( response -- response )

Vocabulary

http.client.private

Inputs

response

an object

Outputs

response

an object

Definition

USING: accessors http http.client kernel math namespaces ;

IN: http.client.private

:: prepare-redirect ( response -- response )
    redirects inc redirects get request get redirects>> < [
        request get clone response "location" header
        redirect-url response code>> 307 =
        [ "GET" >>method f >>post-data ] unless
    ] [ too-many-redirects ] if ; inline recursive