# Description
#    Load a saved .ixncfg config file
#       - This script could use the ports from the saved config file.
#       - If you want to use different ports, then set portList [list [$ixChassisIp, $cardId, $portId] ...]
#         and the APIs will use your $portList for ReleasePorts, ClearPortOwnership and AssignPorts
#
#    Verify port state
#    Start all protocols
#    Modify trafic item by the traffic item name.
#    Start traffic
#    Get stats
#
# Requirements
#    - If connecting to a Linux API server:
#        - The Linux API server is a secured access device.
#        - Uses SSL (HTTPS).
#        - You must install:
#             - OpenSSL for your Linux OS if running this script from Linux.
#             - TLS for TCL in order to connect to a Linux API server.
#               Download from: https://sourceforge.net/projects/tls/files/tls
#
#    - TCL must have Tclx package
#    - ActiveState TCL doesn't work with api loadConfig.  Download and install the IxNetwork API-Dependencies<version>Linux64.bin.
#      Use the tclsh from /opt/ixia/tcl/8.6.6.8606/bin/tclsh
#
# Suports Windows API server and Linux API server
#

package req Tclx
source api.tcl

set osPlatform windows ;# windows|linux

if {$osPlatform == "windows"} {
    set apiServerIp 192.168.70.3
}
if {$osPlatform == "linux"} {
    set apiServerIp 192.168.70.12
}

set ixNetworkVersion 9.00
set configFile bgp_ngpf_8.30.ixncfg

set licenseServerIp 192.168.70.3 ;# This could be on an ixChassisIp or a remote Windows PC.
set licenseMode subscription 
set licenseTier tier3

set ixChassisIp 192.168.70.128
set portList [list "$ixChassisIp 1 1" "$ixChassisIp 2 1"]

if {$osPlatform == "linux"} {
    # Uncomment this package if you are using ixNetwork version prior to 9.0
    #package req IxTclNetworkLinuxApiServer 

    # Uncomment this package if you are using IxNetwork 9.0+
    package req IxTclNetwork

   if {[Connect -apiServerIp $apiServerIp -ixNetworkVersion $ixNetworkVersion -osPlatform linux -username admin -password admin]} {
	exit
    }
    set sessions [ixNet getSessionInfo]
    puts "\nSessionId: $sessions"
}

if {$osPlatform == "windows"} {
    package req IxTclNetwork
    if {[Connect -apiServerIp $apiServerIp -ixNetworkVersion $ixNetworkVersion -osPlatform windows]} {
	exit
    }
}

ConnectToIxChassis $ixChassisIp

if {[ReleasePorts $portList]} {
    exit
}

if {[ClearPortOwnership $portList]} {
    exit
}

# Configuring the license server details are optional. If you need to configure them,
# this is the spot to do it.  You need to release the ports before you could configure them.
if {[ConfigLicenseServer $licenseServerIp $licenseMode $licenseTier]} {
    exit
}

if {[LoadConfigFile $configFile]} {
    exit
}

if {[AssignPorts $ixChassisIp $portList]} {
    exit
}

if {[VerifyPortState]} {
    exit
}

StartAllProtocols

if {[VerifyAllProtocolSessionsNgpf]} {
    exit
}

# NOTE!! You must change the Traffic Item name to use your Traffic Item name.
set trafficItemObjectList [GetTrafficItemObjects "Topo1 to Topo2"]

# Get the traffic item object handles to modify.
set trafficItemObj [lindex $trafficItemObjectList 0]
set configElementObj [lindex $trafficItemObjectList 1]

# Example to show various framesize configurations
#ConfigFrameSize -configElementObj $configElementObj -type fixed -frameSize 256
#ConfigFrameSize -configElementObj $configElementObj -type increment -randomMin 127 -randomMax 1514
ConfigFrameSize -configElementObj $configElementObj -type increment -incrementFrom 68 -incrementTo 512 -incrementStep 1

ConfigFrameRate -configElementObj $configElementObj -type percentLineRate -rate 25
ConfigFramePayload -configElementObj $configElementObj -type custom -customRepeat True -customPattern ff

# Example to show how to configure fixedFrameCount and continuous traffic
ConfigTrafficTransmissionControl -configElementObj $configElementObj -type fixedFrameCount -frameCount 80000
#ConfigTrafficTransmissionControl -configElementObj $configElementObj -type continuous

RegenerateAllTrafficItems

if {[StartTraffic]} {
    exit
}

set stats [GetStats]
puts [KeylPrint stats]

set txFrames [keylget stats flow.1.Tx_Frames]
set rxFrames [keylget stats flow.1.Rx_Frames]
set delta [expr $txFrames - $rxFrames]
puts "\nTxFrames: $txFrames  RxFrames: $rxFrames  Delta: $delta"

ixNet disconnect