[HELP@mysql~TCL] Script perso

[trent]

J'ai un soucis sur une syntaxe je pense:

Je me suis appuyé sur le tutorial de Dav sur le site, je vous montre un peu mon erreur:

[ via le Eggdrop // putlog Error en PL ]

Code :

[23'51•28] <Daria> [23:51] Tcl error [accesslist:cmd]: mysqlconnect/db server: Access denied for user 'daria'@'localhost' (using password: YES)

[ mon script ]

Code :

bind dcc B accesslist accesslist:cmd
proc accesslist:cmd {hand idx arg} {
    service:connect
    mysqlsel $::mysqlink "SELECT * FROM `access` ORDER BY nick"
        if {[mysqlresult $::mysqlink rows] ne 0} {
            while {[set row [mysqlnext $::mysqlink]] != ""} {
                putdcc $idx "\2[lindex $row 0]\2 \[pass\] [lindex $row 1] \[host/ip\] [lindex $row 2] \[e-mail\] [lindex $row 3]"
            }
        }
    service:deconnect
    putdcc $idx "\2\2"
    putdcc $idx "\2Fin de la liste\2."
    return 1
}

Merci pour votre aide, je découvre le tcl donc je pense que c'est une erreur d'inattention.