Menu
▾
▴
#646 http::geturl follow redirects
IMHO it would be helpful, if http::geturl would follow redirects automatically (or with an option).
Following http://wiki.tcl.tk/1475
Thus
::http::geturl $url -followredirect 1
would do:
proc geturl_followRedirects {url args} {
while {1} {
set token [eval [list http::geturl $url] $args]
switch -glob [http::ncode $token] {
30[1237] { ### redirect - see below ### }
default { return $token }
}
upvar #0 $token state
array set meta [set ${token}(meta)]
if {![info exist meta(Location)]} {
return $token
}
set url $meta(Location)
unset meta
}
}
Thank you,
- Harald
Discussion
