Joseph,
I made the change as you suggested, however I still can only get the script to run by manually running
event manager run toptalkers.tcl.
::cisco::eem::event_register_none
#
# 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 toptalkers
# event none
# action 1.1 cli command "enable"
# action 1.2 cli command "conf t"
# action 1.3 cli command "flow record FlowRecord1"
# action 1.4 cli command "match ipv4 protocol"
# action 1.5 cli command "match ipv4 tos"
# action 1.6 cli command "match ipv4 source address"
# action 1.7 cli command "match ipv4 destination address"
# action 1.8 cli command "match transport source-port"
# action 1.9 cli command "match transport destination-port"
# action 2.1 cli command "match flow direction"
# action 2.2 cli command "match interface input"
# action 2.3 cli command "match interface output"
# action 2.4 cli command "collect application name"
# action 2.5 cli command "collect timestamp sys-uptime first"
# action 2.6 cli command "exit"
# action 2.7 cli command "flow monitor FlowMonitor1"
# action 2.8 cli command "cache timeout active 86520"
# action 2.9 cli command "cache entries 32768"
# action 3.1 cli command "record FlowRecord1"
# action 3.2 cli command "end"
# action 3.3 cli command "event manager run toptalkers.tcl"
#
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) "enable"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "conf t"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "flow record FlowRecord1"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "Description Flow Record to Determine Top Talkers Attached to
FlowMonitor1"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "match ipv4 protocol"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "match ipv4 tos"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "match ipv4 source address"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "match ipv4 destination address"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "match transport source-port"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "match transport destination-port"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "match flow direction"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "match interface input"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "match interface output"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "collect application name"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "collect timestamp sys-uptime first"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "exit"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "flow monitor FlowMonitor1"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "cache timeout active 86520"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "cache entries 32768"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "record FlowRecord1"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "end"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "event manager run toptalkers.tcl"} _cli_result] {
error $_cli_result $errorInfo
}
# Close open cli before exit.
catch {cli_close $cli1(fd) $cli1(tty_id)} result
Any help will be greatly appreciated.
