#!/usr/bin/env expect -f

set force_conservative 0  ;# set to 1 to force conservative mode even if
                          ;# script wasn't run conservatively originally
if {$force_conservative} {
        set send_slow {1 .1}
        proc send {ignore arg} {
                sleep .1
                exp_send -s -- $arg
        }
}

set username [lindex $argv 0]
set password [lindex $argv 1]

set timeout -1
spawn passwd $username
match_max 100000
expect "New Password: "
send -- "$password\r"
expect "Re-enter new Password: "
send -- "$password\r"
expect eof