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

Chapter 4. Configuring the blade server
83
ft_log "Blade: $blade -- Successfully collected AMM vdbg log."
} else {
ft_log "Blade: $blade -- Failure collecting AMM vdbg log."
}
##
Grab the FFDC data from the IMM.
#
ft_log "Blade: $blade -- Collecting IMM FFDC logs."
set rv [ imm_ffdc_init_capture $blade ]
set rv [ imm_ffdc_collect_capture $blade ]
set fn [ imm_ffdc_get_service_file_name $blade ]
set rv [ collect_file_from_amm service "." $fn $g_test_results_dir/IMM_FFDC.tgz ]
if {$rv == 0} {
ft_log "Blade: $blade -- Successfully collected IMM FFDC data."
} else {
ft_log "Blade: $blade -- Failure collecting IMM FFDC data."
}
##
Cleanup.
#
set rv [ imm_ffdc_cleanup_amm $fn ]
}
################################################################################
# #
# Reset all of the configured blades in the chassis. #
# #
################################################################################
proc reset_all_blades { } {
global blade_presence_bits
for {set slot 1} {$slot < 15} {incr slot 1} {
if { ! [info exists blade_presence_bits($slot)]} {
continue
}
set present $blade_presence_bits($slot)
if {$present == 1} {
set rv [ reset_blade $slot ]
if {$rv != 0} {
ft_log "Blade: $slot did not reboot."
}
}
}
}
################################################################################
# #
# Reset a blade via the AMM. Returns 0 on success and 1 on timeout. #
# #
################################################################################
proc reset_blade { blade } {
global amm_id
##
Reboot the blade.
#
send -i $amm_id "reset -T blade\[$blade\]\r\n"
expect -i $amm_id "OK" {
ft_log "Blade $blade: Rebooted host OS."
return 0
} timeout {
return 1
}
}
################################################################################
# #
# Reset a blade via the AMM. Returns 0 on success and 1 on timeout. #
# #
################################################################################
proc reset_blade_gator { blade } {
global amm_id
##
Gator zap.
#
set gator_map { 1 2 3 4 5 6 7 8 9 a b c d e f }
set gator_offset [lindex $gator_map $blade_no]
send -i $amm_id "dbg gator x $gater_offset -Tsystem:mm\[1\]\r\n"
expect -i $amm_id "OK" {
ft_log "Blade $blade: Gator zap."
return 0
} timeout {
return 1
}
}