Oui, désolé, je suis un peu fatigué.
Bon, je pense que tu fais une petite erreur:
Or, la doc tcl-commands dit bien:
Je corrigerais donc ton script en remplaçant:
par:
Bon, je pense que tu fais une petite erreur:
TCL
if {[passwdok $pseudo $pass]} {
Or, la doc tcl-commands dit bien:
Citation :passwdok <handle> <pass>Tu n'envois pas le handle mais le nick.
Description: checks the password given against the user's password.
Check against the password "" (a blank string) or "-" to find out
if a user has no password set.
Returns: 1 if the password matches for that user; 0 otherwise
Module: core
Je corrigerais donc ton script en remplaçant:
TCL
if {[nick2hand $pseudo] eq "*"} {
putserv "notice $nick :[::msgcat::mc NoAxx $nick]"
putlog "$pseudo"
return 0
}
if {[passwdok $pseudo $pass]} {
par:
TCL
set vhandle [nick2hand $pseudo]
if {$vhandle eq "*"} {
putserv "notice $nick :[::msgcat::mc NoAxx $nick]"
return 0
}
if {![passwdok $vhandle $pass]} {