Hi,
I am working on a TCL script embedded in a MDF. That MDF is reached when a specific user logs into the router through a telnet connection (username <user> autocommand emm mdf <mdf>). The goal of that TCL script is to remove every static routes set up into the routers and add a new one when the user will press on an option in the MDF file: what I am currently using works but only at the first script execution after router's boot:
[OUTPUT_OMITTED]
<Item ContinuePrompt="true">
<ItemTitle>
<Constant String="Change route for DHCP" />
</ItemTitle>
<HelpString>
<Constant String="This will change the default route for the DHCP connection"/>
</HelpString>
<EmbeddedTCL>
<TCLCommand>
set currentRoutes [exec {show run | i ip route}]
foreach rtToRemove [ regexp -all -line -inline {^ip route \[0-9\]*\.\[0-9\]*\.\[0-9\]*\.\[0-9\]* \[0-9\]*\.\[0-9\]*\.\[0-9\]*\.\[0-9\]*.*} $currentRoutes ] {
puts "Removing route: $rtToRemove"
ios_config "no $rtToRemove"
}
unset currentRoutes
ios_config "ip route 0.0.0.0 0.0.0.0 DHCP 4"
</TCLCommand>
</EmbeddedTCL>
</Item>
[OUTPUT_OMITTED]
At the first execution after the boot everything works fine, exec line is executed (and not displayed) and iterations in the foreach statement are performed, Though if I re-execute that option without rebooting the router the show run | i ip route is displayed in the console and routes are not removed: script seems to stop after the exec {show run | i ip route}.
Any help will be greatly appreciated.
THanks,
Vivien
