03-01-2014 07:56 AM
Hello,
I m having a problem: my tcl script is not opening the cli session. And the system does not return any helpfull message.
The start of the script is:
::cisco::eem::event_register_syslog pattern {%PKT_INFRA-LINK-3-UPDOWN : Interface TenGigE0/0/1/0, changed state to Down}
namespace import ::cisco::eem::*
namespace import ::cisco::lib::*
array set arr_einfo [event_reqinfo]
action_syslog msg "Script running (interface down)"
if [catch {cli_open} result] {
error $result $errorInfo
} else {
array set cli1 $result
action_syslog msg "Script teste 1!!"
It would be nice if someone would have some tip.
Best Regards
Solved! Go to Solution.
03-01-2014 10:09 AM
You're missing a trailing '}'. Your script should be:
::cisco::eem::event_register_syslog pattern {%PKT_INFRA-LINK-3-UPDOWN : Interface TenGigE0/0/1/0, changed state to Down}
namespace import ::cisco::eem::*
namespace import ::cisco::lib::*
array set arr_einfo [event_reqinfo]
action_syslog msg "Script running (interface down)"
if [catch {cli_open} result] {
error $result $errorInfo
} else {
array set cli1 $result
}
action_syslog msg "Script teste 1!!"
03-01-2014 10:09 AM
You're missing a trailing '}'. Your script should be:
::cisco::eem::event_register_syslog pattern {%PKT_INFRA-LINK-3-UPDOWN : Interface TenGigE0/0/1/0, changed state to Down}
namespace import ::cisco::eem::*
namespace import ::cisco::lib::*
array set arr_einfo [event_reqinfo]
action_syslog msg "Script running (interface down)"
if [catch {cli_open} result] {
error $result $errorInfo
} else {
array set cli1 $result
}
action_syslog msg "Script teste 1!!"
11-14-2019 05:04 AM
Script is Working ??
Discover and save your favorite ideas. Come back to expert answers, step-by-step guides, recent topics, and more.
New here? Get started with these tips. How to use Community New member guide