tcl proc for sending out email or beeper alerts

#
# My Simpel Tcl Mail Proc
#

package require tclMail

proc SendEmail { MyArgs } {

set mailfrom “mymail@mailserver.com”
set eamil “emailrecipient@mydomain.org”
set mailmsg “This is a test email mesage from Cloverleaf”
set mailsubj “Test email subject”
set mailserver or
set maildomain “mydomain.org”
set authuser “myemailauthuser@mydomain.org”

set mailarray(FROM) $mailfrom
set mailarray(TO) $email
set mailarray(MSG) $mailmsg
set mailarray(SUBJ) $mailsubj
set mailarray(SERVER) $mailserver
set mailarray(DOMAIN) $maildomain
set mailarray(USER) $authmailuser

tclMail::SendMail mailarray

}