Hi Joseph
Thanks for your continuous help
I uploaded the below script to my XR box
::cisco::eem::event_register_none
namespace import ::cisco::eem::*
namespace import ::cisco::lib::*
array set arr_einfo [event_reqinfo]
if [catch {cli_open} result] {
error $result $errorInfo
} else {
array set cli1 $result
}
if [catch {cli_write $cli1(fd) "run attach 0/1/CPU0"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_read_pattern $cli1(fd) "#"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_write $cli1(fd) "show_nat44_stats"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_read_pattern $cli1(fd) "#"} _cli_result] {
error $_cli_result $errorInfo
}
set output $_cli_result
if [catch {cli_exec $cli1(fd) "exit"} _cli_result] {
error $_cli_result $errorInfo
}
foreach line [split $output "\n"] {
set line [string trim $line]
regsub -all {\s+} " " $line line
if { [regexp {^([0-9]+) ([0-9]+)\([0-9]+%\) ([0-9]+)} $line -> core sessions users] } {
action_syslog msg "Core: $core, Sessions: $sessions, Users: $users" }
}
# Close open cli before exit.
catch {cli_close $cli1(fd) $cli1(tty_id)} result
But nothing appeared on the screen when I ran the command run event manager CGN1.tcl
