Communauté Eggdrop

vdm.tcl

Description
Script permettant d'afficher une citation au hasard pris sur le site http://www.viedemerde.fr/ grâce a une commande publique, "!vdm" par exemple.


Editer les quelques paramètres de configuration avant de lancer le script.

Le script utilise son propre namespace dans le but de ne pas interférer avec d'autres scripts.

Le script est téléchargeable ici

merci pour ce TCL

bonsoir
je souhaiterai savoir si ceux qui ont le 'TCL VDM ont le meme souci que moi ?

Citation :<a href="/amour/11860" class="lienvdm">Aujourd'hui, le mec sur lequel j'avais flashé m'a enfin embrassé.</a><a href="/amour/11860" class="lienvdm"> Résultat son baisé est digne d'un poulpe.</a><a href="/amour/11860" class="lienvdm"> Le mythe tombe.</a><a href="/amour/11860" class="lienvdm"> VDM</a>

cordialement

Bonjour fedora.

En effet, tout le monde a le même problème que toi depuis cette semaine, car le site a (encore une fois) changé son payload de page html.

J'avais hésité a le publier vu la fréquence ou cela arrive et comme cela arrivera souvent d'autres fois, il faut s'adapter à ces changements réguliers.

Pour corriger cette nouvelle M... de VDM (c'est le même M) il faut ajouter les 2 lignes suivantes dans le code :

j'édite cette partie ce soir en revenant chez moi - merci de votre compréhension


Je mettrai a jour le fichier tcl à l'occasion.

++

Bon bn c'est pas possible d'éditer :

alors il faut rajouter après la ligne 129 (regsub {\n} $res "" res) :

regsub -all {<a href="[^\ ]+" class="lienvdm">} $res "" res
regsub -all {</a>} $res "" res

et ça résoudra le pbm jusqu'à ce que le site change une nouvelle fois son payload

merci beaucoup pour la correction galdinx
ça fonctionne .

cordialement

Question bête: pourquoi ne pas faire un "striptags" ?

En effet, il semble qu'on puisse remplacer la plupart des regsub par ta commande a toi donnant ainsi :

(...)
if {[::http::status $token] == "ok"} {
regexp {<div class="post">(.+?)</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 {
(...)

Je vais mettre une version tenant compte de ces modifs en ligne

Bonjour,

Depuis quelques jours, l'ancienne version 1.0 ne fonctionnait plus...
J'ai fait la mise à jour avec la version 1.1 du 12/03/2009, mais plus rien ne se passe avec la commande !vdm

Quelqu'un a le même souci ?

Merci.

bonjour,

as tu une erreur quelconque en pl ou autre ?

je te joins celui que j'ai qui fonctionne très bien sur mon salon change juste le salon et je pense que ça devrais être bon :

Bonjour fedora,

Aucune erreur ne s'annonce sur ce tcl en PL...
J'ai installé ta version, rien ne se passe...
Lors du rehash, il est bien installé :

Citation :[13:49] *VieDeMerde v1.1.20090312* par Galdinx et MenzAgitat ( http://www.boulets-roxx.com ) a été chargé.

Alors peut être que ça vient de chez l'hébergeur du bot...

Je continue à chercher...

Merci de ton aide pour ton tcl

bonjour
Fedora je viens de dl ton vdm mais il ne fonctionne pas avec moi, voici l'erreur en pl :
Tcl error [::vdm::pub_disp_vdm]: invalid command name "::http::config"

si vous pouviez m'éclairer
merci

bonjour,
met le tcl http.tcl

toujours meme erreur
:s

Je ne sais pas si ça peut aiguiller, mais avant avec la version 1.0 le bot ne possèdait pas le http.tcl, et le vdm fonctionnait bien sur le salon...

Il s'est arrêté de fonctionner il y a quelques jours avec la version 1.0 donc j'ai fait cette mise à jour avec la version 1.1.
Avec la nouvelle version 1.1, plus de fonction avec vdm...

Une fois mis le http.tcl, et un .rehash, ça remarche...

Merci Fedora