problème sur un principe de tcl [résolu]

[systak]

bonjour tout le monde donc voilà le morceau de code qui va suivre est juste un petit exercice pour moi pour comprendre bien proprement comment fonctionne une exception dans un bind donc voilà le bind que je test de faire

principe une liste de nick admin a ne pas pouvoir kick ou meme de host
problème aucune réaction

Code :

set nadmin "Orion,systak,test"


bind pub - !xkick kick

proc kick {nick uhost hand chan arg} {
    global nadmin hadmin
    set n0 [lindex $arg 1]
    set c0 [lindex $arg 2]
        foreach nadmin $nadmin {
        if {[string match -nocase $nadmin]}  {
  putquick "kick $c0 $n0 kicked"
  }
}
}

je précise oui je débute vraiment sur ce sujet xD
merci de votre aide

[CrazyCat]

Le but est donc, si je comprends bien, de kicker une personne sauf si elle est dans la liste ?

Le parcours du tableau est un peu excessif alors que tu peux rechercher directement dans la liste, et en plus il est faux: tu ne compares rien dans ton "string match", et il y a un problème de logique.
Imaginons que tu fasses !xkick systak, lorsque tu vas parcourir ton tableau, le premier item rencontré sera Orion, donc rien n'interdit (à ce moment) de kicker systak, ce qui sera fait. Le second bloquera (mais trop tard) et le troisième autorisera (et un kick sera fait sur un utilisateur déjà absent).

Voici plutôt ce que j'imagine:

tclcopier

set nadmin "Orion,systak,test"
bind pub - !xkick kick
proc kick {nick uhost hand chan arg} {
   set n0 [string tolower [lindex $arg 0]]
   set protected [split [string tolower $::nadmin] ","]
   if {[lsearch $protected $n0] == -1} {
      putquick "kick $chan $n0 kicked"
   }
}

[systak]

merci bien pour les explications :) je vais m exerce a tout sa :)

[systak]

j'ai essayer avec ce que tu a mis la j'ai une réponse en pl

[19:41] Tcl error [kick]: wrong # args: no script following "{[lsearch $protected $n0] == -1}" argument

de plus en regardant le code tout a l'heure a la fin tu met

}
} tu a donc un } en trop ou bien tu a oublie il ligne xD lol et la je doit dire que je comprend pas le retour en pl :s

[heretoc]

Comme il ta dit ces comme il l'imagine donc ce n'est pas forcement un code fonctionnel juste de quoi te permettre de te debrouiller.

[MenzAgitat]

il manque un "{" :

tclcopier

set nadmin "Orion,systak,test"
bind pub - !xkick kick
proc kick {nick uhost hand chan arg} {
   set n0 [string tolower [lindex $arg 0]]
   set protected [split [string tolower $::nadmin] ","]
   if {[lsearch $protected $n0] == -1} {
      putquick "kick $chan $n0 kicked"
   }
}

[systak]

héhé merci MenzAgitat c'est vrai que la en voyant la correction je me suis ouaaaa trop bête ^^'

[CrazyCat]

J'ai modifié mon exemple pour le corriger, désolé de cette bévue :)

[systak]

looool CrazyCat t'inquiète c'était ironique biensure hein mon niveau reste très bas mais je bidouille on va dire xD pas toujours dans l'ordre des choses certes mais bon :p mais effectivement je suis arrive a ce que je voulais faire me reste 2 ou 3 fixe a faire sur le group de tcl mais c'est sur la bonne voix :)