Code:

package require httpbind pub o|o !test pub:titreproc 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]"}

Code:

proc getsong_get {url} {  if {[catch {set tok [::http::geturl $url]} error]} {    putlog "An error occurred while connecting to $url."    return  }  if {[::http::ncode $tok] != 200} {    putlog "An error occurred while connecting to $url."    ::http::cleanup $tok    return  }  set data [::http::data $tok]  ::http::cleanup $tok  return $data}