Erreur inconnue et non signalée

[teck23]

tclcopier

bind raw - NOTICE sconnexion
proc sconnexion {from key arg} {
global botnick notc mod ctime
   set text [split $arg] 
   if {[join [lrange $text 2 5]] == "Notice -- Client connecting"} {
     set g_nick [lindex $text 9]
      set g_user [string range [lindex [split [lindex $text 10] "@"] 0] 1 end]
      set g_host [string range [lindex [split [lindex $text 10] "@"] 1] 0 end-1]
   set g_userhost "$g_nick!$g_user@$g_host"
   set connexion "$g_nick $g_host $ctime"
    putfast "PRIVMSG #serveur :\00301Connexion de:\00303 $g_nick \00301sous le host \00301$g_user\00304@\00301$g_host"
	}
   set logfichier [open "./scripts/connect.db" "a+"]
   puts $logfichier "$connexion"
   close $logfichier
   }
   return 0
   }
}

Il me detecte l'erreur dans la ligne 7 (une variable qui fonctionne trés bien dans le code) essaie le pour confirmer si tu veux, mais a chaque fois que je connecte un pseudo il me sort

Edit par CrazyCat: Merci de penser à utiliser les balises [ TCL ] et [ /TCL ] (sans les espaces)