Communauté sur les Eggdrops - Community about Eggdrops
TCL : récupération de l'username dans un $uhost - Printable Version

+- Communauté sur les Eggdrops - Community about Eggdrops (https://forum.eggdrop.fr)
+-- Forum: Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum: Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Thread: TCL : récupération de l'username dans un $uhost (/showthread.php?tid=997)



TCL : récupération de l'username dans un $uhost - mecmec - 27/07/2011

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.


RE: TCL : récupération de l'username dans un $uhost - CrazyCat - 27/07/2011


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




RE: TCL : récupération de l'username dans un $uhost - mecmec - 27/07/2011

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.


RE: TCL : récupération de l'username dans un $uhost - djkenny - 27/07/2011

salut


tcl
set test [string replace $ident 0 1]




RE: TCL : récupération de l'username dans un $uhost - mecmec - 27/07/2011

ok merci je test !


RE: TCL : récupération de l'username dans un $uhost - mecmec - 27/07/2011

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.


RE: TCL : récupération de l'username dans un $uhost - mecmec - 27/07/2011

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.