Suivre les redirections HTTP lors de la récupération d'une page web
Cette procédure est à utiliser à la place de ::http::geturl.
Variable à déclarer
variable max_redirections 5
Procédure
proc get_url {url args} {
variable max_redirections
for { set counter 0 } { $counter < $max_redirections } { incr counter } {
if { [::tcl::info::exists token] } {
::http::cleanup $token
}
set token [::http::geturl $url {*}$args]
if { ![::tcl::string::match {30[1237]} [::http::ncode $token]] } {
break
}
}
return $token
}