VDM.tcl qui publie toutes les X minutes

[alanfollow]

Après avoir mis :

Code PHP :

bind time -|- {?0 *} ::AutoMsgVdm
 
proc ::AutoMsgVdm {mn h args} {
global botnick
 
foreach chan $vdm::allowed_chans {
 
      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">(.+?)</p>} [::http::data $token] res
         regsub {<div class="post"><p>} $res "" res
         regsub "<img src=\"http://cdn.betacie.com/viedemerde/images/new.png\" align=\"absmiddle\" /> " $res "" res
         regsub {</p>} $res "" res
         regsub {&#92;n} $res "" res
         regsub -all {<a href="[^\ ]+" class="lienvdm">} $res "" res
            regsub -all {</a>} $res "" res
         regsub {VDM$} $res "\002VDM\002" res
         set result [vdm::string_filter $res]
         puthelp "privmsg $chan :(\002Vie De Merde\002) $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"
      }
   }
  } 


J'ai cette erreur en pl :

Code PHP :

[11:49:56] <AtHeNa> [11:50] Tcl error [::AutoMsgVdm]: extra characters after close-quote