18/07/2010, 09:10
Bonjour,
pour ma part je viens de test et le retour est toujours le même
Tcl error [::vdm::pub_disp_vdm]: can't read "res": no such variable
la ligne 127 bien modifier comme la notifier lealexp
la procédure donc modifier
une idée svp ?
Merci d'avance
pour ma part je viens de test et le retour est toujours le même
Tcl error [::vdm::pub_disp_vdm]: can't read "res": no such variable
la ligne 127 bien modifier comme la notifier lealexp
la procédure donc modifier
Code :
proc vdm::pub_disp_vdm {nick host handle chan args} {
if {[lsearch -exact [split $vdm::allowed_chans] $chan] != -1} {
if {($vdm::antiflood == 1) && ([vdm::antiflood $chan "vdm"] == "flood")} { return }
set useragent "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.1) Gecko/20061204 Firefox/2.0.0.1"
set url "http://www.viedemerde.fr/aleatoire"
::http::config -useragent $useragent
set token [::http::geturl "$url" -timeout 6000]
if {[::http::status $token] == "ok"} {
regexp {<div class="post" id=(?:.*?)>(.+?)</p>} [::http::data $token] res
regsub {\n} $res "" res
regsub -all {<[^>]+>} $res "" res
regsub {VDM$} $res "\002VDM\002" res
set result [vdm::string_filter $res]
puthelp "privmsg $chan :$result"
} else {
puthelp "privmsg $chan :\00314La connexion à \002Vie de merde\002 n'a pu être établie. Peut-être le site rencontre-t-il des difficultés techniques. Veuillez réessayer plus tard.\003"
}
}
}une idée svp ?
Merci d'avance