proc ConfigNetworkGroupNgpfHlt { portConfigParams } { upvar $portConfigParams params puts "\nConfigNetworkGroupNgpfHlt: Configuring Network Group ..." foreach {properties values} [array get params *] { set property [lindex [split $properties ,] end] append paramList "$property $values " } set network_group_status [eval ::ixiangpf::network_group_config $paramList] if {[keylget network_group_status status] != "1"} { puts "\nError ConfigNetworkGroupNgpfHlt: $network_group_status\n" return 1 } return $network_group_status }