proc ConfigIgmpSourceHlt { igmpParams } {
    # Usage example:
    #    set igmpSource2(-mode) create
    #    set igmpSource2(-num_sources) 3
    #    set igmpSource2(-ip_addr_start) 10.1.1.11
    #    set igmpSource2(-ip_addr_step) 0.0.0.1
    #    set igmpSource2(-ip_prefix_len) 24
    #    set igmpSourceHandle2($port1) [ConfigIgmpSourceHlt ::igmpSource2]
    
    upvar $igmpParams params
    
    foreach {properties values} [array get params *] {
	set property [lindex [split $properties ,] end]
	append paramList "$property $values "
    }
    
    puts "\nConfigIgmpSourceHlt: $paramList\n"
    set status [eval ::ixia::emulation_multicast_source_config $paramList]
    
    if {[keylget status status] != $::SUCCESS} {
	puts "ConfigIgmpSourceHlt Error:\n[keylget status log]"
	return 1
    }
    # ::ixNet::OBJ-/vport:1/protocols/igmp/host:3/group:1
    return [keylget status handle]

}