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] Vie de merde (VDM)
#16
Bewess,

Pour répondre à ta demande sur la page "Motus" :

Quote:Par contre pour le vdm j'ai toujours la même erreur : Tcl error [::vdm:ub_disp_vdm]: invalid command name "::http::config"
J'ai donc dl l' tcl de fedora ici et j'ai rajouter l'tcl http.tcl mais cela marche pas.

Pour le VDM, j'ai ajouté dans le fichier "eggdrop.conf" la ligne " source scripts/http.tcl "
#17
bonsoir

j'ai fait pareil et j'ai la meme erreur :s
Gilles
#18
Bewess,
Par contre, après avoir mis le http.tcl, et sa ligne dans eggdrop.conf, j'ai remis la version 1.1, et non celle de fedora (car ça ne fonctionnait pas)..

Et une relance totale de l'eggdrop...

Et ça a marché...
#19
Bonsoir
cela marche avec la version de fedora et un autre eggdrop :p

Merci a vous ;)
Gilles
#20
ravie que sa fonctionne .je tien a dire comme meme que ce n'est pas mon TCL mdr c'est juste la version supérieur tout simplement et rien de plus .
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.
#21
Bonjour,

Tout d'abord merci à vous pour les tcl et vos explications c'est vraiment génial.

En installant le tcl tout se passe bien apres le rehash et quand je tape !vdm j'ai une erreur :

[09:54] Tcl error [::vdm::pub_disp_vdm]: invalid command name "x"

Merci à vous pour votre aide.

Cordialement.
#22
bonjour,

à tu (je demande cela à toute hasard) chargé aussi le TCL http.tcl

essaye à toute hasard
vdm
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.
#23
Tout d'abord un grand merci pour ta réponse rapide.

Ensuite effectivement je te remercie quand je tape !vdm ça affiche une vdm aléatoire. Merci beaucoup car c'est pas la premiere fois que je rencontre la meme erreur sur d'autre scripts.

Celui qui tu viens de me passer marche mais en contre partie j'ai des erreurs

[13:26:31] <BarmanMix> [11:26] Tcl error in script for 'timer7':
[13:26:32] <BarmanMix> [11:26] can't read "instance(#Radio`FreeMixvdm)": no such element in array

Juste avant j'ai eu timer6 timer 5 etc... et surtout quand je rehash.

En tout cas un grand bravo et merci à toi même si j'ai ces erreurs ça marche :p
#24
Il semblerait que je n'ai plus l'erreur depuis quelques minutes.

Encore un grand merci à toi.

P.S. L'erreur venait d'ou svp ? vu que ça me l'a deja fait sur d'autre scripts.
#25
Il est possible que l'erreur vienne des timers, qui restent en place après un rehash ou rechargement du script (a vérifier)
Auquel cas il faut ajouter un script pour désinstaller les timers restant au rechargement
#26
Salut à tous

je voudrais savoir comment faire pour que le TCL VDM affiche automatiquement une citation toutes les "x" minute svp au lieu de taper !vdm ?

j'ai essayer avec un bind time ect .. mais ça veut rien savoir :( y 'aurai t'il une âme charitable svp
#27
Bonjour,

bidouiller à la va vite est non testé.
ajoute sa:


tcl
#  Envoie de la Citation sur le Salon 
 
 
bind time - "0* * * * *" AutoMsgVdm
 
proc AutoMsgVdm {{minute "1"} {hour "0"} {day "0"} {week "0"} {year "0"}} {
global botnick 
foreach chan $vdm::allowed_chans {
if {[botisop $chan] && ![botisop $chan]} {continue}
		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
			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"
		}
	}
  }


je pense que sa devrais fonctionner, le

et régler sur 1 minute à toi après de le changer si cela te convient pas .


cordialement
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.
#28
Oupss ..

petite erreur remplace ceci

tcl
bind time - "0* * * * *" AutoMsgVdm
 
proc AutoMsgVdm {{minute "1"} {hour "0"} {day "0"} {week "0"} {year "0"}} {


par


tcl
bind time - "* * * * *" AutoMsgVdm
 
proc AutoMsgVdm {{minute "01"} {hour "0"} {day "0"} {week "0"} {year "0"}} {


je vient de tester est ça fonctionne très bien toutes les 1 minutes

(désoler pour le double poste)

cordialement
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.
#29
Bonsoir :)

Je viens de tester et il me sors cela comme erreur en pl
Tcl error [AutoMsgVdm]: extra characters after close-quote
J'aurais fait une erreur quelque part ?

Bonne fin de journée
:)
Gilles
#30
normal étant donné que tu à fait un copier coller ta ajouter les
tcl
\

donc remplace les par \ ! regarder un peut quand vous faite des copier coller .
ensuite sa était fait à la va vite donc faut pas vous attendre à des miracles !! voir peut etre si une version aura cet option ..
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.


Forum Jump:


Users browsing this thread: 1 Guest(s)