DHCP DB EEM tcl script invalid command name "0"

[rich-nelson]

I'm trying to implement Jclarke's notify on dhcp db changes found here https://supportforums.cisco.com/docs/DOC-19246

I've set the enviroment dhcp_file_pattern variable to slot0:dhcp_data

Oct 23 16:41:29.143: %HA_EM-6-LOG: tm_dhcp_watch.tcl: invalid command name "0"

Oct 23 16:41:29.143: %HA_EM-6-LOG: tm_dhcp_watch.tcl:     while executing

Oct 23 16:41:29.143: %HA_EM-6-LOG: tm_dhcp_watch.tcl: "0   if {![regexp $resp(expect) $result]} {

Oct 23 16:41:29.143: %HA_EM-6-LOG: tm_dhcp_watch.tcl:           return -code error $result

Oct 23 16:41:29.143: %HA_EM-6-LOG: tm_dhcp_watch.tcl:       }"

Oct 23 16:41:29.143: %HA_EM-6-LOG: tm_dhcp_watch.tcl:     invoked from within

Oct 23 16:41:29.143: %HA_EM-6-LOG: tm_dhcp_watch.tcl: "$slave eval $Contents"

Oct 23 16:41:29.143: %HA_EM-6-LOG: tm_dhcp_watch.tcl:     (procedure "eval_script" line 7)

Oct 23 16:41:29.143: %HA_EM-6-LOG: tm_dhcp_watch.tcl:     invoked from within

Oct 23 16:41:29.143: %HA_EM-6-LOG: tm_dhcp_watch.tcl: "eval_script slave $scriptname"

Oct 23 16:41:29.143: %HA_EM-6-LOG: tm_dhcp_watch.tcl:     invoked from within

Oct 23 16:41:29.143: %HA_EM-6-LOG: tm_dhcp_watch.tcl: "if {$security_level == 1} {       #untrusted script

Oct 23 16:41:29.143: %HA_EM-6-LOG: tm_dhcp_watch.tcl:      interp create -safe slave

Oct 23 16:41:29.143: %HA_EM-6-LOG: tm_dhcp_watch.tcl:      interp share {} stdin slave

Oct 23 16:41:29.143: %HA_EM-6-LOG: tm_dhcp_watch.tcl:      interp share {} stdout slave

Oct 23 16:41:29.143: %HA_EM-6-LOG: tm_dhcp_watch.tcl: ..."

Oct 23 16:41:29.143: %HA_EM-6-LOG: tm_dhcp_watch.tcl:     (file "tmpsys:/lib/tcl/base.tcl" line 50)

Oct 23 16:41:29.143: %HA_EM-6-LOG: tm_dhcp_watch.tcl: Tcl policy execute failed:

Oct 23 16:41:29.143: %HA_EM-6-LOG: tm_dhcp_watch.tcl: invalid command name "0"

The device is a catalyst 4507 Sup6-E ios version 15.2-1 with EEM version is 3.20

Any assistance would be greatly appreciated.

Thank you,

Rich

[Joe Clarke · Accepted solution]

It looks like your script is corrupt.  The '0' is not in the version I just downloaded.  Try redownloading the .zip file from the community and load it again.  The line in question should look like:

        if {![regexp $resp(expect) $result]} {