::cisco::eem::event_register_timer cron cron_entry "* * * * 0-6"
#
# This EEM tcl policy was generated by the EEM applet conversion # utility at http://www.marcuscom.com/convert_applet/
# using the following applet:
#
# event manager applet moncores authorization bypass # event timer cron cron-entry "* * * * 0-6"
# !
# action 200 cli command "en"
# action 220 cli command "show process cpu | include fiv"
# !
# action 320 regexp "Core 0: CPU utilization for five seconds: ([^%]+)%; one minute: ([^%]+)%; five minutes: ([^%]+)%.*" $_cli_result result c0cpu5sec c0cpu1min c0cpu5min # action 350 if $_regexp_result eq 1 # action 390 end # !
# action 420 regexp "Core 1: CPU utilization for five seconds: ([^%]+)%; one minute: ([^%]+)%; five minutes: ([^%]+)%.*" $_cli_result result c1cpu5sec c1cpu1min c1cpu5min # action 450 if $_regexp_result eq 1 # action 490 end # !
# action 720 cli command "config t"
# action 731 cli command "snmp mib expression owner cisco name c0cpu5sec"
# action 732 cli command "expression $c0cpu5sec"
# action 733 cli command "snmp mib expression owner cisco name c0cpu1min"
# action 734 cli command "expression $c0cpu1min"
# action 735 cli command "snmp mib expression owner cisco name c0cpu5min"
# action 736 cli command "expression $c0cpu5min"
# !
# action 820 cli command "config t"
# action 831 cli command "snmp mib expression owner cisco name c1cpu5sec"
# action 832 cli command "expression $c1cpu5sec"
# action 833 cli command "snmp mib expression owner cisco name c1cpu1min"
# action 834 cli command "expression $c1cpu1min"
# action 835 cli command "snmp mib expression owner cisco name c1cpu5min"
# action 836 cli command "expression $c1cpu5min"
# !
# action 900 cli command "end"
# !
# end
#
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_exec $cli1(fd) "en"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "show process cpu | include fiv"} _cli_result] {
error $_cli_result $errorInfo
}
set _regexp_result [regexp {Core 0: CPU utilization for five seconds: ([^%]+)%; one minute: ([^%]+)%; five minutes: ([^%]+)%.*} $_cli_result result c0cpu5sec c0cpu1min c0cpu5min] if {$_regexp_result == 1} { } set _regexp_result [regexp {Core 1: CPU utilization for five seconds: ([^%]+)%; one minute: ([^%]+)%; five minutes: ([^%]+)%.*} $_cli_result result c1cpu5sec c1cpu1min c1cpu5min] if {$_regexp_result == 1} { } if [catch {cli_exec $cli1(fd) "config t"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "snmp mib expression owner cisco name c0cpu5sec"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "expression $c0cpu5sec"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "snmp mib expression owner cisco name c0cpu1min"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "expression $c0cpu1min"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "snmp mib expression owner cisco name c0cpu5min"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "expression $c0cpu5min"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "config t"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "snmp mib expression owner cisco name c1cpu5sec"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "expression $c1cpu5sec"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "snmp mib expression owner cisco name c1cpu1min"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "expression $c1cpu1min"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "snmp mib expression owner cisco name c1cpu5min"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "expression $c1cpu5min"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "end"} _cli_result] {
error $_cli_result $errorInfo
}
# Close open cli before exit.
catch {cli_close $cli1(fd) $cli1(tty_id)} result
