18/07/2010, 15:44
re ,
Bha , plus haut,dans le TCL j'ai ça perso :
Bha , plus haut,dans le TCL j'ai ça perso :
tcl
# -> Tout les combiens de minutes voulez vous que la publicité soit envoyé ?
proc ::AutoMsgVdm {min hour 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 <---- ici l'ancienne ligne commentée,
##### puis dessous celle modifiée.
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 #chanlog : blablablablablablablablalba"