116 |
# Sometimes we have to send multiple ^\c sequences. Don't know |
# Sometimes we have to send multiple ^\c sequences. Don't know |
117 |
# why. |
# why. |
118 |
set timeout 2 |
set timeout 2 |
119 |
for { set i 1; } {$i<=5} {incr i} { |
for { set i 1 } { $i <= 5 } { incr i } { |
120 |
send -i $shell_id "c" |
send -i $shell_id "c" |
121 |
expect { |
expect { |
122 |
-i $shell_id -re ".*Back at.*ermit.*>.*$" { set i 10;} |
-i $shell_id -re ".*Back at.*ermit.*>.*$" { set i 10 } |
123 |
-i $shell_id timeout { |
-i $shell_id timeout { |
124 |
if { $i > 2 } { |
if { $i > 2 } { |
125 |
warning "Unable to get prompt from kermit." |
warning "Unable to get prompt from kermit." |