ixStopPortCapture
ixStopPortCapture - stop capture on an individual port
SYNOPSIS
ixStopPortCapture chassisID cardID portID [groupId] [create] [destroy]
DESCRIPTION
The ixStopPortCapture command stops capture on a single port.
ARGUMENTS
chassisID
(By value) The ID number of the chassis.
cardID
(By value) The ID number of the card.
portID
(By value) The ID number of the port.
groupId
(By value) The group number to be used in the join message. If omitted, the default value of 101064 is used.
create
(By value) Create a new port group (create) or not (nocreate). (default = create)
destroy
(By value) Clean up a created port group when command completes (destroy) or not (nodestroy). (default = destroy)
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 cardA 1
set portA 1
set cardB 1
set portB 2
set portList [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 $portList] {
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
port setDefault
port set $chas $cardA $portA
port set $chas $cardB $portB
ixWritePortsToHardware one2oneArray
after 1000
if {[ixCheckLinkState one2oneArray] != 0} {
ixPuts "Link is not up"
}
if {[ixStartCapture one2oneArray] != 0} {
ixPuts "Could not start capture on $one2oneArray"
}
# Start transmit and wait a bit
ixStartTransmit one2oneArray
after 1000
if {[ixStopPortCapture $chas $cardA $portA] != 0} {
ixPuts "Could not stop capture on $chas:$cardA:$portA"
}
if {[ixStopPortCapture $chas $cardB $portB] != 0} {
ixPuts "Could not stop capture on $chas:$cardB:$portB"
}
# Let go of the ports that we reserved
ixClearOwnership $portList
# Disconnect from the chassis we're using
ixDisconnectFromChassis $host
# If we're running on UNIX, disconnect from the TCL Server
if [isUNIX] {
ixDisconnectTclServer $host
}