Communauté sur les Eggdrops - Community about Eggdrops
[script] Chuck Norris facts fr - Printable Version

+- Communauté sur les Eggdrops - Community about Eggdrops (https://forum.eggdrop.fr)
+-- Forum: Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum: Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+---- Forum: Releases et support (https://forum.eggdrop.fr/forumdisplay.php?fid=20)
+---- Thread: [script] Chuck Norris facts fr (/showthread.php?tid=339)



[script] Chuck Norris facts fr - galdinx - 07/02/2009

chuck.tcl

Description :
Script permettant d'afficher un fact au hasard pris sur le site "http://chucknorrisfacts.fr/ grâce a une commande publique, "!chuck" par exemple. Le script stocke par ailleurs chacune des citations dans un fichier externe. Si le site est momentanément indisponible, le script pioche alors un fact aux hasard dans ceux déja collectés.

Pensez a éditer les paramètres et vérifier que le répertoire de la base de données existe dans votre système de fichier avant de le charger.

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

A télécharger ici


RE: Chuck Norris facts fr - CrazyCat - 08/02/2009

Merci pour ce TCL qui va ravir tous les fans :D


RE: [script] Chuck Norris facts fr - SethGueko95 - 30/08/2009

Bonjour,

J'adore ce site et chuck :p

Merci à toi pour ce tcl mais malheureusement quand je l'installe ça me met l'erreur commande name x invalide et ça m'affiche un message de contacter un administrateur :/

Merci encore.


RE: [script] Chuck Norris facts fr - fedora - 30/08/2009

peut tu nous montrer l'erreur indiquer stp ?


RE: [script] Chuck Norris facts fr - SethGueko95 - 30/08/2009

Je suis désolé mais apparemment ça marche je n'ai plus d'erreur encore désolé.


RE: [script] Chuck Norris facts fr - webislands - 16/09/2009

[12:47] Tcl error [::chuck::pub_disp_chuck]: invalid command name "::http::config"
jais celas comme erreure je vais voir ses quoi mais je trouve pas pourquoi


RE: [script] Chuck Norris facts fr - webislands - 16/09/2009

c'est regler javais pas le http.tcl de installer


RE: [script] Chuck Norris facts fr - galdinx - 02/08/2013

Bonjour.

Nouvelle version 1.1 publiée ce jour suite à modification du payload du site support :

1.1 - Adaptation du script suite à modification du payload du site support + corrections/optimisations/ajustements de code


Merci à pchevee pour nous l'avoir signaler.

A++

Galdinx


RE: [script] Chuck Norris facts fr - CrazyCat - 02/08/2013

Merci de la réactivité, quand je pense qu'à l'origine certains (hum hum, pchevee...) ne pensaient pas à te contacter :)


RE: [script] Chuck Norris facts fr - MenzAgitat - 02/08/2013

Il n'a en fait pas hésité à me contacter en pv à ce sujet, et j'ai fait remonter l'info à Galdinx.

Il faut savoir que c'est Galdinx l'auteur du script et que c'est lui qui le maintient. Je ne suis l'auteur que de quelques procs qu'il utilise, d'où le crédit qui m'est donné dans le script.


RE: [script] Chuck Norris facts fr - CrazyCat - 02/08/2013

Je te rajoute un poste de facteur ? :D
Mais sinon, il me semble que pchevee a fait un MP aux 2 personnes citées dans le script, tant mieux si ton coup de pouce a un peu fait avancer les chose, et encore merci à Galdinx d'avoir réagit.


RE: [script] Chuck Norris facts fr - CrazyCat - 21/03/2021

Pour faire fonctionner à nouveau le script...

Trouvez le bloc suivant:

tcl
regexp {class="factbody"(.+?)<div class="vote">} $retok res
regsub -all {class="factbody">} $res "" res
regsub -all {<div class="vote">} $res "" res


Remplacez-le par:

tcl
regexp {class="factbody"(.+?)<div class="points"} $retok res
regsub -all {class="factbody">} $res "" res
regsub -all {<div class="points"} $res "" res




RE: [script] Chuck Norris facts fr - Lrnt - 15/04/2021

Hello CrazyCat,

Je crains que le layout de la page a complètement changé depuis lors car le script renvoie "[Chuck Facts - ERREUR] Le site retourne une information non traitable."
Et c'est vrai qu'en regardant l'html, je n'y vois plus aucune classe "factbody" ou "points". 

Je chercherais bien toute l'après-midi pour comprendre cette regexp, mais pourquoi me priver de la compétence d'experts clairement à l'aise avec tout ça :p
J'étudierai la chose par la suite :)

Merci pour ton/votre aide et votre travail, à toi et à MenzAgitat ;)


RE: [script] Chuck Norris facts fr - CrazyCat - 16/04/2021

A priori, ça a bien changé.
Les 3 lignes peuvent être remplacées par:

tcl
regexp {<p class="card-text">([^<]+)</p>} $retok - res


L'utilisation de (.+) ne va pas car on trouve dans la page un <p class="card-text"></p> qui perturbe le fonctionnement.