proc ConfigOspfNetworkGroupNgpfHlt { ospfNetworkGroupParams } { upvar $ospfNetworkGroupParams params puts "\nConfigOspfNetworkGroupNgpfHlt ..." foreach {properties values} [array get params *] { set property [lindex [split $properties ,] end] append paramList "$property $values " puts "ConfigOspfNetworkGroupNgpf: $properties : $values" } set ospfNetworkGroupStatus [eval ::ixiangpf::emulation_ospf_network_group_config $paramList] if {[keylget ospfNetworkGroupStatus status] != $::SUCCESS} { puts "\nError ConfigOspfNetworkGroupNgpfHlt: $ospfNetworkGroupStatus\n" return 1 } puts "\nConfigOspfNetworkGroupNgpfHlt: $ospfNetworkGroupStatus\n" return $ospfNetworkGroupStatus }