tcl in an alert

[Jeff Manley]

I have an email proc that will run from a shell window in tcl…

tcl>eval [cool_jeffm_mailer {OB Q Backed Up} {Thread outbound queue depth of TO_

AMICAS_23 is more than or equal to 25}]

220 gwmail.altru.org GroupWise Internet Agent 7.0.3  Copyright (c) 1993-2008 Nov

ell, Inc.  All rights reserved. Ready

I do receive the email.

When I put the following line of code in an alert, it does not work…

eval [cool_jeffm_mailer {Thread Down} {%A}]

Here is the log…

[aler:aler:WARN/0:  hcimonitord:12/11/2009 08:46:40] Alert #5 triggered.

alert: {VALUE status} {SOURCE {FROM_AMICAS_23 FROM_DICOM_23 FROM_DICOM_CRK_23 FROM_EXT_23 FROM_EXV_23 FROM_EXV_RIS_ORU_23_NEW FROM_LAB_22 FROM_PENRAD_23 FROM_PHARM_DFT_22 FROM_PHAR_23 FROM_PHAR_TO_TALYST23 FROM_PHILIPS_23 FROM_POWERPATH_23 FROM_QDXACCURA_23 FROM_QDXBRAD_22 FROM_QDXPHAR_23 FROM_QDX_22 FROM_QDX_23 FROM_QDX_23_EDM FROM_QDX_23_II FROM_QDX_23_POWERPATH_NEW FROM_QDX_23_TO_EPIC FROM_QDX_LAB_MFN_22 FROM_QDX_MSPY_23 FROM_TRACEMASTER_23 FROM_TRANSCEND FROM_USTRANSCRIPTION_23 FROM_VIASYS_23 TO_ACCURA_23 TO_AMICAS_23 TO_BRADOC TO_CAMTRONICS_23 TO_DICOM_23 TO_DICTAPHONE_23_NEW TO_EDM_23 TO_EPIC_ADT_PROD_31030 TO_EPIC_ADT_SUP_31030 TO_EPIC_MDM_SUP_31005 TO_EPIC_ORU_SUP_31000 TO_EPIC_PROD_31001 TO_EPIC_SUP_31001 TO_EXT_23 TO_FETAL_23 TO_LAB_22 TO_LAB_MFN_22 TO_LUMEDX_23 TO_MPISPY_23 TO_PENRAD_23 TO_PHARM_ADT_22 TO_PHARM_MFN_22 TO_PHAR_23 TO_POWERPATH_23_NEW TO_QDXPHAR_23 TO_QDXPHVIT_23 TO_QDXTALYST_23 TO_QDX_22 TO_QDX_23 TO_QDX_23_II TO_QDX_23_POWERPATH TO_TELCOR_22 TO_TRACEMASTER_23 TO_TRANSCEND TO_USTRANSCRIPTION_23 TO_VARIS_23 TO_VIASYS_23 TO_VISIONS_ADT_22 TO_VOCERA_RNET_23 }} {MODE actual} {WITH -2} {COMP {== down}} {FOR once} {WINDOW {* * * * * *}} {HOST {}} {ACTION {{tcl {eval [cool_jeffm_mailer {Thread Down} {%A}]}}}}

action: tcl proc eval [cool_jeffm_mailer {Thread Down} {Thread status of FROM_AMICAS_23 is down }]

[aler:aler:ERR /0:  hcimonitord:12/11/2009 08:46:40] Tcl error: invalid command name “cool_jeffm_mailer”

Is it my brackets or braces?  Should I use catch instead of eval?

I wish we were still on 5.3 unix instead of 5.4 windows.    🙁

Topic