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


[Résolu] Mettre un utimer sur isidentified
#1
Bonjour à tous,

Je suis entrain de faire une proc qui utilise isidentified :

tcl

Code:
bind join - * [namespace current]::joinvoice
proc joinvoice { nick host hand chan } {

::addvoice::service:connect
set res [mysqlsel $::mysqlink "SELECT count(*) FROM `voiceauto` WHERE pseudo='$nick' and salon='$chan'" -list]
set nb [lindex $res 0]
putlog "isidentified => $nick = [isidentified $nick]"
if {($nb >= 1) && ([isidentified $nick] == 1)} {
putlog "$nick est dans la bdd et identifié."

}
::addvoice::service:deconnect

}
La procédure fonctionne bien, mais j'ai besoin de mettre un utimer dans ma condition où je vérifie si l'utilisateur est identifié car il m'arrive de rejoindre le salon avant l'authentification à nickserv.

Vous pensez que je dois créer une autre proc où je stock la condition qui vérifie si il est présent dans la bdd et isidentified et je mets un utimer de 5 qui va déclencher cette proc, ou il y a une meilleure façon de faire plus simple.
  Reply


Messages In This Thread
Mettre un utimer sur isidentified - by Amand - 25/02/2022, 10:44

Possibly Related Threads…
Thread Author Replies Views Last Post
  msgcat, utimer et namespace, trio perdant ? CrazyCat 2 109 12/04/2022, 23:40
Last Post: ZarTek
  Tcl pour mettre des gens a certain poste KeeViiNou 4 4,729 28/12/2012, 10:33
Last Post: KeeViiNou
  Utimer mein 5 2,619 28/05/2010, 23:57
Last Post: mein
  Mettre les logs sur le net loulou7593 20 10,868 15/03/2010, 14:35
Last Post: CC30
  comment mettre une raison au kick avec lindex Babytigrou16 2 4,624 26/11/2007, 18:43
Last Post: Babytigrou16

Forum Jump:


Users browsing this thread: 1 Guest(s)