Commit | Line | Data |
---|---|---|
920dae64 AT |
1 | include "start.ver" |
2 | ||
3 | timeout -1 | |
4 | ||
5 | expect | |
6 | set switchmachine [lindex $argv 3] | |
7 | set serverport [lindex $argv 4] | |
8 | set serverip [lindex $argv 5] | |
9 | set clientip [lindex $argv 6] | |
10 | set nic [lindex $argv 7] | |
11 | end_expect | |
12 | ||
13 | ||
14 | #set prompt for guest console | |
15 | set_prompt GUEST '# ' | |
16 | ||
17 | #set prompt for SAM | |
18 | set_prompt SAM 'stop: ' | |
19 | ||
20 | #set error patterns | |
21 | error GUEST "\[Ee]rror|ERR|\[Pp]anic" | |
22 | ||
23 | #connect to switch. | |
24 | send_wait SAM "sim$nic connect $switchmachine/$serverport" | |
25 | ||
26 | #execute commands. | |
27 | send SAM "run" | |
28 | ||
29 | #sleep for a while to wait GUEST. | |
30 | expect | |
31 | sleep 5 | |
32 | end_expect | |
33 | ||
34 | send_wait GUEST "/ll/cwd/sam.server -s $serverip -c $clientip" | |
35 | send_fini SAM "quit" |