Posted to tcl by Bradipo at Tue Jun 30 16:03:43 GMT 2009view raw
- proc geturl {url} {
- if {[catch {http::geturl $url -timeout 30000} tok]} {
- puts stderr "Couldn't fetch $url"
- } else {
- if {[http::status $tok] == "ok"} {
- return [http::data $tok]
- }
- }
- http::cleanup $tok
- }
- package require http
- package require md5
- package require struct
- package require htmlparse
- set url http://mises.org/
- set data [geturl $url]
- ::struct::tree t
- ::htmlparse::2tree $data t