1 files changed, 20 insertions, 0 deletions
diff --git a/expect/example/reprompt b/expect/example/reprompt
new file mode 100644
index 00000000000..927f145e4a7
--- /dev/null
+++ b/expect/example/reprompt
@@ -0,0 +1,20 @@
+#!/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)
+	}
+}