#####################################
### Gestion des mots de passe !!! ###
#####################################

bind dcc p newpass dcc_newpass
proc dcc_newpass {hand idx args} {
  set args [lindex $args 0]
  set pass [lindex $args 0]
  if {([llength $args] != 1) || ([string length $pass] < 6) || ([string length $pass] > 15)} {
    putdcc $idx "## Usage: .newpass <mot de passe de 6 à 15 caractères>"
    return 0
  }
  setuser $hand pass $pass
  exec htpasswd -b passwords.txt [getuser $hand xtra vrainick] $pass > /dev/null &
  putdcc $idx "Votre mot de passe a été changé pour '$pass'."
  putlog "#$hand# newpass ..."
  return 0
}