+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Sujet : soucis avec irix (/showthread.php?tid=980)
soucis avec irix - lesny - 29/06/2011
bonjour voilà j'ai une copie de IriX en tcl mais le souscis que je rencontre et que quand je souhaite enregistré un channel avec mon pseudo qui est donc lesny j'ai cette erreur la
[20:19] -IriX- le mask est trop imprécis , recommencé avec plus d'information , minimum 10 caractères.
j'ai voulu modifier cette ligne la
tcl
if {[string length $param] < 10} {
et mettre
tcl
if {[string length $param] < 4} {
j'ai rehash et restart mais ça ne fonctionne pas je vous joint le tcl
RE: soucis avec irix - djkenny - 29/06/2011
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
}
...RE: soucis avec irix - lesny - 29/06/2011
heu c'est bien dans cette parti la que j'ai modifier le code que j'ai donner plus haut dj-kenny
et ça n'a pas fonctionner
RE: soucis avec irix - djkenny - 29/06/2011
toi t as ca
tcl
if {[string length $param] < 10} {
moi je vois ca
tcl
if {[string length $arg3] < 10} {
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
}
RE: soucis avec irix - lesny - 29/06/2011
ha merci djkenny tu as raison c'est bien moi qui avais mal vue merci beaucoup par contre quand je restart le bot j'ai cette erreur là
tcl
Erreur tcl [event_cs]: can't read "cs(idx)": no such variable
RE: soucis avec irix - djkenny - 29/06/2011
il me semble qu il faut dabord die irix avant de restart l eggdrop