05/09/2010, 00:47
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 ]
[ mon script ]
Merci pour votre aide, je découvre le tcl donc je pense que c'est une erreur d'inattention.
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.