proc CreateIgmpGroupAddrNgpfHlt { igmpGroupParams } { # Creating IGMP IP group addresses upvar $igmpGroupParams params puts "\nCreateIgmpGroupAddr ..." foreach {properties values} [array get params *] { set property [lindex [split $properties ,] end] append paramList "$property $values " } set igmpGroupIpStatus [eval ::ixiangpf::emulation_multicast_group_config $paramList] if {[keylget igmpGroupIpStatus status] != $::SUCCESS} { puts "\nError CreateIgmpGroupAddr: $igmpGroupIpStatus\n" return 1 } return $igmpGroupIpStatus }