proc ConnectToIxiaResumeHlt { args } { set sessionResumeFlag 1 set paramList {} set argIndex 0 while {$argIndex < [llength $args]} { set currentArg [lindex $args $argIndex] switch -exact -- $currentArg { -ixnetwork_tcl_server { set ixNetworkTclServer [lindex $args [expr $argIndex + 1]] incr argIndex 2 append paramList " -ixnetwork_tcl_server $ixNetworkTclServer" } -tcl_server { set tclServer [lindex $args [expr $argIndex + 1]] incr argIndex 2 append paramList " -tcl_server $tclServer" } -username { set username [lindex $args [expr $argIndex + 1]] incr argIndex 2 append paramList " -username $username" } -session_resume_keys { set sessionResumeFlag [lindex $args [expr $argIndex + 1]] incr argIndex 2 } default { puts "ConnectToIxiaResume: No such parameter: $currentArg" return 1 } } } append paramList " -session_resume_keys $sessionResumeFlag" puts "ConnectToIxiaResumeHlt ..." set connectStatus [eval ::ixia::connect $paramList] if {[keylget connectStatus status] != $::SUCCESS} { puts "\nError ConnectToIxiaResumeHlt: $connectStatus\n" return 1 } else { return $connectStatus } }