demande de compression du code si possible

[Ahinu]

* 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

tclcopier

"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)"
						}
					}
				}