Get multiple URLs in a sequence in the background

Posted to tcl by rmax at Wed Jan 08 14:49:42 GMT 2014view raw

proc geturls {urls {token {}} {
if {$token != ""} {
http::cleanup $token
}
if {[llength $urls] == 0} return
set urls [lassign $urls url]
http::geturl $url -callback [list geturls $urls]
}