#!/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) } }