Codage TCL - Socket incorporé

[KeeViiNou]

Merci

---

J'ai un soucis, peut-etre que j'ai mal codé..

tclcopier

######################
# Configuration Link #
######################
 
set bela(link)    "Adresse-du-link"
set bela(info)    "Info-du-link"
set bela(host)    "Host-du-link"
set bela(ip)       "Ip-du-link"
set bela(port)    "Port-du-link"
set bela(pass)    "Mot-de-passe-du-link"
set bela(pseudo)   "Pseudo-du-robot"
set bela(real)    "Realname-du-robot"
set bela(ident)    "Ident-du-robot"
set bela(salon)    "Salon-du-robot"
set bela(mode)    "+oOSqsw"
 
# Socket #
set Bot(bot) "bara"
set lBot(nickserv) "NickServ"
set Bot(bot2) "Bela"
set Bot(bot3) "Boleslava"
set Bot(bot4) "Dobromila"
set Bot(bot5) "Elena"
set Bot(bot6) "Drahoslava"
set Bot(bot7) "Ivana"
set Bot(bot8) "Jaromíra"

 
######################
## LANCEMENT SOCKET ##
######################
proc connexion {} {
   global bara
   if {![catch "connect $bara(ip) $bara(port)" bara(idx)]} {
      putdcc $bara(idx) "PASS $bara(pass)"
      putdcc $bara(idx) "SERVER $bara(link) 1 :$bara(info)"
      putdcc $bara(idx) ":$bara(link) NICK $bara(pseudo) 1 [unixtime] $bara(ident) $bara(host) $bara(link) :$bara(real)"
      putdcc $bara(idx) ":$bara(pseudo) MODE $bara(pseudo) $bara(mode)"
      putdcc $bara(idx) ":$bara(pseudo) JOIN $bara(salon)"
      control $bara(idx) event; utimer 30 verification
   }
}
 
proc connexion {} {
   global bela
   if {![catch "connect $bela(ip) $bela(port)" bela(idx)]} {
      putdcc $bela(idx) "PASS $bela(pass)"
      putdcc $bela(idx) "SERVER $bela(link) 1 :$bela(info)"
      putdcc $bela(idx) ":$bela(link) NICK $bela(pseudo) 1 [unixtime] $bela(ident) $bela(host) $bela(link) :$bela(real)"
      putdcc $bela(idx) ":$bela(pseudo) MODE $bela(pseudo) $bela(mode)"
      putdcc $bela(idx) ":$bela(pseudo) JOIN $bela(salon)"
      control $bela(idx) event; utimer 30 verification
   }
}
proc connexion {} {
   global Boleslava
   if {![catch "connect $Boleslava(ip) $Boleslava(port)" Boleslava(idx)]} {
      putdcc $Boleslava(idx) "PASS $Boleslava(pass)"
      putdcc $Boleslava(idx) "SERVER $Boleslava(link) 1 :$Boleslava(info)"
      putdcc $Boleslava(idx) ":$Boleslava(link) NICK $Boleslava(pseudo) 1 [unixtime] $Boleslava(ident) $Boleslava(host) $Boleslava(link) :$Boleslava(real)"
      putdcc $Boleslava(idx) ":$Boleslava(pseudo) MODE $Boleslava(pseudo) $Boleslava(mode)"
      putdcc $Boleslava(idx) ":$Boleslava(pseudo) JOIN $Boleslava(salon)"
      control $Boleslava(idx) event; utimer 30 verification
   }
}
 
 proc connexion {} {
   global Dobromila
   if {![catch "connect $Dobromila(ip) $Dobromila(port)" Dobromila(idx)]} {
      putdcc $Dobromila(idx) "PASS $Dobromila(pass)"
      putdcc $Dobromila(idx) "SERVER $Dobromila(link) 1 :$Dobromila(info)"
      putdcc $Dobromila(idx) ":$Dobromila(link) NICK $Dobromila(pseudo) 1 [unixtime] $Dobromila(ident) $Dobromila(host) $Dobromila(link) :$Dobromila(real)"
      putdcc $Dobromila(idx) ":$Dobromila(pseudo) MODE $Dobromila(pseudo) $Dobromila(mode)"
      putdcc $Dobromila(idx) ":$Dobromila(pseudo) JOIN $Dobromila(salon)"
      control $Dobromila(idx) event; utimer 30 verification
   }
}
################
# Verification #
################
 
if {![info exists bara(idx)]} { connexion }
 
proc verification {} {
   global bara
   if {[valididx $bara(idx)]} { utimer 30 verification } else { connexion }
}
}
#############
# Evenement #
#############
 
proc event {idx arg} {
   global bara
   set arg [split $arg]
   if {[lindex $arg 0]=="PING"} { putdcc $idx "PONG [lindex $arg 1]" }
}

Et j'ai une erreur

can't read "Dobromila(ip)": no such variable
while executing
"catch "connect $Dobromila(ip) $Dobromila(port)" Dobromila(idx)"
(procedure "connexion" line 3)
invoked from within
"connexion "
invoked from within
"if {![info exists bara(idx)]} { connexion }"
(file "scripts/socket.tcl" line 83)
invoked from within
"source scripts/socket.tcl"
(file "socket.conf" line 107)
[10:26:10] * FICHIER DE CONFIGURATION NON CHARGE (INTROUVABLE OU ERREUR)