proc PortConfigProtocolIntNgpfHlt { portConfigParams } { # How to use this from a script: # set portConfig1(-mode) config # set portConfig1(-mtu) 1500 # set portConfig1(-protocol_handle) $deviceGroup1(topo1,groupHandle) # set portConfig1(-ipv4_resolve_gateway) 1 # set portConfig1(-ipv4_manual_gateway_mac) 00.00.00.00.00.01 # set portConfig1(-gateway) 1.1.1.11 # set portConfig1(-gateway_step) 0.0.0.0 # set portConfig1(-intf_ip_addr) 1.1.1.1 # set portConfig1(-intf_ip_addr_step) 0.0.0.1 # set portConfig1(-netmask) 255.255.255.0 # set portConfig1(-src_mac_addr) 00:01:01:01:00:01 # set portConfig1(-src_mac_addr_step) 00:00:00:00:00:01 # set portConfig1(-vlan) 1 # set portConfig1(-vlan_id) 100 # set portConfig1(-vlan_user_priority) 3 # set portConfig1(-vlan_id_count) 5 # set portConfig1(-vlan_id_step) 1 # set portConfig1(-vlan_user_priority_step) 0 # # set deviceGroup1Topo1 [PortConfigProtocolIntNgpfHlt ::portConfig1] upvar $portConfigParams params puts "\nPortConfigProtocolIntNgpfHlt ..." foreach {properties values} [array get params *] { set property [lindex [split $properties ,] end] append paramList "$property $values " } set interfaceConfigStatus [eval ::ixiangpf::interface_config $paramList] if {[keylget interfaceConfigStatus status] != $::SUCCESS} { puts "\nError PortConfigProtocolIntNgpfHlt:\n$interfaceConfigStatus\n" return 1 } # keylget interfaceConfigStatus: # ethernet_handle: /topology:2/deviceGroup:2/ethernet:1 # ipv4_handle: /topology:2/deviceGroup:2/ethernet:1/ipv4:1 # interface_handle: /topology:2/deviceGroup:2/ethernet:1/ipv4:1/item:1 # interface object = ::ixNet::OBJ-/vport:1/interface:1 return $interfaceConfigStatus }