besoin d'un petit plus avec load.tcl

[CrazyCat]

Tu peux essayer en modifiant ainsi:

tclcopier

set nom_config_file "experienza.conf"
 set basedir "scripts/"
 
bind dcc n loadtcl dcc:loadtcl
bind dcc n unloadtcl dcc:unloadtcl
 
proc dcc:loadtcl {handle idx text} {
   global loadvar lct nom_config_file
   set lct 0
   if {[lindex $text 0] == ""} {
      putdcc $idx "#LOADTCL# Commande : \002.loadtcl <nom_du_fichier>\002"
      return 0
   }
   set fichier_tcl [concat $::basedir [lindex $text 0]]
   ...
}
proc dcc:unloadtcl {handle idx arg} {
   global loadvar lct nom_config_file
   set lct 0
   set ici ""
   if {[lindex $arg 0] == ""} {
      putdcc $idx "#LOADTCL# Commande : \002.unloadtcl <nom_du_fichier>\002"
      return 0
   }
   set fichier_tcl [concat $::basedir [lindex $text 0]]
   ...
}