Here is the script that will do a command based on the up or down operation status of an interface.
This script is very, VERY basic, no spell checking of the interface, no check of previous interface state
the last time the script was run
proc clearvpn { int } {
set int_out [exec "show interfaces"]
## regex looks for the interface you specified when you called
## the procedure Variable var_dontcare is a copy of variable
## int_out, variable var_int_status contains the operation status
## of the interface.
regexp "$int is \[a-z \]\{2,25\}, line protocol is (\[a-z\]\{2,5\}).*" $int_out var_dontcare var_int_status
if {[info exists var_int_status]} {
if {[string equal up $var_int_status]} {
##
## Replace the following line with the command you wish to run.
##
exec "clear ip bgp *"
puts "VPN's cleared"
} elseif {[string equal down $var_int_status]} {
puts "Interface is down" }
} else {
puts "Interface does not exist! Check spelling"
}
}
You can have the procedure auto initialize from an ftp server.
To accomplish that, add the following global command with your info:
scripting tcl init ftp://user:password@10.1.1.1/tclscript/initfiles3.tcl
-or-
you can store the tcl file locally on the flash:
scripting tcl init flash://initfiles3.tcl
-or-
just call the file when you start tclsh
source slot0:clearvpn.tcl
Here is the output of me using the command.
Rack1R1#tclsh
Rack1R1(tcl)#
Rack1R1(tcl)#
Rack1R1(tcl)#proc clearvpn { int } {
+>
+>set int_out [exec "show interfaces"]
+>
+>## regex looks for the interface you specified when you called
+>## the procedure Variable var_dontcare is a copy of variable
+>## int_out, variable var_int_status contains the operation status
+>## of the interface.
+>
+>$rotocol is (\[a-z\]\{2,5\}).*" $int_out var_dontcare var_int_status
+>
+>if {[info exists var_int_status]} {
+> if {[string equal up $var_int_status]} {
+> ##
+> ## Replace the following line with the command you wish to run.
+> ##
+> exec "clear ip bgp *"
+> puts "VPN's cleared"
+> } elseif {[string equal down $var_int_status]} {
+> puts "Interface is down" }
+> } else {
+> puts "Interface does not exist! Check spelling"
+> }
+>}
Rack1R1(tcl)#clearvpn serial2/0
Interface does not exist! Check spelling
Rack1R1(tcl)#clearvpn Serial2/0
Interface is down
Rack1R1(tcl)#clearvpn FastEthernet0/0
VPN's cleared
Rack1R1(tcl)#
03:53:58: %BGP-5-ADJCHANGE: neighbor 131.1.3.3 Down User reset
03:53:58: %BGP-5-ADJCHANGE: neighbor 131.1.5.5 Down User reset
03:53:58: %BGP-5-ADJCHANGE: neighbor 131.1.19.9 Down User reset
03:53:59: %BGP-5-ADJCHANGE: neighbor 131.1.3.3 Up
Rack1R1(tcl)#
03:54:00: %BGP-5-ADJCHANGE: neighbor 131.1.5.5 Up
Rack1R1(tcl)#
03:54:02: %BGP-5-ADJCHANGE: neighbor 131.1.19.9 Up
Rack1R1(tcl)#
