Vous n'êtes pas identifié(e).

Top posteurs

Statistiques

Partenaires

  • eXolia Hosting
  • Eggdrop.fr

#1 09/11/2012 04:41:21

Fantöm
Nouveau IRCzien
Lieu : Jupille-Sur-Meuse Liége
Inscription : 20/04/2012
Messages : 15

[Résolu] Problème avec du TCL

Bonsoir,

Voila j'ai ce problèmes qui revient a plusieurs reprise :

Code:
[03:36:36] Erreur tcl [event]: unmatched open quote in list

Voici le déclencheur :

Code:
[03:36:36] :Snobi PRIVMSG #jeux :ACTION chante pour Rukia " 2Je Sé pAs CoMMent te DiRe 7 cE qUe jE PeuX PAs éCRirE3 FauDRaiS Qu J'inVeNTe DeS mOtS 12 QuI eXisTe Pas daNS le DiCo 10 C'eSt tOi Que Je t'AimE; 10 VaCHemenT BeauCouP 6\"
[03:36:36] Erreur tcl [event]: unmatched open quote in list

Voici le évent :

Code:
#########
# EVENT #
#########

proc event {idx arg} {
set arg [split $arg]
set arg [debug $arg]
putlog "$arg"
if {[lindex $arg 0]=="PING"} { putdcc $::pooshy(idx) "PONG [lindex $arg 1]" }
if {[lindex $arg 1] eq "PRIVMSG"} {
set cmd "[string trim [lindex $arg 3] :]"
set nick "[string trim [lindex $arg 0] :]"
set nickto "[lindex $arg 2]"

J'ai un peux de mal a trouvé d'ou peux venir cette erreur

Merci d'avance

Hors ligne

#2 09/11/2012 11:31:31

Fantöm
Nouveau IRCzien
Lieu : Jupille-Sur-Meuse Liége
Inscription : 20/04/2012
Messages : 15

Re : [Résolu] Problème avec du TCL

Bonjour,

Y a t'il une solution ? pour la protection des " dans les phrases ?

Dernière modification par Fantöm (09/11/2012 11:49:04)

Hors ligne

#3 09/11/2012 12:19:49

Diogene
IRCzien
Lieu : Le Mans
Inscription : 09/07/2011
Messages : 179

Re : [Résolu] Problème avec du TCL

Fantöm a écrit :

:Snobi PRIVMSG #jeux :ACTION chante pour Rukia " 2Je Sé pAs CoMMent te DiRe 7 cE qUe jE PeuX PAs éCRirE3 FauDRaiS Qu J'inVeNTe DeS mOtS 12 QuI eXisTe Pas daNS le DiCo 10 C'eSt tOi Que Je t'AimE; 10 VaCHemenT BeauCouP 6\"

Suggestion...
proc event {idx arg} {
  set arg [split $arg]
  set arg [debug $arg]
  set u "\037"
  set r "\026"
  set b "\002"
  set k "\003"
  regsub -all $u $arg "" arg
  regsub -all $r $arg "" arg
  regsub -all $b $arg "" arg
  regsub -all {\003([0-9]{1,2})(,[0-9]{1,2})?} $arg "" arg
  regsub -all $k $arg "" arg
  regsub -all {\\} $arg {\\\\} arg
  regsub -all {\{} $arg {\{} arg
  regsub -all {\}} $arg {\}} arg
  regsub -all {\]} $arg {\]} arg
  regsub -all {\[} $arg {\[} arg
  regsub -all {\"} $arg {\"} arg
  putlog "$arg"
  if {[lindex $arg 0]=="PING"} { putdcc $::pooshy(idx) "PONG [lindex $arg 1]" }
  if {[lindex $arg 1] eq "PRIVMSG"} {
    set cmd "[string trim [lindex $arg 3] :]"
    set nick "[string trim [lindex $arg 0] :]"
    set nickto "[lindex $arg 2]"

Dernière modification par Diogene (09/11/2012 13:51:50)


Mieux vaut mourir incompris que passer sa vie à s'expliquer. [William Shakespeare]

Bon, c'est Diogene, mais c'est un humain malgré tout [CrazyCat]

Hors ligne

#4 09/11/2012 18:04:56

Fantöm
Nouveau IRCzien
Lieu : Jupille-Sur-Meuse Liége
Inscription : 20/04/2012
Messages : 15

Re : [Résolu] Problème avec du TCL

Super Merci Diogene

Hors ligne

#5 09/11/2012 19:08:26

Artefact
IRCzien
Lieu : Paris
Inscription : 06/09/2011
Messages : 140

Re : [Résolu] Problème avec du TCL

Un petit Pooshy en socket, bonne programmation smile

Cordialement,
Artefact

Hors ligne

#6 11/11/2012 17:50:56

Fantöm
Nouveau IRCzien
Lieu : Jupille-Sur-Meuse Liége
Inscription : 20/04/2012
Messages : 15

Re : [Résolu] Problème avec du TCL

Merci ArteFact,

Pour le moment ceci fonctionne le Link et stables

Par contre y a des soucis avec les sockets de pooshy-Delta qui scan partout alors qu'il ne doive scan que dans leur canal bien défini

Hors ligne

#7 11/11/2012 18:02:38

Diogene
IRCzien
Lieu : Le Mans
Inscription : 09/07/2011
Messages : 179

Re : [Résolu] Problème avec du TCL

Tu reprends/corrige un service déjà existant ou tu le codes toi même de A à Z?!


Mieux vaut mourir incompris que passer sa vie à s'expliquer. [William Shakespeare]

Bon, c'est Diogene, mais c'est un humain malgré tout [CrazyCat]

Hors ligne

#8 11/11/2012 18:33:43

Fantöm
Nouveau IRCzien
Lieu : Jupille-Sur-Meuse Liége
Inscription : 20/04/2012
Messages : 15

Re : [Résolu] Problème avec du TCL

J'ai repris le Tcl de Platine

Hors ligne

Pied de page des forums

474725 visites ( 218 aujourd'hui ) 3 visiteurs en ligne
Copyright © 2004 - 2013 IRCz