Problème d'authentification avec un script

[aliasangelius]

Salut,

Je pense pouvoir éclaircir ton soucis
Lorsque tu fait un .match *
Au niveau de toi en retour tu as quoi ?
Sinon test ce système d'authentification ci :

tclcopier

proc auth {nick host hand arg} {
    set arg [gbfilter $arg]
    set chan [lindex $arg 0]
    set pseudo [lindex $arg 0]
    set args [split $arg]
    set pass [lindex $args 1]
    if {[llength $args] != 2} {
        putserv "notice $nick :/msg $::botnick auth <pseudo> <pass>"
        return 0
    }
    if {[nick2hand $pseudo] eq "*"} {
        putserv "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
        retrun 0
    }
    if {![passwdok $pseudo $pass]} {
        putserv "notice $nick :\002Erreur :\002 Votre mot de pass ou/et votre pseudo est/sont incorrect(s) !"
        return 0
    }
    if {![string match -nocase [lindex [getuser $pseudo HOSTS] 0] "$nick!$host"]} {
        putserv "notice $nick :[\002Erreur :\002 Votre host ne correspond pas avec votre accès !"
        return 0
    }
    if {[getuser $pseudo XTRA AUTH] eq "ON"} {
        putserv "notice $nick :\002Erreur :\002 Vous êtes déjà authentifier !"
        return 0
    }
    if {[getuser $hand XTRA SUSPEND] eq "ON"} {
        putserv "notice $nick :\002Erreur :\002 Vous êtes suspendu !"
        return 0
    }
         puthelp "notice $nick :\0031\[AUTHENTIFICATION REUSSIE\]\0031 Vous êtes maintenant authentifié !"
         putserv "privmsg $GB::log :\00314Commande \0036\[\0033Auth\0036\] \0031par : \0034$hand"
         putquick "invite $nick $::GB::log"
         setuser $pseudo XTRA AUTH ON;
         setuser $hand XTRA SEEN [clock format [clock seconds] -format "le %d/%m/%Y à %Hh%M"]
         save
    return
}

---

Oups tromper désoler les lindex sont mal fait voici la correction :

tclcopier

proc auth {nick host hand arg} {
    set arg [gbfilter $arg]
    set pseudo [lindex $arg 0]
    set chan [lindex $arg 2]
    set pass [lindex $arg 1]
    set args [split $arg]
    if {[llength $args] != 2} {
        putserv "notice $nick :\002Erreur :\002 ( /msg $::botnick auth <pseudo> <pass> )"
        return 0
    }
    if {[nick2hand $pseudo] eq "*"} {
        putserv "notice $nick :[subst -nocommands -nobackslashes $::GB::msg(access)]"
        retrun 0
    }
    if {![passwdok $pseudo $pass]} {
        putserv "notice $nick :\002 Votre mot de pass ou/et votre pseudo est/sont incorrect(s) !"
        return 0
    }
    if {![string match -nocase [lindex [getuser $pseudo HOSTS] 0] "$nick!$host"]} {
        putserv "notice $nick :\002Erreur :\002 Votre host ne correspond pas avec votre accès !"
        return 0
    }
    if {[getuser $pseudo XTRA AUTH] eq "ON"} {
        putserv "notice $nick :\002Erreur :\002 Vous êtes déjà authentifier !"
        return 0
    }
    if {[getuser $hand XTRA SUSPEND] eq "ON"} {
        putserv "notice $nick :\002Erreur :\002 Vous êtes suspendu !"
        return 0
    }
         puthelp "notice $nick :\0031\[AUTHENTIFICATION REUSSIE\]\0031 Vous êtes maintenant authentifié !"
         putserv "privmsg $GB::log :\00314Commande \0036\[\0033Auth\0036\] \0031par : \0034$hand"
         putquick "invite $nick $::GB::log"
         setuser $pseudo XTRA AUTH ON;
         setuser $hand XTRA SEEN [clock format [clock seconds] -format "le %d/%m/%Y à %Hh%M"]
         save
    return
}

Sa devrais être mieux sinon je tu retourne toujours $chan en gros je pense que le soucis peut venir de là essaye si sa fonctionne ou pas :)