Psst.. new poll here.
Psst.. new forums here.
Microsoft is blocking us again (TY IP Reputation!) so just use oauth login instead. :)
Paste
Pasted as Tcl by 123 ( 18 years ago )
set args [lindex $args 0]
set site [http::geturl $args];
set html [http::data $site];
http::cleanup $site;
if {[regexp -all -- {<title>(.*?)</title>} $html -> info]} {
Revise this Paste