23/07/2012, 20:59
(Modification du message : 24/07/2012, 14:31 par 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.
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.
TCL
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"
}
}