Soucis avec un tcl de sajoin

[KeeViiNou]

Bonjour j'ai un soucis avec le code suivant :

tclcopier

set vhostnivip {
	*@Root.Domaine.fr
	*@NetAdmin.Domainet.fr
	*@TechAdmin.Domaine.fr
	*@Operateur.Domaine.fr
    *@IrcOp.sDomaine.fr
	*@Fondateur.sDomaine.fr
}
 
set salonaide "#SAlon1"
set salonstaff "#SAlon2"
set salonadmin "#SAlon3"
set bureau "#SAlon4"
set ircops "#SAlon5"

###############
##  PUTFAST  ##################################################
## Améliore la vitesse des commandes mais peut etre instable ##
###############################################################
 
proc putfast {arg} {
 append arg "\n"
 putdccraw 0 [string length $arg] $arg
}

 
 
###############################################
########### JOIN SALON DE STAFF ###############
###############################################
##   Modifier les noms de salons si besoin   ##
###############################################
bind join - "*" mejoinircops
proc mejoinircops {nick host hand arg} {
global puwhois puwhowas chanip salonip vhostnivip
  foreach vhost $vhostnivip { 
  if [string match -nocase $vhost $host]  {
putquick "SAJOIN $nick $ircops"
    }  
  }
}
bind join - "*" mejoinadmin
proc mejoinadmin {nick host hand arg} {
global puwhois puwhowas chanip salonip vhostnivip
  foreach vhost $vhostnivip { 
  if [string match -nocase $vhost $host]  {
putquick "SAJOIN $nick $bureau"
    }  
  }
}
 
bind join - "*" mejoin
proc mejoin {nick host hand arg} {
global puwhois puwhowas chanip salonip vhostnivip
  foreach vhost $vhostnivip { 
  if [string match -nocase $vhost $host]  {
putquick "SAJOIN $nick $salonstaff"
    }  
  }
}
 
bind join - "*" mejoin2
proc mejoin2 {nick host hand arg} {
global puwhois puwhowas chanip salonip vhostnivip
  foreach vhost $vhostnivip { 
  if [string match -nocase $vhost $host]  {
putquick "SAJOIN $nick $salonadmin"
    }  
  }
}

Pourtant le tcl est bien en ircop

ROBOTX is an IRC Operator
Numeo is available for help.
Numeo is a Bot on DOMAINE

Voilà l'erreur

[13:19] <(Numeo> [13:19:24] Tcl error [mejoin2]: can't read "salonadmin": no such variable
[13:19] <(Numeo> [13:19:24] Tcl error [mejoin]: can't read "salonstaff": no such variable
[13:19] <(Numeo> [13:19:24] Tcl error [mejoinadmin]: can't read "bureau": no such variable
[13:19] <(Numeo> [13:19:24] Tcl error [mejoinircops]: can't read "ircops": no such variable

Modération : merci d'utiliser les balises code ou tcl pour mettre du script, pas quote.