I am trying to write some Asynchronous TCL code to make things more efficent. This is just a simple example, but in reality it will SSH into a device, run a command, do some math, and write the output to the switch.
The whole "after" thing is throwing me off. When i run it locally trough tclsh86 , i need to run the "update" command to follow up with the results. How and what do i need to do to get this to work?
#***************************************CODE**********************************************************
::cisco::eem::event_register_timer watchdog time 15 maxrun 15
namespace import ::cisco::eem::*
namespace import ::cisco::lib::*
proc checkDevice { interface tempName aNumber waitTime} {
puts " "
puts "$tempName - Start"
after $waitTime
puts "$tempName - After"
if [catch {cli_write $interface "event manager environment tempName $aNumber"} _cli_result] {
error $_cli_result $errorInfo
}
puts "$tempName - EXIT"
}
if [catch {cli_open} result] {
error $result $errorInfo
} else {
array set cli1 $result
}
if [catch {cli_exec $cli1(fd) "enable"} _cli_result] {
error $_cli_result $errorInfo
}
after 0 checkDevice $cli1(fd) A 11 1000
after 0 checkDevice $cli1(fd) B 22 200
after 0 checkDevice $cli1(fd) C 33 4000
after 0 checkDevice $cli1(fd) D 44 1000
if [catch {cli_exec $cli1(fd) "exit"} _cli_result] {
error $_cli_result $errorInfo
}
catch {cli_close $cli1(fd) $cli1(tty_id)} result
