Cisco: EEM TCL
### Config
#
set script_version "0.2"
set ip 10.10.10.33
#
### Einde config
# Syslog bericht om aan te geven dat we zijn gestart
set syslog [open "syslog: " w+]
puts $syslog "DSL-STATE: Line is down, waiting for 3g backup connection"
close $syslog
set link 0
# Zolang de link plat is, blijven pingen
while { $link == 0 } {
# Wanneer we 3x een ! krijgen is de link betrouwbaar genoeg
if { [regexp "(!!!)" [exec "ping $ip timeout 1" ]] } {
set link 1
set syslog [open "syslog: " w+]
puts $syslog "DSL-STATE: Backup connection established"
close $syslog
# Anders blijven we pingen en melden we de voortgang
} else {
set syslog [open "syslog: " w+]
puts $syslog "DSL-STATE: Link is still down"
close $syslog
}
}
# Tenslotte melden we dat de backup verbinding in de lucht is
set syslog [open "syslog: " w+]
puts $syslog "DSL-STATE: DSL down, running on 3g backup (script v $script_version)"
close $syslog
event manager applet track-dsl authorization bypass event track 12 state down action 1.0 cli command "enable" action 1.1 cli command "tclsh flash:/dsl-state.tcl"
TestRTR#conf t Enter configuration commands, one per line. End with CNTL/Z. TestRTR(config)#int lo99 TestRTR(config-if)#shut TestRTR(config-if)# *Apr 24 08:39:08.063: %TRACKING-5-STATE: 12 ip sla 12 state Up->Down *Apr 24 08:39:08.083: DSL-STATE: Line is down, waiting for 3g backup connection *Apr 24 08:39:08.091: %LINK-5-CHANGED: Interface Loopback99, changed state to administratively down *Apr 24 08:39:09.091: %LINEPROTO-5-UPDOWN: Line protocol on Interface Loopback99, changed state to down *Apr 24 08:39:13.087: DSL-STATE: Link is still down *Apr 24 08:39:18.091: DSL-STATE: Link is still down TestRTR(config-if)#no shut TestRTR(config-if)# *Apr 24 08:39:23.095: DSL-STATE: Link is still down *Apr 24 08:39:25.675: %LINK-3-UPDOWN: Interface Loopback99, changed state to up *Apr 24 08:39:26.675: %LINEPROTO-5-UPDOWN: Line protocol on Interface Loopback99, changed state to up *Apr 24 08:39:27.099: DSL-STATE: Link is still down *Apr 24 08:39:27.103: DSL-STATE: Backup connection established *Apr 24 08:39:27.107: DSL-STATE: DSL down, running on 3g backup (script v 0.2)