Bull Novascale Blade BL465, Installation And User Manual, Page: 99 / 128

Chapter 4. Configuring the blade server
85
return 0
}
return 1
}
################################################################################
# #
# Log into the AMM. #
# #
################################################################################
proc amm_login { amm userid password } {
global amm_id save_amm save_userid save_password
##
Backup our login creds.
#
set save_amm $amm
set save_userid $userid
set save_password $password
##
SSH command with no host key checking.
#
spawn ssh -o StrictHostKeyChecking=no -o UserKnownHostsFile=/dev/null -l$userid $amm
set amm_id $spawn_id
ft_log "AMM: Login -- id: $amm_id"
##
Install an end of file handler to bomb out incase the AMM connection dies.
#
expect_after -i $amm_id eof eof_handler
##
Log into the AMM.
#
expect {
"password:" {
send "$password\r"
}
}
##
Make sure we made it.
#
expect -exact "system>"
}
################################################################################
# #
# Log out of the AMM. (Be nice to the CLI, it won’t run commands some times #
# if you close the connection on it too soon). #
# #
################################################################################
proc amm_logout { } {
global amm_id
##
Log out and let the CLI figure out what happened.
#
send -i $amm_id "exit\r"
catch {close -i $amm_id}
##
Reap the child process.
#
wait
ft_log "AMM: Logout -- id: $amm_id"
set amm_id ""
}
################################################################################
# #
# Collect the blade info from the AMM. #
# #
################################################################################
proc collect_blade_info { blade } {
global amm_id amm g_imm_fw_levels g_uefi_fw_levels
send -i $amm_id "info -T blade\[$blade\]\r"
##
Find the BIOS string.
#
expect -i $amm_id "BIOS" {
expect -i $amm_id "Build ID:" {
expect -i $amm_id "\n" {
set temp $expect_out(buffer)
set length [ string length ${temp} ]
set length [ expr $length - 3 ]
set uefi_level [string range ${temp} 1 $length]
set g_uefi_fw_levels($blade) $uefi_level
}