proc CreateIgmpQuerierNgpfHlt { igmpQuerierParams } { upvar $igmpQuerierParams params puts "\nCreateIgmpQuerierNgpfHlt ..." foreach {properties values} [array get params *] { set property [lindex [split $properties ,] end] append paramList "$property $values " } set igmpQuerierStatus [eval ::ixiangpf::emulation_igmp_querier_config $paramList] if {[keylget igmpQuerierStatus status] != $::SUCCESS} { puts "\nError CreateIgmpQuerierNgpfHlt: $igmpQuerierStatus" return 1 } return $igmpQuerierStatus }