Posted to tcl by patthoyts at Fri Oct 02 14:33:39 GMT 2009view pretty

proc getlocations {locations} {
   if {[llength $locations] > 0} {
      foreach {lat long} $locations break
      set locations [lrange $locations 2 end]
      set q [http::formatQuery lat $lat long $long]
      http::geturl $url -query $q -command [list Handle $locations]
   } else {
      set ::forever 1
   }
}
proc Handle {locations $tok} {
   # handle the response in $tok
   getlocation $locations
}
vwait forever