x(config)#no event manager policy sl_bgp_neighbor_watch.tcl
x(config)#event manager policy sl_bgp_neighbor_watch.tcl
x(config)# router bgp 11790
x(config-router)#no neighbor x.x.x.x remote-as 6461
x(config-router)#no neighbor x.x.x.x remote-as 6461
x(config-router)#no neighbor x.x.x.x remote-as 6461
x(config-router)#no neighbor x.x.x.x remote-as 6461


x#
Oct 27 15:13:10.880: %BGP-5-ADJCHANGE: neighbor x.x.x.x Down Neighbor deleted
Oct 27 15:13:11.100: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: can't read "arr_einfo(msg)": variable isn't array
Oct 27 15:13:11.100: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:     while executing
Oct 27 15:13:11.100: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: "set msg $arr_einfo(msg)"
Oct 27 15:13:11.100: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:     invoked from within
Oct 27 15:13:11.100: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: "$slave eval $Contents"
Oct 27 15:13:11.100: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:     (procedure "eval_script" line 7)
Oct 27 15:13:11.100: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:     invoked from within
Oct 27 15:13:11.100: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: "eval_script slave $scriptname"
Oct 27 15:13:11.100: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:     invoked from within
Oct 27 15:13:11.100: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: "if {$security_level == 1} {       #untrusted script
Oct 27 15:13:11.100: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:      interp create -safe slave
Oct 27 15:13:11.100: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:      interp share {} stdin slave
Oct 27 15:13:11.100: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:      interp share {} stdout slave
Oct 27 15:13:11.100: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: ..."
Oct 27 15:13:11.100: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:     (file "tmpsys:/lib/tcl/base.tcl" line 50)
Oct 27 15:13:11.100: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: Tcl policy execute failed: 
Oct 27 15:13:11.100: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: can't read "arr_einfo(msg)": variable isn't array
Oct 27 15:13:19.508: %BGP-5-ADJCHANGE: neighbor x.x.x.x Down Neighbor deleted
Oct 27 15:13:19.696: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: can't read "arr_einfo(msg)": variable isn't array
Oct 27 15:13:19.696: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:     while executing
Oct 27 15:13:19.696: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: "set msg $arr_einfo(msg)"
Oct 27 15:13:19.696: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:     invoked from within
Oct 27 15:13:19.696: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: "$slave eval $Contents"
Oct 27 15:13:19.696: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:     (procedure "eval_script" line 7)
Oct 27 15:13:19.696: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:     invoked from within
Oct 27 15:13:19.696: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: "eval_script slave $scriptname"
Oct 27 15:13:19.696: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:     invoked from within
Oct 27 15:13:19.696: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: "if {$security_level == 1} {       #untrusted script
Oct 27 15:13:19.696: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:      interp create -safe slave
Oct 27 15:13:19.696: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:      interp share {} stdin slave
Oct 27 15:13:19.696: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:      interp share {} stdout slave
Oct 27 15:13:19.696: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: ..."
Oct 27 15:13:19.696: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:     (file "tmpsys:/lib/tcl/base.tcl" line 50)
Oct 27 15:13:19.696: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: Tcl policy execute failed: 
Oct 27 15:13:19.696: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: can't read "arr_einfo(msg)": variable isn't array
Oct 27 15:13:24.348: %BGP-5-ADJCHANGE: neighbor x.x.x.x Down Neighbor deleted
Oct 27 15:13:24.536: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: can't read "arr_einfo(msg)": variable isn't array
Oct 27 15:13:24.536: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:     while executing
Oct 27 15:13:24.536: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: "set msg $arr_einfo(msg)"
Oct 27 15:13:24.536: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:     invoked from within
Oct 27 15:13:24.536: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: "$slave eval $Contents"
Oct 27 15:13:24.536: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:     (procedure "eval_script" line 7)
Oct 27 15:13:24.536: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:     invoked from within
Oct 27 15:13:24.536: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: "eval_script slave $scriptname"
Oct 27 15:13:24.536: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:     invoked from within
Oct 27 15:13:24.536: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: "if {$security_level == 1} {       #untrusted script
Oct 27 15:13:24.536: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:      interp create -safe slave
Oct 27 15:13:24.536: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:      interp share {} stdin slave
Oct 27 15:13:24.536: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:      interp share {} stdout slave
Oct 27 15:13:24.536: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: ..."
Oct 27 15:13:24.536: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:     (file "tmpsys:/lib/tcl/base.tcl" line 50)
Oct 27 15:13:24.536: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: Tcl policy execute failed: 
Oct 27 15:13:24.536: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: can't read "arr_einfo(msg)": variable isn't array
Oct 27 15:13:30.992: %BGP-5-ADJCHANGE: neighbor x.x.x.x Down Neighbor deleted
Oct 27 15:13:31.180: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: can't read "arr_einfo(msg)": variable isn't array
Oct 27 15:13:31.180: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:     while executing
Oct 27 15:13:31.180: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: "set msg $arr_einfo(msg)"
Oct 27 15:13:31.180: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:     invoked from within
Oct 27 15:13:31.180: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: "$slave eval $Contents"
Oct 27 15:13:31.180: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:     (procedure "eval_script" line 7)
Oct 27 15:13:31.180: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:     invoked from within
Oct 27 15:13:31.180: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: "eval_script slave $scriptname"
Oct 27 15:13:31.180: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:     invoked from within
Oct 27 15:13:31.180: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: "if {$security_level == 1} {       #untrusted script
Oct 27 15:13:31.180: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:      interp create -safe slave
Oct 27 15:13:31.180: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:      interp share {} stdin slave
Oct 27 15:13:31.180: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:      interp share {} stdout slave
Oct 27 15:13:31.180: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: ..."
Oct 27 15:13:31.180: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl:     (file "tmpsys:/lib/tcl/base.tcl" line 50)
Oct 27 15:13:31.180: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: Tcl policy execute failed: 
Oct 27 15:13:31.180: %HA_EM-6-LOG: sl_bgp_neighbor_watch.tcl: can't read "arr_einfo(msg)": variable isn't array
Oct 27 15:13:43.924: %TRACKING-5-STATE: 100 ip route 0.0.0.0/0 reachability Up->Down