Posted to tcl by FrozenSoul at Sun Dec 17 16:58:35 GMT 2017view raw
- proc checkvotingch {} {
- set token [::http::geturl "http://awebpage" -timeout 30000]
- set data [::http::data $token]
- if { [regexp -all -nocase -- {<tr>\n<td>\n<a href="sugg-view-(.+?).html">(.+?)<\/a>\n<\/td>\n<td>} $data -> webId vote] } {
- $webId and $vote - available
- }
- }
- }
- proc checkvotingch {n u h c t} {
- set token [::http::geturl "http://awebpage" -timeout 30000]
- set data [::http::data $token]
- set matches [regexp -all -nocase -- {<tr>\n<td>\n<a href="sugg-view-(.+?).html">(.+?)<\/a>\n<\/td>\n<td>} $data]
- putquick "PRIVMSG $c :LAST VOTINGS:"
- foreach {webId vote} $matches {
- $webId $vote - not available
- }
- # }
- }