Miscellany

package require http
proc xml:http:read {url tag} {

    	set token [::http::geturl $url]

	set content [::http::data $token]

    	::http::cleanup $content
	set content [join $content]
	regsub -all "\> \<" $content "\>\<" content

	[xml:get:param $content $tag]

}


proc xml:get:param {data tag} {
	set begin "<${tag}>"
	set end "</${tag}>"
	set list ""
	while { [string last $begin $data] != -1} {
	set content [string range $data [expr [string last $begin $data] + [string length $begin]] [expr [string last $end $data] - 1]]
	regsub ${begin}${content}${end} $data "" data
	puts $content
	lappend list $content 
	}
	puts [llength $list]
}