07/12/2012, 12:39
* Reseau: Orange
* Type de pseudo: nick ou nick|ext
* Fonction: privmsg via socket TCL
Demande: Est-il possible de simplifier le string match de ce code je m'explique:
si DANS $nick il y a "|" alors je split $nick | pour recuperé la valeur avant "|" pour crée nick2 afin de vérifié AUTRE je vérifie $nick.
Mon code me parait excessivement GROS pour une simple vérification ! Si quelqu'un à une idée, je suis preneur ! Je vous remercie d'avance
* Type de pseudo: nick ou nick|ext
* Fonction: privmsg via socket TCL
Demande: Est-il possible de simplifier le string match de ce code je m'explique:
si DANS $nick il y a "|" alors je split $nick | pour recuperé la valeur avant "|" pour crée nick2 afin de vérifié AUTRE je vérifie $nick.
Mon code me parait excessivement GROS pour une simple vérification ! Si quelqu'un à une idée, je suis preneur ! Je vous remercie d'avance
tcl
"PRIVMSG" {
set user [string trim [lindex $arg 0] :]
set nick [lindex [split $user !] 0]
set chan [string tolower [lindex $arg 2]]
set cmd [string trim [string tolower [lindex $arg 3]] :]
switch -exact $cmd {
"csauth" {
if [string match *|* $nick] {
set nick2 [lindex [split $nick |] 0]
if [iscsa $nick2] {
send ":$webs(socket:nick) PRIVMSG $webs(chan:log) :*** CSAUTH $nick"
send ":$webs(socket:nick) NOTICE $nick :MOTD $webs(chan:log) Bienvenue chez les CsAdmins de $webs(socket:nick)"
send ":$webs(socket:nick) INVITE $nick $webs(chan:log)"
}
} else {
if [iscsa $nick] {
send ":$webs(socket:nick) PRIVMSG $webs(chan:log) :*** CSAUTH $nick"
send ":$webs(socket:nick) NOTICE $nick :MOTD $webs(chan:log) Bienvenue chez les CsAdmins de $webs(socket:nick)"
send ":$webs(socket:nick) INVITE $nick $webs(chan:log)"
}
}
}
[Image: http://www.web-modules.net/upload/cache/...156/61.gif]
[ www.Ahinu.tk ]
Programmation TCL interprété via Eggdrop + package mysqltcl
=> TCL+SQL~PHP
@Nordnet.
[ www.Ahinu.tk ]
Programmation TCL interprété via Eggdrop + package mysqltcl
=> TCL+SQL~PHP
@Nordnet.