Soucis de majuscules.

[aliasangelius]

Bah j'ai fait comme sa en modifiant :

tclcopier

proc controling_server {idx arg} {
   variable OperServ
   set arg1 [lindex [split $arg " "] 0]
   set arg2 [lindex [split $arg " "] 1]
   set arg3 [lindex [split $arg " "] 2]
   set arg4 [lindex [split $arg " "] 3]
   set arg5 [lindex [split $arg " "] 4]
   set arg6 [lindex [split $arg " "] 5]
   set arg7 [lindex [split $arg " "] 6]
   set arg8 [lindex [split $arg " "] 7]
   set arg10 [string trim [lrange [split $arg " "] 3 end] :]
   set event [lindex $arg 1]
   set nick [string trim [lindex $arg 0] :]
   set pseudo "[string trim $arg1 :]"
   set commande [string trim [lindex $arg 3] :]
   set destinataire [lindex $arg 2]
   if {$arg2=="PING"} {
      putdcc $OperServ(idx) ":$OperServ(serv) PONG $OperServ(ip) :$OperServ(serv)"
    }
    if {$event=="PRIVMSG"} {
      if {$destinataire=="$OperServ(nick)"} {
         if {$commande=="VERSION"} {
            putdcc $OperServ(idx) ":$OperServ(nick) NOTICE $pseudo :[::msgcat::mc m7]"
            putdcc $OperServ(idx) ":$OperServ(nick) PRIVMSG $OperServ(log) :[::msgcat::mc m5] [::msgcat::mc m8] \037\0034$pseudo\037\0034"
         }
      }
    if {$destinataire=="$OperServ(nickp)"} {
          if {$commande=="register"} {
             set arg [split $arg]
             set dir [lindex $arg 4]
             set dir [::nickdebug $dir]
             set configs(nickdir) "/home/ircshell/ircd/Nick"
             set pseudo [string tolower $pseudo]
             if {$dir==""} {
                putdcc $OperServ(idx) ":$OperServ(nickp) NOTICE $pseudo :[::msgcat::mc m9]"
                return
             }
             file dirname $configs(nickdir)/$dir
             if [file exist $dir] {
                putdcc $OperServ(idx) ":$OperServ(nickp) NOTICE $pseudo :[::msgcat::mc m10]"
                return
             }
             set dir $configs(nickdir)/$dir
             catch {exec mkdir $dir}
             set fo "[open $dir/identd.txt w]"
             puts -nonewline $fo [lindex $arg 5]
             close $fo
             set fo "[open $dir/clef-reg.txt w]"
             puts -nonewline $fo [lindex $arg 6]
             close $fo
             putdcc $OperServ(idx) ":$OperServ(nickp) NOTICE $pseudo :[::msgcat::mc m12] [::msgcat::mc m13]"
             putdcc $OperServ(idx) ":$OperServ(nick) PRIVMSG $OperServ(log) :[::msgcat::mc m5] [::msgcat::mc m11] \037\0034$pseudo\037\0034"
          }
        }
} }

Mais cela na pas fonctionner.
J'ai même tenter de faire un :

tclcopier

if {[string tolower $pseudo]} {
....

Résultat pareil et j'ai même tenter de faire lors de l'ouverture (open) de rajouter le string tolower $pseudo.
Mais pareil rien n'as fonctionné.

Edit : Je n'avais pas mis le code complet. La c'est bon tout et mis.