besoin d'un petit plus avec load.tcl

[loulou7593]

Voila j'ai mis ca comme ca

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]]
   if {$nom_config_file == ""} {
      putdcc $idx "#LOADTCL# Vous devez OBLIGATOIREMENT lire et completer ce qui est demandé dans le fichier \002loadtcl.tcl\002 !!"
      return 0
   }
   if {![file exists $nom_config_file]} {
      putdcc $idx "#LOADTCL# Le fichier $nom_config_file n'existe pas !"
      return 0
   }
   if {![file exists $fichier_tcl]} {
      putdcc $idx "#LOADTCL# Le fichier $fichier_tcl n'existe pas !"
      return 0
   }
   if {![file readable $fichier_tcl]} {
      putdcc $idx "#LOADTCL# Le fichier $fichier_tcl ne peut etre lu (verifie les droits peut-etre) !"
      return 0
   }
   if {[file type $fichier_tcl] != "file"} {
      putdcc $idx "#LOADTCL# Pour moi, $fichier_tcl n'est pas un fichier !"
      return 0
   }   
   set fd [open $nom_config_file r]
   while {[eof $fd] != 1} {
      set loadvar($lct) [gets $fd]
      if {[string range $loadvar($lct) 0 14] == "source scripts/"} {
         set ici $lct
      }      
      set lct [expr $lct + 1]
   }
   close $fd
   file copy -force $nom_config_file svg_config_file.loadtcl
   set fw [open $nom_config_file w+]
   set lct [expr $lct - 1]
   set i 0
   while {$i <= $lct} {
      if {$i == $ici} {
         puts $fw "source $fichier_tcl"
      }   
      puts $fw $loadvar($i)
      set i [expr $i + 1]
   }
   close $fw
   putdcc $idx "#LOADTCL# \002$fichier_tcl\002 correctement chargé (le fichier de config d'origine a été copié en \003svg_config_file.loadtcl\003 !), rehash en cours ..."
   source $fichier_tcl
   return 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]]
   if {$nom_config_file == ""} {
      putdcc $idx "#LOADTCL# Vous devez \003OBLIGATOIREMENT\003 lire et completer ce qui est demandé dans le fichier \002loadtcl.tcl\002 !!"
      return 0
   }
   if {![file exists $nom_config_file]} {
      putdcc $idx "#LOADTCL# Le fichier $nom_config_file n'existe pas !"
      return 0
   }
   if {![file exists $fichier_tcl]} {
      putdcc $idx "#LOADTCL# Le fichier $fichier_tcl n'existe pas !"
      return 0
   }
   if {![file readable $fichier_tcl]} {
      putdcc $idx "#LOADTCL# Le fichier $fichier_tcl ne peut etre lu (verifie les droits peut-etre) !"
      return 0
   }
   if {[file type $fichier_tcl] != "file"} {
      putdcc $idx "#LOADTCL# Pour moi, $fichier_tcl n'est pas un fichier !"
      return 0
   }
   set fd [open $nom_config_file r]
   while {[eof $fd] != 1} {
      set loadvar($lct) [gets $fd]
      if {[string range $loadvar($lct) 0 end] == "source $fichier_tcl"} {
         set ici $lct
      }      
      set lct [expr $lct + 1]
   }
   close $fd
   if {$ici == ""} {
      putdcc $idx "#LOADTCL# \002$fichier_tcl\002 n'est pas dans le fichier de config !"
      return 0
   }
   file copy -force $nom_config_file svg_config_file.loadtcl
   set fw [open $nom_config_file w+]
   set lct [expr $lct - 1]
   set i 0
   while {$i <= $lct} {
      if {$i != $ici} {
         puts $fw $loadvar($i)
      }   
      set i [expr $i + 1]
   }
   close $fw
   putdcc $idx "#LOADTCL# \002$fichier_tcl\002 correctement viré (le fichier de config d'origine a été copié en \003svg_config_file.loadtcl\003 !), rehash en cours ..."
   rehash
   return 0
}

Mais quand je tape en pl .unloadtcl kikoulol.tcl ca m'indiqu cette erreure

[22:44] Tcl error [dcc:unloadtcl]: can't read "text": no such variable

Et je voulais etre sur en tapant .loadtcl kikoulol.tcl ca me l'ajouteras dans mon fichier eggdrop
en format

tclcopier

source scripts/[register_script kikoulol.tcl]

???