################################################################################
# Version 1.0    $Revision: 1 $
# $Author: $
#
#    Copyright © 1997 - 2010 by IXIA
#    All Rights Reserved.
#
#    Revision Log:
#
#
################################################################################

################################################################################
#                                                                              #
#                                LEGAL  NOTICE:                                #
#                                ==============                                #
# The following code and documentation (hereinafter "the script") is an        #
# example script for demonstration purposes only.                              #
# The script is not a standard commercial product offered by Ixia and have     #
# been developed and is being provided for use only as indicated herein. The   #
# script [and all modifications, enhancements and updates thereto (whether     #
# made by Ixia and/or by the user and/or by a third party)] shall at all times #
# remain the property of Ixia.                                                 #
#                                                                              #
# Ixia does not warrant (i) that the functions contained in the script will    #
# meet the user's requirements or (ii) that the script will be without         #
# omissions or error-free.                                                     #
# THE SCRIPT IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, AND IXIA        #
# DISCLAIMS ALL WARRANTIES, EXPRESS, IMPLIED, STATUTORY OR OTHERWISE,          #
# INCLUDING BUT NOT LIMITED TO ANY WARRANTY OF MERCHANTABILITY AND FITNESS FOR #
# A PARTICULAR PURPOSE OR OF NON-INFRINGEMENT.                                 #
# THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SCRIPT  IS WITH THE #
# USER.                                                                        #
# IN NO EVENT SHALL IXIA BE LIABLE FOR ANY DAMAGES RESULTING FROM OR ARISING   #
# OUT OF THE USE OF, OR THE INABILITY TO USE THE SCRIPT OR ANY PART THEREOF,   #
# INCLUDING BUT NOT LIMITED TO ANY LOST PROFITS, LOST BUSINESS, LOST OR        #
# DAMAGED DATA OR SOFTWARE OR ANY INDIRECT, INCIDENTAL, PUNITIVE OR            #
# CONSEQUENTIAL DAMAGES, EVEN IF IXIA HAS BEEN ADVISED OF THE POSSIBILITY OF   #
# SUCH DAMAGES IN ADVANCE.                                                     #
# Ixia will not be required to provide any software maintenance or support     #
# services of any kind (e.g., any error corrections) in connection with the    #
# script or any part thereof. The user acknowledges that although Ixia may     #
# from time to time and in its sole discretion provide maintenance or support  #
# services for the script, any such services are subject to the warranty and   #
# damages limitations set forth herein and will not obligate Ixia to provide   #
# any additional maintenance or support services.                              #
#                                                                              #
################################################################################

################################################################################
#                                                                              #
# Description: Configures FC Fport and FC Client Port, many - many mode,       #
#              control in range level sync mode and get range stats            #
# This sample was tested with a N HLTSET type.                                 #
#                                                                              #
################################################################################

package require Ixia

set test_name               [info script]
set chassis_ip              10.200.102.13
set port_list               [list 1/3 1/4]
set ixnetwork_tcl_server    localhost
set break_locks             1
set cfgErrors               0
set interactive             1

set flogi_name              FLOGI-NAME
set fdisc_name              FDISC-NAME
set vnport_flogi_name       N_PORT-FLOGI
set vnport_fdisc_name       N_PORT-FDISC
set fdisc_number            3
set mesh_mode               "many_to_many"

#========================== CONNECT TO PORT ON CHASSIS ========================#
puts "Connect chassis ..."
set connect_status [::ixia::connect\
        -reset \
        -device $chassis_ip\
        -port_list $port_list\
        -mode connect\
        -break_locks $break_locks\
        -interactive $interactive\
        -ixnetwork_tcl_server $ixnetwork_tcl_server]
if {[keylget connect_status status] != $::SUCCESS} {
    puts "FAIL - $test_name - [keylget connect_status log]"
    return 0
}
#==================== ASSIGN PORT HANDLE FOR CLIENT AND FPORT=================#
set port_handle [list]
foreach port $port_list {
    if {![catch {keylget connect_status port_handle.$chassis_ip.$port} \
                temp_port]} {
        lappend port_handle $temp_port
    }
}
set fc_client_port_handle [lindex $port_handle 0]
set fc_fport_port_handle [lindex $port_handle 1]

#================================ ADD FPORT ==================================#
puts "Adding F-PORT ..."
set fc_fport_add [::ixia::fc_fport_config\
        -mode add\
        -port_handle $fc_fport_port_handle]
if {[keylget fc_fport_add status] != $::SUCCESS} {
    puts "FAIL - $test_name - [keylget fc_fport_add log]"
    return 0
}
set fc_fport_handle [keylget fc_fport_add handle]

#========================== ADD CLIENT =======================================#
puts "Adding client ..."
set fc_client_add [::ixia::fc_client_config\
        -mode add\
        -fdisc_enabled       1\
        -port_handle         $fc_client_port_handle\
        -flogi_plogi_enabled 1\
        -fdisc_plogi_enabled 1\
        -fdisc_name          $fdisc_name\
        -flogi_name          $flogi_name\
]
if {[keylget fc_client_add status] != $::SUCCESS} {
    puts "FAIL - $test_name - [keylget fc_client_add log]"
    return 0
}
set fc_client_handle [keylget fc_client_add handle]

