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_idsend -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_complexset 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
