egghelp/eggheads community

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

2002-11-08T20:34:26-04:00

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.

Statistics: Posted by stdragon — Fri Nov 08, 2002 8:34 pm

ok, lol

2002-11-08T17:25:55-04:00

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

Statistics: Posted by Guest — Fri Nov 08, 2002 5:25 pm

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

2002-11-06T15:03:07-04:00

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

Statistics: Posted by stdragon — Wed Nov 06, 2002 3:03 pm

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

2002-11-06T11:39:19-04:00

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 "
} 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?

Statistics: Posted by Guest — Wed Nov 06, 2002 11:39 am