IBM BladeCenter HX5, Инструкция по установке и эксплуатации, Страница: 103 / 142

set arg5 "-o"
set arg6 "${local_copy}"
set run_command [list exec $command $arg1 $arg2 $arg3 $arg4 $arg5 $arg6]
if {[catch $run_command result]} {
ft_log "Curl: command crashed with result $result fetching $arg4"
ft_log "Curl: The command was: ($command $arg1 $arg2 $arg3 $arg4 $arg5 $arg6"
return 1
}
return 0
}
################################################################################
#
#
# Delete a file from the AMM. #
# #
################################################################################
proc delete_file_from_amm { filename } {
global amm_id
send -i $amm_id "files -d ${filename}\r"
expect -i $amm_id "OK" {
return 0
}
return 1
}
################################################################################
#
#
# Code from source : support/include/MultiNode.exp #
# #
################################################################################
set multinode_complex [ list ]
#############################################################################
#
#
# Build a list of complexes. #
# #
#############################################################################
proc populate_complex_list { } {
global amm_id multinode_complex
set multinode_entry [ list ]
send -i $amm_id "scale\r\n"
expect {
#
#
Find the complex ID.
#
-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: " {
Chapter 4. Configuring the blade server
93