next-url ( url -- next-url redirected? )


Vocabulary
long-urls.private

Inputs
urlan object


Outputs
next-urlan object
redirected?an object


Definition
USING: http http.client http.client.private kernel long-urls
math namespaces ;

IN: long-urls.private

: next-url ( url -- next-url redirected? )
redirects inc redirects get max-redirects get <= [
dup http-head-no-redirects drop dup redirect?
[ nip "location" header t ] [ drop f ] if
] [ too-many-redirects ] if ;