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


TCL : récupération de l'username dans un $uhost
#1
Bonjour,


Savez-vous comment il faudrait faire pour récuperer l'ident seulement dans un $uhost ?

le code que j'ai en ce moment c'est:


Code:
bind join - "*" join:verif
proc join:verif { nick uhost hand chan } {

global bb
if {$chan == "#test"} {
if {$bb(actif)=="1"} {
bb:connect    
set sql "SELECT * FROM infos WHERE session like '%%testident'"
set result [mysqlquery $bb(connect) $sql]
set count [mysqlresult $result rows]
        
if {$count == 0} { putserv "PRIVMSG #test :NOACCEPTED $nick " //commande gline }
if {$count == 1} { putserv "PRIVMSG #test :$nick est accepté."  }
##mysqlendquery $bb(query)
}
}
        
bb:deconnect
}
et l'username j'aimerais le mettre a la place de testident dans le LIKE '%%testident'"


Merci par avance.
#2

tcl
set ident [lindex [split uhost "@"] 0]

irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#3
ok merci , est-ce qu'il existe un systeme pour remplacer les 2 premiers caracteres de l'ident

exemple comme si que c'etait du php:


Code:
set ident [lindex [split $uhost "@"] 0]
set test substr($ident, 2, 0) // traduire en tcl

putserv "$test  affiche l'ident sans les 2 premier caracteres."

il faudrait un substr($ident, 2, 0) mais en tcl.


Merci, bonne soirée.
#4
salut


tcl
set test [string replace $ident 0 1]

C'est en reconnaissant ses erreurs que l'on progresse ;)
Away
#5
ok merci je test !
#6
c'est a peu prés ça qu'il me faut mais il récupére juste les 2 derniers caracteres

l'ident par exemple c'est: EP15423658
set test [string replace $ident 0 2]

et donc il faudrait qu'il ignore le "EP" et qu'il affiche "15423658" seulement c'est pour le LIKE de mysql car il faut surtout pas prendre le "EP".

Merci.
#7
ah si c'est bon merci, c'etait juste un probleme de vue car je croyais que l'ident etait plus grand j'avais mal compté les caracteres.

Bonne soirée.


Possibly Related Threads…
Thread Author Replies Views Last Post
  Récuperation de chaque ligne dans un .txt Epsilon 7 4,577 19/03/2017, 11:46
Last Post: CrazyCat
  [Demande] Script recupération dedicace sur une page web fedora 6 5,686 10/03/2015, 02:20
Last Post: angels
  Récupération de la liste de chan Moymoy 4 4,006 16/12/2013, 12:31
Last Post: Moymoy

Forum Jump:


Users browsing this thread: 1 Guest(s)