VDM.tcl qui publie toutes les X minutes
#12
Code PHP :
bind time -|- {** * * *} ::AutoMsgVdm

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 $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 
{\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"
        
}
    }
  } 

Cordialement DnS
[font=Times New Roman]La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.[/font]
Répondre Avertir


Messages dans ce sujet
RE: VDM.tcl qui publie toutes les X minutes - par fedora - 08/04/2010, 08:45

Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté