Posted to tcl by centrix at Wed Aug 29 07:31:48 GMT 2018view raw

  1. namespace eval ::XUtils {
  2.  
  3. source $::env(HOME)/ParseConf.itcl
  4. XConfig ::XUtils::cfgobj
  5.  
  6. # mailTo: one or more email addresses separated by a comma,
  7. # mailFrom: a regular email address, not a simple text!
  8. # mailBody: a mime initalized TCL entity
  9. # mailSubj: a simple text
  10. # Note,note,note: if empty email address supplied the procedure
  11. # pulls the config value out of the 'admemail' key
  12. proc Mailer { mailTo mailFrom mailBody mailSubj } {
  13. set retcode 0
  14. if { [string length $mailTo] == 0 } {
  15. set mailTo [cfgobj getConfigValue "admemail"]
  16. }
  17. catch {
  18. smtp::sendmessage $mailBody \
  19. -servers [cfgobj getConfigValue "emailsrv"] \
  20. -usetls 0 \
  21. -header [list From "$mailFrom"] \
  22. -header [list To "$mailTo"] \
  23. -header [list Subject "$mailSubj"]
  24. } result
  25. if { [string length $result] > 0 } {
  26. puts stderr $result
  27. set retcode 1
  28. }
  29. return $retcode
  30. }
  31. }
  32.