Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


[script] Chuck Norris facts fr
#1
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
  Reply
#2
Merci pour ce TCL qui va ravir tous les fans :D
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
  Reply
#3
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.
  Reply
#4
peut tu nous montrer l'erreur indiquer stp ?
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.
  Reply
#5
Je suis désolé mais apparemment ça marche je n'ai plus d'erreur encore désolé.
  Reply
#6
[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
  Reply
#7
c'est regler javais pas le http.tcl de installer
  Reply
#8
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
  Reply
#9
Merci de la réactivité, quand je pense qu'à l'origine certains (hum hum, pchevee...) ne pensaient pas à te contacter :)
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
  Reply
#10
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.
Toute l'actualité de mes scripts ici     (dernière mise à jour le 22/04/2020)

Tout programme comporte au moins un bug et pourrait être raccourci d'au moins une instruction, de quoi l'on peut déduire que tout programme peut être réduit à une seule instruction qui ne fonctionne pas.
  Reply
#11
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.
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
  Reply
#12
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


irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
  Reply
#13
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 ;)
  Reply
#14
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.
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
  Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)