13/11/2009, 13:30
Bonjour,
bidouiller à la va vite est non testé.
ajoute sa:
je pense que sa devrais fonctionner, le
et régler sur 1 minute à toi après de le changer si cela te convient pas .
cordialement
bidouiller à la va vite est non testé.
ajoute sa:
tcl
# Envoie de la Citation sur le Salon
bind time - "0* * * * *" AutoMsgVdm
proc AutoMsgVdm {{minute "1"} {hour "0"} {day "0"} {week "0"} {year "0"}} {
global botnick
foreach chan $vdm::allowed_chans {
if {[botisop $chan] && ![botisop $chan]} {continue}
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 {\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"
}
}
}
je pense que sa devrais fonctionner, le
tcl
bind timeet régler sur 1 minute à toi après de le changer si cela te convient pas .
cordialement