#========================== ADD VNPORT =======================================#
puts "Adding vnport ..."
set fc_fport_vnport_add [::ixia::fc_fport_vnport_config\
        -mode           add\
        -handle         $fc_fport_handle\
        -count          [expr $fdisc_number + 1]
]
if {[keylget fc_fport_vnport_add status] != $::SUCCESS} {
    puts "FAIL - $test_name - [keylget fc_fport_vnport_add log]"
    return 0
}
set fc_fport_vnport_handle [keylget fc_fport_vnport_add handle]

#========================== ADD VNPORT FOR FLOGI =============================#
set fc_fport_vnport_flogi_add [::ixia::fc_fport_vnport_config \
        -mode               add \
        -handle             $fc_fport_handle\
        -name               $vnport_flogi_name\
        -simulated          1\
        -plogi_enable       1\
        -plogi_target_name  $flogi_name\
        -count              1]
if {[keylget fc_fport_vnport_flogi_add status] != $::SUCCESS} {
    puts "FAIL - $test_name - [keylget fc_fport_vnport_flogi_add log]"
    return 0
}
set fc_fport_vnport_flogi_handle [keylget fc_fport_vnport_flogi_add handle]

#========================== ADD VNPORT FOR FDISC==============================#
set fc_fport_vnport_fdisc_add [::ixia::fc_fport_vnport_config\
        -mode               add\
        -handle             $fc_fport_handle\
        -name               $vnport_fdisc_name\
        -simulated          1\
        -plogi_enable       1\
        -plogi_target_name  $fdisc_name\
        -count              $fdisc_number\
]
if {[keylget fc_fport_vnport_fdisc_add status] != $::SUCCESS} {
    puts "FAIL - $test_name - [keylget fc_fport_vnport_fdisc_add log]"
    return 0
}
set fc_fport_vnport_fdisc_handle [keylget fc_fport_vnport_fdisc_add handle]

#========================= CONFIG CLIENT TO PLOGI TO FPORT ===================#
puts "Config client ..."
set fc_client_modify [::ixia::fc_client_config -mode modify -handle $fc_client_handle\
        -fdisc_count             $fdisc_number\
        -flogi_plogi_target_name $vnport_flogi_name\
        -fdisc_plogi_target_name $vnport_fdisc_name\
        -fdisc_plogi_mesh_mode   $mesh_mode\
]
if {[keylget fc_client_modify status] != $::SUCCESS} {
    puts "FAIL - $test_name - [keylget fc_client_modify log]"
    return 0
}
puts "Config finished"
after 2000
puts "Starting FC Fport"
set control_status [::ixia::fc_control \
    -action      start                       \
    -action_mode async                       \
    -handle      $fc_fport_handle]
if {[keylget control_status status] == $::FAILURE} {
    puts "FAIL - $test_name - [keylget control_status log]"
    return 0
}
puts "Wait for the Fport is up"
after 20000
puts "Starting FC Client Flogi"
set fc_client_flogi [::ixia::fc_control\
         -action fc_client_flogi\
         -port_handle $fc_client_port_handle]
if {[keylget fc_client_flogi status] == $::FAILURE} {
    puts "FAIL - $test_name - [keylget fc_client_flogi log]"
    return 0
}
puts "Starting FC Client Fdisc"
set fc_client_fdisc [::ixia::fc_control\
         -action fc_client_fdisc\
         -handle $fc_client_handle]
if {[keylget fc_client_fdisc status] == $::FAILURE} {
    puts "FAIL - $test_name - [keylget fc_client_fdisc log]"
    return 0
}
after 5000
puts "Starting Plogi of Flogi Range"
set fc_client_plogi [::ixia::fc_control\
        -action fc_client_plogi\
        -handle $fc_client_handle]
if {[keylget fc_client_plogi status] == $::FAILURE} {
    puts "FAIL - $test_name - [keylget fc_client_plogi log]"
    return 0
}
after 5000
puts "Starting Plogi of Fdisc Range"
set fc_client_plogi [::ixia::fc_control\
        -action fc_client_fdisc_plogi\
        -handle $fc_client_handle]
if {[keylget fc_client_plogi status] == $::FAILURE} {
    puts "FAIL - $test_name - [keylget fc_client_plogi log]"
    return 0
}
after 5000
puts "Starting Plogo of Flogi Range"
set fc_client_plogo [::ixia::fc_control\
        -action fc_client_plogo\
        -handle $fc_client_handle]
if {[keylget fc_client_plogo status] == $::FAILURE} {
    puts "FAIL - $test_name - [keylget fc_client_plogo log]"
    return 0
}
after 5000
puts "Starting Plogo of Fdisc Range"
set fc_client_plogo [::ixia::fc_control\
        -action fc_client_fdisc_plogo\
        -handle $fc_client_handle]
