I found this sample script from section 2.1.7 of the CUBE Management guide,
http://www.cisco.com/en/US/partner/prod/collateral/voicesw/ps6790/gatecont/ps5640/white_paper_c11-613550_ps10536_Products_White_Paper.html
I'm trying to add it to monitor dial-peer up/down status. I'm using the exact code listed in the guide;
::cisco::eem::event_register_timer watchdog time $check_interval nice 1
#
# Namespace imports
#
namespace import ::cisco::eem::*
namespace import ::cisco::lib::*
#--- Check required environment variable(s) has been defined
if {![info exists dial_peer_number]} {
set result "EEM Policy Error: variable dial_peer_number has not been set"
error $result $errorInfo
}
#------------------- " cli open" -------------------
if [catch {cli_open} result] {
error $result $errorInfo
} else {
array set cli $result
}
#----------------------- "enable" ----------------------
if [catch {cli_exec $cli(fd) "enable"} result] { error $result $errorInfo }
#-------------- grab sip ood options-ping and track status --------------
if [catch {cli_exec $cli(fd) "show dial-peer voice $dial_peer_number | inc options-keepalive dial-peer action"} result] {
error $result $errorInfo
}
set cmd_output $result
if [catch {cli_exec $cli(fd) "show track $dial_peer_number | inc State"} result] { error $result $errorinfo
}
set track_state $result
#-------------- set stub status --------------
if [string match "*busyout*" $cmd_output] {
if [string match "*Up*" $track_state] {
if [catch {cli_exec $cli(fd) "conf t" } result] { error $result $errorInfo }
if [catch {cli_exec $cli(fd) "track $dial_peer_number stub-object" } result]
{ error $result $errorInfo }
if [catch {cli_exec $cli(fd) "default-state down" } result]
{ error $result $errorInfo }
if [catch {cli_exec $cli(fd) "end" } result] { error $result $errorInfo }
}
}
if [string match "*active*" $cmd_output] {
if [string match "*Down*" $track_state] {
if [catch {cli_exec $cli(fd) "conf t" } result] { error $result $errorInfo }
if [catch {cli_exec $cli(fd) "track $dial_peer_number stub-object" } result]
{ error $result $errorInfo }
if [catch {cli_exec $cli(fd) "default-state up" } result]
{ error $result $errorInfo }
if [catch {cli_exec $cli(fd) "end" } result] { error $result $errorInfo }
}
}
#--------------------- cli close ------------------------
if [catch {cli_close $cli(fd) $cli(tty_id)} result] {
error $result $errorInfo
}
I can insert it with the open, closed and enable sections but when I add the set stub status section I get the following;
router(config)#event manager policy check_dial_peer_status.tcl
EEM Register event failed:wrong # args: no script following "[catch {cli_exec $cl" argument
while compiling
"if [catch {cli_exec $cli(fd) "track $dial_peer_number stub-object" } result]"
("if" then script line 3)
while compiling
"if [string match "*Up*" $track_state] {
if [catch {cli_exec $cli(fd) "conf t" } result] { error $result $errorInfo }
if [catch {cli_exec $cli(fd) "tra..."
("if" then script line 2)
while compiling
"if [string match "*busyout*" $cmd_output] {
if [string match "*Up*" $track_state] {
if [catch {cli_exec $cli(fd) "conf t" } result] { error $result $e..."
EEM configuration: failed to retrieve intermediate registration result for policy check_dial_peer_status.tcl
I've had someone that nows TCL take a look and everything appears to be good but I can't get it to take. Can anyone assist?
Thanks
Travis
