Run tcl from alert

Yes. I just built one in a test site..

Here is the start of the proc I referenced:

proc send_SMTP {debug module email_to email_fr email_cc email_bc email_subject email_body table} {

package require mime
package require smtp

set module “$module.send_SMTP”

if {$debug > 1} {echo “$module email_su $email_subject”}

Here is the invocation in the Alerts file entry – tcl proc window:

send_SMTP “2” “alerts” “peterheggie@crouse.org” “dlitinterfaces@crouse.org” “” “” “tcl test subject” “tcl test email body” “Send_SMTP_Email”

After putting this in, and meeting the alert condition, I received my test email. What this tells me is:

• I can invoke tcl procs stored in the site’s tclprocs library
• I expect that master site procs are also useable
• I can pass parameters as normal, even with some positional parameters empty, without problem

Using echo functions sends the output to the hcimonitord.log file, although I suspect that Infor does not recommend doing this.

There are also ‘site-level’ variables that you can use in your code or passed parameters; I believe the list of these variables are in the documentation somewhere.

ok I’m stumped, so far.. can you put some echo statements in “tpsSendAlertEmail”, just to see how far it gets? Did you store the tcl in the <site>/tclprocs folder and run “mktclindex” ? Look for the echos in ../<site>/exec/hcimonitord/hcimonitord.log

I am reaching my limit! Can you try removing ‘tcl’ from in front of the tps name?

yes, tcl is the right action. It should work. When I tested my tcl I did not have notify{} in the window.

ok so the top window in the Actions section has notify {} as the default. I change the Alert Action drop down to tcl. In the TCL Code window, I paste the invocation of my proc:

send_SMTP “2” “alerts” “peterheggie@crouse.org” “dlitinterfaces@crouse.org” “” “” “tcl test subject” “tcl test email body” “Send_SMTP_Email”

I click on the Update button. After clicking, the top window changes – the notify {} is removed, and my tcl invocation string is copied in, exactly as I pasted it in the TCL Code window below, except that it is prefixed with ‘tcl’ and then my entire invocation is enclosed in curly brackets. So it looks like this:

tcl {send_SMTP “2” “alerts” “peterheggie@crouse.org” “dlitinterfaces@crouse.org” “” “” “tcl test subject” “tcl test email body” “Send_SMTP_Email”}

Also the above parameters are delimited by quotes, but these are the ‘slanted’ quotes you see in Word, not the regular ‘straight up and down’ quotes. So I had to change the slanted quotes to straight quotes.

I did not click on any of the text icons (Append, Delete, Cut, Copy, Paste) and I did not click on the Advanced button.

I clicked on the plus sign in the Trigger window to create the rule, and then clicked Save on the File menu.

The alert is setup on a thread status down. I recycled the Monitor daemon and received the email.

Hi Gene,

Here is another way of doing this (run your script as a command instead of Tcl)

1. Instead of selecting “tcl” for your action, select “exec”.
2. In the “Command:” textbox, enter the name of your Tcl proc tpsSendAlertEmail.tcl and click on the “Update” button.
3. In order for Cloverleaf to find your new command, you need to place your Tcl script “tpsSendAlertEmail.tcl” in the $HCIROOT/usercmds directory because this is where Cloverleaf looks by default.
4. Also must make this file executable on the command line by using chmod +x

Good luck.