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

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]
}