Posted to tcl by centrix at Wed Aug 29 07:31:48 GMT 2018view raw
- namespace eval ::XUtils {
- source $::env(HOME)/ParseConf.itcl
- XConfig ::XUtils::cfgobj
- # mailTo: one or more email addresses separated by a comma,
- # mailFrom: a regular email address, not a simple text!
- # mailBody: a mime initalized TCL entity
- # mailSubj: a simple text
- # Note,note,note: if empty email address supplied the procedure
- # pulls the config value out of the 'admemail' key
- proc Mailer { mailTo mailFrom mailBody mailSubj } {
- set retcode 0
- if { [string length $mailTo] == 0 } {
- set mailTo [cfgobj getConfigValue "admemail"]
- }
- catch {
- smtp::sendmessage $mailBody \
- -servers [cfgobj getConfigValue "emailsrv"] \
- -usetls 0 \
- -header [list From "$mailFrom"] \
- -header [list To "$mailTo"] \
- -header [list Subject "$mailSubj"]
- } result
- if { [string length $result] > 0 } {
- puts stderr $result
- set retcode 1
- }
- return $retcode
- }
- }