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