proc ModifyStreamIpPrecedenceHlt { streamId ipPrecedenceValue } { # streamId format = ::ixNet::OBJ-/traffic/trafficItem:1 # ipPrecedenceValue = 0-7 puts "\nModifyStreamIpPrecedenceHlt: $streamId : $ipPrecedenceValue" set trafficItemStatus [eval ::ixia::traffic_config \ -mode modify \ -stream_id $streamId \ -ip_precedence $ipPrecedenceValue \ ] if {[keylget trafficItemStatus status] != $::SUCCESS} { puts "\nError ModifyStreamIpPrecedenceHlt: $trafficItemStatus\n" return 1 } return 0 }