Hello,
I have come up with two TCL scripts (attached as zipped files), you need to unzip these and copy them to your flash or disk0 directory (check which one your router uses):
Your IP SLA would look like this:
track 1
type rtr 1 reachability
!
ip sla operation 1
type icmp echo
destination address 192.168.1.2
frequency 2
!
ip sla schedule operation 1
life forever
start-time now
commit
You need to configure the below parameters (again, check if your router uses flash0 or disk0 and change that parameter accordingly):
event manager environment _syslog_pattern .*(track 1 state Track_Down)
event manager directory user policy flash0:
event manager policy LINK_DOWN.tcl username eem persist-time 3600
!
event manager environment _syslog_pattern .*(track 1 state Track_Up)
event manager directory user policy flash0:
event manager policy LINK_UP.tcl username eem persist-time 3600
These are the scripts:
Script 1 LINK_DOWN.tcl
::cisco::eem::event_register_syslog pattern {.*track 1 state Track_Down.*} maxrun 80
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) "int Gi0/1"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "shut"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "commit"} _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
----------
Script 2 LINK_UP.tcl
::cisco::eem::event_register_syslog pattern {.*track 1 state Track_Up.*} maxrun 80
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) "int Gi0/1"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "no shut"} _cli_result] {
error $_cli_result $errorInfo
}
if [catch {cli_exec $cli1(fd) "commit"} _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
