salut,
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
}
...
C'est en reconnaissant ses erreurs que l'on progresse ;)
toi t as ca
moi je vois ca
pour moi t as modifié la partie de code du addmask
tcl
if {[string tolower $option] == "addmask"} {
if {![string match *!*@* $param]} {
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 $param] < 10} {
do NOTICE [join $nick] "Votre mask est trop imprécis , recommencé avec plus d'information , minimum 10 caratères."
return
}
C'est en reconnaissant ses erreurs que l'on progresse ;)
il me semble qu il faut dabord die irix avant de restart l eggdrop
C'est en reconnaissant ses erreurs que l'on progresse ;)