cciefun ccie/sp fortiOS linux tcl/tk avalanche/reflector canada immi, visit

Sample for MultiSpawn
#!/usr/bin/expect --
set timeout 3600
set username admin
set password ""
set h3600 7
set l3600 2
log_user 1

proc clear_line {line} {
spawn telnet 172.18.9.29
expect "#"
send "clear line $line\r"
expect "confirm"
send "y\r"
exec sleep 2
expect "#"
send "exit\r"
expect "#"
}


clear_line $h3600
clear_line $l3600

spawn telnet 172.18.9.29 200$h3600
set id1 $spawn_id
expect "]"

spawn telnet 172.18.9.29 200$l3600
set id2 $spawn_id
expect "]"

proc login_fw_id1 { } {
global id1
set spawn_id $id1
send "\r"
exec sleep 5
expect {
"login" {send "admin\r"
expect "assword"
send "\r"
expect "#"
}
"#" {send "end\r"
expect "#"}
"assword" {send "aaa\r"
expect "login"
send "admin\r"
expect "assword"
send "\r"}
expect "#"
}
return $spawn_id
}

proc login_fw_id2 { } {
global id2
set spawn_id $id2
send "\r"
exec sleep 5
expect {
"login" {send "admin\r"
expect "assword"
send "\r"
expect "#"
}
"#" {send "end\r"
expect "#"}
"assword" {send "aaa\r"
expect "login"
send "admin\r"
expect "assword"
send "\r"}
expect "#"
}
return $spawn_id
}

proc GetStatus-1 { } {
set spawn_id [login_fw_id1]
send "get sys status\r"
expect "#"
}


proc GetStatus-2 { } {
set spawn_id [login_fw_id2]
send "get sys status\r"
expect "#"
}


GetStatus-1
GetStatus-2