#!/usr/bin/expect
#
# ::copy::
# ::maintainer::
#
# wrapper for "validatepwd" command, to fake tty input:
#
# - needs username as argument
# - reads password from stdin (not tty!)
# - output should be discarder (>/dev/null)
# - returns 0 if users/pass are ok
# - returns 1 otherwise
#
set user [lindex $argv 0]
expect_user -re "(.*)\n"
set pass $expect_out(1,string)

spawn "validatepwd" $user

expect {
	Password: {
		send "$pass\r"
		exp_continue
	} OK {
		puts "expect: GOOD"
		exit 0
	} error {
		puts "expect: BAD"
		exit 1
	} eof {
		puts "expect: EOF"
		exit 1
	}
}
