29/06/2011, 20:37
salut,
si je me souviens bien c est la commande adminreg?
si oui tu n'as pas modifié la bonne ligne:
si je me souviens bien c est la commande adminreg?
si oui tu n'as pas modifié la bonne ligne:
tcl
...
if {[join $action] == "adminreg"} {
if {[join $arg1] == "" || [join $arg2] == "" || [join $arg3] == "" || [join $arg4] == ""} {
do NOTICE [join $nick] "Syntaxe: ADMINREG <#salon> <Login> <Host/mask> <mot-de-passe>"
return
}
if {[accord_csa "adminreg" [join $arg1] [join $nick]] == 1} {
if {[verify [join $arg1]] == 1} {
do NOTICE [join $nick] "Ce salon est déja enregistrer."
return
}
if {![string match *!*@* $arg3]} {
do NOTICE [join $nick] "Erreur dans le mask il doit être de la forme Pseudo!Ident@Host"
do NOTICE [join $nick] "Exemples Oracle*!*@* , Oracle*!*foo*@.fr , Oracle!foo@*.fr"
return
}
if {[string length $arg3] < 10} {
do NOTICE [join $nick] "le mask est trop imprécis , recommencé avec plus d'information , minimum 10 caratères."
return
}
if {[string length $arg4] < 6} {
do NOTICE [join $nick] "Le mot de passe doit contenir 5 caractère minimum."
return
}
...