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

  1. proc geturls {urls {token {}} {
  2. if {$token != ""} {
  3. http::cleanup $token
  4. }
  5. if {[llength $urls] == 0} return
  6. set urls [lassign $urls url]
  7. http::geturl $url -callback [list geturls $urls]
  8. }
  9.