bind msg -|- auth auth
proc auth {nick uhost hand arg } {
    global botnick pooshy
    set password [lindex $arg 0]
    if {$password==""} {
        putdcc $pooshy(idx) ":$pooshy(nick) NOTICE $nick :\2Syntax:\2 /msg $botnick auth <pass>."
        return 0
    }
    if {[passwdok $hand ""]} {
        putdcc $pooshy(idx) ":$pooshy(nick) NOTICE $nick :Votre mot de passe n' est pas défini, \2/msg $botnick pass <pass>\2."
        return 0
    }
    if {[passwdok $hand $password]} {
        putdcc $pooshy(idx) ":$pooshy(nick) NOTICE $nick :Tu vien d' être invité sur le channel \2$pooshy(log)\2 merci de le Joindre!!"
        putdcc $pooshy(idx) ":$pooshy(nick) PRIVMSG $pooshy(log) :\[$nick\] vient de se Auth."
        if {![onchan $nick $pooshy(log)]} {
            putdcc $pooshy(idx) ":$pooshy(nick) MODE $pooshy(log) -O"
            putdcc $pooshy(idx) ":$pooshy(nick) INVITE $nick $pooshy(log)"
            putdcc $pooshy(idx) ":$pooshy(nick) SAJOIN $nick $pooshy(log)"
            putdcc $pooshy(idx) ":$pooshy(nick) MODE $pooshy(log) +O"
        }
    } else {
        putdcc $pooshy(idx) ":$pooshy(nick) NOTICE $nick :Attention votre \2mot de pass\2 est incorrect."
    }
    return 0
}