[Tuto] Les fichiers comme DB

[djkenny]

bon j vais tenter de t expliquer une dernière foi, avec des bout de code simples
on va commencer par la structure du fichier qui contient les données utilisateurs (pseudo pass...)

donc le fichier "users.db" (par exemples)

#accueil alias_angelius motdepassdefou 200 alias_angelius*!*@*
#services alias_angelius passwordquitu 350 alias_angelius*!*@*
#accueil autre_pseudo unmotdepass 400 sonhost*!*@*machin.net

donc ici on retrouve le salon ou est autorisé le pseudo avec son mot de pass, son level et le host avec lequel il sera reconnu

on passe a la proc de auth (très simpliste)
/msg lebot auth #salon pseudo pass

tclcopier

bind msg - auth mon:auth
 
proc mon:auth {nick host hand arg} {
    variable authed ;#on déclare la variable qui contiendra les utilisateurs identifié

    #on ouvre le fichier et récupère les données qui sont dedans
    set a [open users.db]
    set users [split [read $a] "\n"]
    close $a
    #les données sont contenues dans $users
 
    set salon [lindex $arg 0]
    set pseudo [lindex $arg 1]
    set pass [lindex $arg 2]
    foreach u $users {
        set c [lindex $u 0]
        #on verifi que le salon correspond au salon contenue dans la ligne du fichier, sinon on saute a la boucle suivante
        if ![string equal -nocase $c $salon] continue
        #on controle si le pseudo correspond, sinon on saute la boucle suivante
        set ps [lindex $u 1]
        if ![string equal -nocase $ps $pseudo] continue
        #on vérifie si le mot de passe correspond
        set pa [lindex $u 2]
         if ![string equal $pa $pass] continue
        #pour finir on teste le host
        set h [lindex $u 4]
        if ![string match -nocase $h "$nick!$host"] continue
        #arrivé la l utilisateur a remplis toutes les conditions pour s identifier donc on va le retenir
        set level [lindex $u 3]
        set authed($nick,$chan) $level
        putserv "NOTICE $nick :Vous êtes identifié sur le salon $salon"
        # et on fini la procédure
        return
    }
    #sinon arrivé la l utilisateur n'as pas d'accès donc on lui dit
    putserv "NOTICE $nick :Vous n'avez pas d'accès"
}

#le op maintenant
set level(op) 200
bind pub - !op mon:op
 
proc mon:op {nick host hand chan arg}
    global level
    variable authed
    #on vérifie que la personne est auth sur le salon et que le level est suffisant
    if {[info exists authed($nick,$chan)] && $authed($nick,$chan)>=$level(op)} {
        putserv "MODE $chan +o $nick"
    } else {
        putserv "NOTICE $nick :Accès refusé"
    }
}