Subversion Repositories or1k

#!/depot/path/expect --

# Name: reprompt

# Description: reprompt every so often until user enters something

# Usage: reprompt timeout prompt

# Author: Don Libes, NIST

foreach {timeout prompt} $argv {}

send_error $prompt

expect {

        timeout {

                send_error "\nwake up!!\a"

                send_error \n$prompt

                exp_continue

        }

        -re .+ {

                send_user $expect_out(buffer)

        }

}