Hi Joseph
thx again
Sorry I don't understand how to add the append logic to my applet converted in TCL
Using converter I have converted my applet with redirect flash:xxx (without .$_event_pub_sec) this is the result
::cisco::eem::event_register_timer watchdog time 60
#
# 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 Y1731-SLM
#
# event timer watchdog time 60
#
# action 1.0 cli command "enable"
#
# action 1.1 cli command "terminal exec prompt timestamp"
#
# action 1.2 cli command "sh ip sla history 450 interval-statistics | redirect flash:/Y1731-SLM"
#
#
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) "terminal exec prompt timestamp"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "sh ip sla history 450 interval-statistics | redirect flash:/Y1731-SLM"} _cli_result] {
error $_cli_result $errorInfo
}
# Close open cli before exit.
catch {cli_close $cli1(fd) $cli1(tty_id)} result
So now I have to add this commands?
set fd [open "flash:Y1731-SLM" "r"]
set contents [read $fd]
close $fd
append contents $_cli_result
set fd [open "flash:Y1731-SLM" "w"]
puts $fd $contents
close $fd
Thaxs
Riccardo
