proc ConfigOspfEmulationNgpfHlt { portConfigParams } { upvar $portConfigParams ospfParams #puts "[parray ospfParams]" puts "\nConfigOspfEmulationNgpf ..." foreach {properties values} [array get ospfParams *] { set property [lindex [split $properties ,] end] append paramList "$property $values " } set ospfConfigStatus [eval ::ixiangpf::emulation_ospf_config $paramList] if {[keylget ospfConfigStatus status] != $::SUCCESS} { puts "\nError ConfigOspfEmulationNgpf: $ospfConfigStatus\n" return 1 } return $ospfConfigStatus }