Hi
Does anybody know of a tcl script that reads the info from a webpage and puts it in a channel or file?
regards,
ahv
Code: Select all
package require http
bind pub o|o !test pub:titre
proc getsong_get {url} {
if {[catch {set tok [::http::geturl $url]} error]} {
return "An error occurred while connecting to $url."
}
set data [::http::data $tok]
::http::cleanup $tok
return $data
}
proc pub:titre {nick uhost hand chan text} {
puthelp "NOTICE $nick :[getsong_get http://fulgore.goyman.com/~zone80/titre.php]"
}