TCL code for finding info on a webpage (high scores)

[iharrington]

I just want a way for people to type (I can do this part once I can get the data into my system, got a way to list as much as I can add via /notice or ctcp methods) !highscore where then the top 100 is listed. Yet obtaining the data from the website is eluding me.

I found this:

proc pub:whats { nick uhost hand chan arg } {
if {[llength $arg]==0} {
putserv "notice $nick :Usage : !whats <web site>"
} else {
set host [lindex $arg 0]
set query "http://www.netcraft.com/oldwhats/?host=$host"
set token [http::config -useragent "Mozilla"]
set token [http::geturl $query]
puts stderr ""
upvar #0 $token state
foreach {name value} $state(meta) {
if {$name == "Server"} {
putserv "notice $nick :Host $host is running $value"
}
}
}
return 0
}

Yet this appears to be totally different. I have about given up hope to find what I need... anyone got suggestions?

[stdragon]

That example is parsing the http response headers. You should find an example that uses the actual webpage data.

[iharrington]

umm, yeah, I realized this, but I could not find one....

[stdragon]

Try the script archive on this site. There are plenty of scripts that download web pages and parse the results. Weather scripts, stock quotes, google search results, etc.