Posted to tcl by patthoyts at Fri Oct 02 14:33:39 GMT 2009view raw
- 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