Changement de realname au join

[heretoc]

Hello,
J'essaye actuellement de faire un petit tcl qui modifie automatiquement le realname des utilisateurs au join dans un salon ou ce tient le robot mais je coince ... etant donné que j'ai jamais vraiment utiliser les regex et les raw je me suis un peu perdu et mon code est invalide (il y a aucune réaction).

Voici mon code :

tclcopier

bin join -|- "*" realname
proc realname {nick uhost hand chan arg} {
	global Clam;
	set asv [lrange $arg 2 end]
	set name [lindex $arg 0]
	bind_raw - 311 msg_realname
	if {$asv == ""|| [regexp -nocase {^[1-7][0-9]\s(h|f)\s.*} $asv]} {
	putdcc $Clam(idx) ":$Clam(link) who $asv"
	putdcc $Clam(idx) ":$Clam(pseudo) PRIVMSG $Clam(admin) :Mauvais ASV >> $name >> $asv"
	return 1
	}
}
 
proc msg_realname {nick from keyword arg} {
global Clam realname asv
    if {[info exists realname] && ($keyword == 311)} {
	putdcc $Clam(idx) ":$Clam(link) SETNAME $nick $Clam(asv)"
	unbind raw - 311 msg_realname 
	unset realname
             unset asv
	}
}

Ps : $Clam(asv) est une valeur par defaut dans un fichier de config qui est de "20 H asv de defaut"

Merci aux gens qui vont m'aider.