#!/usr/bin/expect -f
+#enables some diagnostic output
+exp_internal 1
+
# log all interaction to a file to diagnose failures
log_file -a [lindex $argv 0]
expect {
timeout {
- puts "timeout"
+ puts "timeout in update_oldconfig waiting for a prompt we recognize"
exit 1
}
-re "\n *(\[^\n]* \\\[N\/y\/\\?] \\(NEW\\)) " {
send "\r"
exp_continue
}
+ -re "\n *(\[^\n]* \\\[M\/n\/\\?] \\(NEW\\)) " {
+ puts "$expect_out(1,string) m"
+ send "m\r"
+ exp_continue
+ }
+ -re "\n *(\[^\n]* \\\[M\/n\/y\/\\?] \\(NEW\\)) " {
+ puts "$expect_out(1,string) m"
+ send "m\r"
+ exp_continue
+ }
}