Soucis de majuscules.

[aliasangelius]

Bonjour,

Voilà j'ai un soucis sur la prise en charges des majuscules lors d'un enregistrement.

Donc je tape la commande /msg Resa register TestPseuDo TestPseuDo unpass
Et sa me dit bien que la commande à était effectué.
Par contre lorsque je désire me connecté pour que sa prenne en charge la réservation de pseudo sa ne fonctionne pas.

J'ai fait des testes sur des pseudos en minuscules et celà fonctionne très bien.
Par contre avec des majuscules cela ne fonctionne pas.

Voici le code.

tclcopier

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"
             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"
          }
        }