if {[keylget fc_client_plogo status] == $::FAILURE} {
    puts "FAIL - $test_name - [keylget fc_client_plogo log]"
    return 0
}
after 5000
puts "Starting NPIV Flogo"
set fc_client_npiv_flogo [::ixia::fc_control\
        -action fc_client_npiv_flogo\
        -handle $fc_client_handle]
if {[keylget fc_client_npiv_flogo status] == $::FAILURE} {
    puts "FAIL - $test_name - [keylget fc_client_npiv_flogo log]"
    return 0
}
after 5000
puts "Starting Flogo"
set fc_client_flogo [::ixia::fc_control\
        -action fc_client_flogo\
        -port_handle $fc_client_port_handle]
if {[keylget fc_client_flogo status] == $::FAILURE} {
    puts "FAIL - $test_name - [keylget fc_client_flogo log]"
    return 0
}

puts "Stopping all Protocols"
set fc_stop [::ixia::fc_control\
        -action stop\
        -port_handle [list $fc_client_port_handle $fc_fport_port_handle]] 

if {[keylget fc_stop status] == $::FAILURE} {
    puts "FAIL - $test_name - [keylget fc_stop log]"
    return 0
}
puts "Waiting for all session to be updated"
after 3000
puts "Getting Stats of FC Fport and FC CLient"
set client_stats [::ixia::fc_client_stats\
        -mode range\
        -port_handle $fc_client_port_handle]
if {[keylget client_stats status] != $::SUCCESS} {
    puts "FAIL - $test_name - [keylget client_stats log]"
    return 0
}
set client_range_flogi_key [lindex [keylkeys client_stats range] 0]
set client_range_fdisc_key [lindex [keylkeys client_stats range] 1]
set fport_stats [::ixia::fc_fport_stats\
        -mode range\
        -port_handle $fc_fport_port_handle]

if {[keylget fport_stats status] != $::SUCCESS} {
    puts "FAIL - $test_name - [keylget fport_stats log]"
    return 0
}
set fport_range_key [keylkeys fport_stats range]
set fc_client_flogi_tx_flogi [keylget client_stats range.$client_range_flogi_key.flogi_tx]
set fc_client_plogi_tx_flogi [keylget client_stats range.$client_range_flogi_key.plogi_tx]
set fc_client_plogo_tx_flogi [keylget client_stats range.$client_range_flogi_key.plogo_tx]
set fc_client_flogo_tx_flogi [keylget client_stats range.$client_range_flogi_key.flogo_tx]
set fc_client_fdisc_tx_fdisc [keylget client_stats range.$client_range_fdisc_key.fdisc_tx]
set fc_client_plogi_tx_fdisc [keylget client_stats range.$client_range_fdisc_key.plogi_tx]
set fc_client_plogo_tx_fdisc [keylget client_stats range.$client_range_fdisc_key.plogo_tx]
set fc_client_flogo_tx_fdisc [keylget client_stats range.$client_range_fdisc_key.flogo_tx]
set fc_fport_flogi_ls_acc_tx [keylget fport_stats range.$fport_range_key.flogi_ls_acc_tx]
set fc_fport_fdisc_ls_acc_tx [keylget fport_stats range.$fport_range_key.fdisc_ls_acc_tx]
set fc_fport_plogi_ls_acc_tx [keylget fport_stats range.$fport_range_key.plogi_ls_acc_tx]
set fc_fport_plogo_ls_acc_tx [keylget fport_stats range.$fport_range_key.plogo_ls_acc_tx]
set fc_fport_flogo_ls_acc_tx [keylget fport_stats range.$fport_range_key.flogo_ls_acc_tx]
puts "Number of flogi packages from FC Client -Flogi Range : $fc_client_flogi_tx_flogi"
puts "Number of plogi packages from FC Client -Flogi Range : $fc_client_plogi_tx_flogi"
puts "Number of plogo packages from FC Client -Flogi Range : $fc_client_plogo_tx_flogi"
puts "Number of flogo packages from FC Client -Flogi Range : $fc_client_flogo_tx_flogi"
puts "Number of fdisc packages from FC Client -Fdisc Range : $fc_client_fdisc_tx_fdisc"
puts "Number of plogi packages from FC Client -Fdisc Range : $fc_client_plogi_tx_fdisc"
puts "Number of plogo packages from FC Client -Fdisc Range : $fc_client_plogo_tx_fdisc"
puts "Number of flogo packages from FC Client -Fdisc Range : $fc_client_flogo_tx_fdisc"
puts "Number of flogi packages from FC Fport : $fc_fport_flogi_ls_acc_tx "
puts "Number of fdisc packages from FC Fport : $fc_fport_fdisc_ls_acc_tx"
puts "Number of plogi packages from FC Fport : $fc_fport_plogi_ls_acc_tx"
puts "Number of plogo packages from FC Fport : $fc_fport_plogo_ls_acc_tx"
puts "Number of flogo packages from FC Fport : $fc_fport_flogo_ls_acc_tx "

return "SUCCESS - [info script] - [clock format [clock seconds]]"