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"
94 IBM BladeCenter HX5 Type 7873, 7872, 1910, and 1909: Installation and User's Guide