proc ResumeHHlt { connectParams } { # Usage: # set connect(-tcl_server) "10.219.117.101"' # set connect(-ixnetwork_tcl_server) "10.219.117.103"' # set connect(-username) "hgee"' # set connect(-session_resume_keys) 1' # Resume ::connect upvar $connectParams params foreach {properties values} [array get params *] { set property [lindex [split $properties ,] end] append paramList "$property $values " } puts "Resume..." set status [eval ::ixia::connect $paramList] return $status }