Communauté Eggdrop

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.

tcl

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

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.

salut

tcl

set test [string replace $ident 0 1]

ok merci je test !

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.

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.

mecmec

CrazyCat

mecmec

djkenny

mecmec

mecmec

mecmec