Protocols for Robotic Telescope Networks

Algorithm 2

set minor_planet "ceres"

set url "http://scully.cfa.harvard.edu/~cgi/MPEph2"

package require http

set query [::http::formatQuery TextArea ⧵

 "$minor_planet" ty "e" d "" tit "" bu ""]

set token [::http::geturl $url -query "$query"]

upvar #0 $token state

set html_text $state(body)