proc ConfigIgmpHostHlt { igmpParams } { # Usage Example: # set igmpHost($port1,-mode) create # set igmpHost($port1,-port_handle) $port1 # set igmpHost($port1,-reset) 1 # set igmpHost($port1,-msg_interval) 0 # set igmpHost($port1,-igmp_version) v2 # set igmpHost($port1,-ip_router_alert) 0 # set igmpHost($port1,-general_query) 0 # set igmpHost($port1,-group_query) 0 # set igmpHost($port1,-count) 1 # set igmpHost($port1,-intf_ip_addr) 1.0.101.8 # set igmpHost($port1,-neighbor_intf_ip_addr) 1.0.101.254 # set igmpHost($port1,-intf_prefix_len) 24 # set igmpHost($port1,-vlan) 1 # set igmpHost($port1,-vlan_id) 101 # set igmpHostHandle($port1) [ConfigIgmpHostHlt ::igmpHost] upvar $igmpParams params foreach {properties values} [array get params *] { set property [lindex [split $properties ,] end] append paramList "$property $values " } puts "\nConfigIgmpHostHlt: $paramList\n" set status [eval ::ixia::emulation_igmp_config $paramList] if {[keylget status status] != $::SUCCESS} { puts "Error: igmp emulation config:\n[keylget status log]" return 1 } # ::ixNet::OBJ-/vport:1/protocols/igmp/host:3 return [keylget status handle] }