I'm quite confuse by this error???
Basically I'm exploring the options fo the cli_ command extensions in Tcl. So I wrote quite a simple script:
Terminal#more flash:/cli_alternate.tcl
::cisco::eem::event_register_none
namespace import ::cisco::eem::*
namespace import ::cisco::lib::*
if {[catch {cli_open} result]} {
puts stderr $result
exit 1
} else {
action_syslog priority emergencies msg "EEM:Opening a vty line."
array set cli1 $result
}
set cmd_exec "clear line 46"
set read_pattern "[continue]"
set cmd_response "y"
if {[catch {cli_write $cli1(fd) "enable"} result]} {
puts stderr $result
exit 1
}
if {[catch {cli_write $cli1(fd) $cmd_exec} result]} {
puts stderr $result
exit 1
}
if {[catch {cli_read_pattern $cli1(fd) $read_pattern} result]} {
puts stderr $result
exit 1
}
if {[catch {cli_write $cli1(fd) $cmd_response} result]} {
puts stderr $result
exit 1
}
if {[catch {cli_close $cli1(fd) $cli1(tty_id)} result]} {
puts "Warning: $result"
}
return -code ok
I register the script, no error. Once I try to start it:
Terminal#event manager run cli_alternate.tcl
invoked "continue" outside of a loop
while executing
"eval_script slave $scriptname"
invoked from within
"if {$security_level == 1} { #untrusted script
interp create -safe slave
interp share {} stdin slave
interp share {} stdout slave
..."
(file "tmpsys:/lib/tcl/base.tcl" line 50)
Tcl policy execute failed: invoked "continue" outside of a loop
My understanding is that an internal function is called and it outputs an error. But why? I've checked my syntax a dozen times, and it should be in order, otherwise the system will refuse to register the script... What's wrong here? In writing the script I borrowed heavily from the embeded command extension cli_run_interactive from more tmpsys:/lib/tcl/cli_lib.tcl.
