Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


VDM.tcl qui publie toutes les X minutes
#9
Après avoir mis :

PHP Code:
bind time -|- {?*} ::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 $tokenres
         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 :

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


Messages In This Thread
RE: VDM.tcl qui publie toutes les X minutes - by alanfollow - 06/04/2010, 11:51

Possibly Related Threads…
Thread Author Replies Views Last Post
  [Abandon] devoice auto au bout de X minutes Alucard`68 4 4,013 12/02/2017, 02:46
Last Post: Alucard`68
  Annonce X minutes lesny 14 7,990 25/11/2011, 18:03
Last Post: CrazyCat

Forum Jump:


Users browsing this thread: 1 Guest(s)