ixStopPortTransmit
ixStopPortTransmit - stop transmission on an individual port
SYNOPSIS
ixStopPortTransmit chassisID cardID portID
DESCRIPTION
The ixStopPortTransmit command stops transmission 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.
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 card 1
set port 1
set portList [list [list $chas $card $port]]
# 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
}
# Set loopback on port
port setDefault
port config -loopback true
port set $chas $card $port
# Set up stream to defaults
stream setDefault
stream set $chas $card $port 1
# Write config to hardware and check link state
# Error checking omitted for brevity
ixWritePortsToHardware portList
after 1000
ixCheckLinkState portList
if {[ixStartPortTransmit $chas $card $port] != 0} {
ixPuts "Could not start port transmit on $chas:$card:$port"
}
after 1000
if {[ixStopPortTransmit $chas $card $port] != 0} {
ixPuts "Could not stop port transmit on $chas:$card:$port"
}
# 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
}