Bull Novascale Blade BL465, Инструкция по установке и эксплуатации, Страница: 101 / 128

Chapter 4. Configuring the blade server
87
#
-i $amm_id "Complex ID:" {
expect -i $amm_id "\n" {
set temp $expect_out(buffer)
set complex [ string trimright $temp ]
set complex [ string range ${complex} 1 4 ]
set multinode_entry [ list ]
lappend multinode_entry ${complex}
} timeout {
ft_error "parse error"
}
exp_continue
}
##
Find the slots.
#
-i $amm_id "Bay: " {
expect -i $amm_id "\n" {
set temp $expect_out(buffer)
set bay [ string trimright $temp ]
set bay [ string range ${bay} 0 [string length ${bay}]]
lappend multinode_entry ${bay}
} timeout {
ft_error "parse error"
}
exp_continue
}
-i $amm_id "No scalable complex found" {
ft_log "AMM: No multi nodes found."
}
}
lappend multinode_complex $multinode_entry
}
#############################################################################
# #
# Return a list element for a given slot configuration. #
# #
#############################################################################
proc get_multinode_list_for_slot { slot_no } {
global multinode_complex
set empty [ list ]
set temp [ list ]
##
Return an empty list if the multinode complex is has nothing.
#
set count [ llength $multinode_complex ]
if {$count == 0 } {
return $empty
}
##
Search each list in the multinode complex list.
#
foreach temp $multinode_complex {
##
Now seach the sublist.
#
foreach temp1 $temp {
if {$temp1 == $slot_no} {
return $temp
}
}
}
return $empty
}
#############################################################################
# #
# Send the update command for the blade. #
# #
#############################################################################
proc flash_update_mn_blade { blade_no firmware_image } {
global amm_id tftp_server g_normal_timeout_value
##
Tell the AMM no timeout.
#
send -i $amm_id "telnetcfg -t 0\r\n"
expect -i $amm_id -exact "OK"
##
Populate a list of multi node targets.
#
set slots [ list ]