ixClearPacketGroups
ixClearPacketGroups - clears the packet group statistics of all the ports in the list
SYNOPSIS
ixClearPacketGroups [portList]
DESCRIPTION
The ixClearPacketGroups command clears the packet group statistics of all the ports in the list.
ARGUMENTS
portList
(By value) The list of ports in one of the following formats:
One of the following literal strings, or a reference to a variable with the $ (for example, $pl after set pl ...)
{{1 1 1}}
{{1 1 1} {1 1 2} {1 1 3} {1 1 4}}
{{1 1 *} {1 2 1} {1 2 2}}
{1,1,* 1,2,1 1,2,2}
A value of ""(default) clears ownership of all Tcl owned ports.
RETURNS
0
No error; the command was successfully delivered to the IxServer.
1
Error; the command was delivered to the IxServer but it could not process the message.
EXAMPLES
package require IxTclHal
set host galaxy
set username user
# Check if we're running on UNIX - connect to the TCL Server
# which must be running on the chassis
if [isUNIX] {
if [ixConnectToTclServer $host] {
ixPuts "Could not connect to $host"
return 1
}
}
# Now connect to the chassis
if [ixConnectToChassis $host] {
ixPuts $::ixErrorInfo
return 1
}
# Get the chassis ID to use in port lists
set chas [ixGetChassisID $host]
set chas 1
set cardA 1
set portA 1
set cardB 1
set portB 2
# Four different port list formats
set portList1 [list $chas,$cardA,$portA]
set portList2 [list $chas,$cardA,$portA $chas,$cardB,$portB]
set portList3 [list [list $chas $cardA $portA] [list $chas $cardB $portB]]
set portList4 [list [list $chas,$cardA,$portA] [list $chas,$cardB,$portB]]
# Login before taking ownership
if [ixLogin $username] {
ixPuts $::ixErrorInfo
return 1
}
# Take ownership of the ports we'll use
if [ixTakeOwnership $portList4] {
ixPuts $::ixErrorInfo
return 1
}
map new -type one2one
map config -type one2one
map add $chas $cardA $portA $chas $cardB $portB
map add $chas $cardB $portB $chas $cardA $portA
# Try each of the formats
if {[ixClearPacketGroups portList1] != 0} {
ixPuts $::ixErrorInfo
return 1
}
if {[ixClearPacketGroups portList2] != 0} {
ixPuts $::ixErrorInfo
return 1
}
if {[ixClearPacketGroups portList3] != 0} {
ixPuts $::ixErrorInfo
return 1
}
if {[ixClearPacketGroups portList4] != 0} {
ixPuts $::ixErrorInfo
return 1
}
if {[ixClearPacketGroups one2oneArray] != 0} {
ixPuts $::ixErrorInfo
return 1
}
# Let go of the ports that we reserved
ixClearOwnership $portList4
# Disconnect from the chassis we're using
ixDisconnectFromChassis $host
# If we're running on UNIX, disconnect from the TCL Server
if [isUNIX] {
ixDisconnectTclServer $host
}
return 0