Setting the source-interface in a tcl script for email.

Question

So once again I am trying to figure this out and failing miserably. The only thin I can think of at the moment is that I need to tell it to source from a specific vrf interface. I've tried looking through possible enviornment variables. Hoping I could set it that way but have yet to find one. I have read varios settings for source-interface and attempted them. But fail every time with:
vpn_failure.tcl: smtp_send_email: error connecting to mail server:
EEM Version:
sho event manager version
Embedded Event Manager Version 4.00
Component Versions:
eem: (rel4)1.0.4
eem-gold: (rel1)1.0.2
eem-call-home: (rel2)1.0.0
Below is the stock format for sending the email from the script. If someone could guide me in the correct way to set this up to source the interface that would be awesome.
# create mail form
  action_syslog msg "Creating mail header for vpn_failure.tcl script..."
  set body [format "Mailservername: %s" "$_email_server"]
  set body [format "%s\nFrom: %s" "$body" "$_email_from"]
  set body [format "%s\nTo: %s" "$body" "$_email_to"]
  set _email_cc ""
  set body [format "%s\nCc: %s" "$body" ""]
  set body [format "%s\nSubject: %s\n" "$body" "VPN Failure Detected: Router $routername Crypto tunnel is DOWN. Peer $remote_peer"]
  set body [format "%s\n%s" "$body" "Report Summary:"]
  set body [format "%s\n%s" "$body" "   - syslog message"]
  set body [format "%s\n%s" "$body" "   - summary of interface(s) in an up/down state"]
  set body [format "%s\n%s" "$body" "   - show ip route $remote_peer"]
  set body [format "%s\n%s" "$body" "   - show crypto isakmp sa"]
  set body [format "%s\n%s" "$body" "   - show crypto session detail"]
  set body [format "%s\n%s" "$body" "   - show crypto engine connection active"]
  set body [format "%s\n%s" "$body" "   - show ip nhrp detail (DMVPN only)"]
  set body [format "%s\n%s" "$body" "   - show log"]
  set body [format "%s\n\n%s" "$body" "---------- syslog message ----------"]
  set body [format "%s\n%s" "$body" "$syslog_msg"]
  set body [format "%s\n\n%s" "$body" "---------- summary of interface(s) in an up/down state ----------"]
  set body [format "%s\n\n%s" "$body" "$show_ip_interface_brief_up_down"]
  set body [format "%s\n\n%s" "$body" "---------- show ip route $remote_peer ----------"]
  set body [format "%s\n\n%s" "$body" "$show_ip_route"]
  set body [format "%s\n\n%s" "$body" "---------- show crypto isakmp sa ----------"]
  set body [format "%s\n\n%s" "$body" "$show_crypto_isakmp_sa"]
  set body [format "%s\n\n%s" "$body" "---------- show crypto session detail ----------"]
  set body [format "%s\n\n%s" "$body" "$show_crypto_session_detail"]
  set body [format "%s\n\n%s" "$body" "---------- show crypto engine connection active ----------"]
  set body [format "%s\n\n%s" "$body" "$show_crypto_engine_connection_active"]
  set body [format "%s\n\n%s" "$body" "---------- show ip nhrp detail (DMVPN only) ----------"]
  set body [format "%s\n\n%s" "$body" "$show_ip_nhrp_detail"]
  set body [format "%s\n\n%s" "$body" "---------- show log ----------"]
  set body [format "%s\n\n%s" "$body" "$show_log"]
  if [catch {smtp_send_email $body} result] {
    action_syslog msg "smtp_send_email: $result"

Answer 1

I got this far, saw the MAXRUN error, bumped that out and then turned on debugging. I am still not connecting to the mail server. So I don't think I am reaching the mail server yet. I don't think it is using the sourceinterface. In debugging everyting in the script works except for the mail portion.
Jul 29 16:01:00.334: %HA_EM-6-LOG: vpn_failure.tcl: Creating mail header for vpn_failure.tcl script...
Jul 29 16:02:36.464: %HA_EM-6-LOG: vpn_failure.tcl: Process Forced Exit- MAXRUN timer expired.
Jul 29 16:02:36.464: %HA_EM-6-LOG: vpn_failure.tcl:     while executing
Jul 29 16:02:36.464: %HA_EM-6-LOG: vpn_failure.tcl: "action_syslog msg "smtp_send_email: $result""
Jul 29 16:02:36.464: %HA_EM-6-LOG: vpn_failure.tcl:     invoked from within
Jul 29 16:02:36.464: %HA_EM-6-LOG: vpn_failure.tcl: "$slave eval $Contents"
Jul 29 16:02:36.464: %HA_EM-6-LOG: vpn_failure.tcl:     (procedure "eval_script" line 7)
Jul 29 16:02:36.464: %HA_EM-6-LOG: vpn_failure.tcl:     invoked from within
Jul 29 16:02:36.464: %HA_EM-6-LOG: vpn_failure.tcl: "eval_script slave $scriptname"
Jul 29 16:02:36.464: %HA_EM-6-LOG: vpn_failure.tcl:     invoked from within
Jul 29 16:02:36.464: %HA_EM-6-LOG: vpn_failure.tcl: "if {$security_level == 1} {       #untrusted script
Jul 29 16:02:36.464: %HA_EM-6-LOG: vpn_failure.tcl:      interp create -safe slave
Jul 29 16:02:36.464: %HA_EM-6-LOG: vpn_failure.tcl:      interp share {} stdin slave
Jul 29 16:02:36.464: %HA_EM-6-LOG: vpn_failure.tcl:      interp share {} stdout slave
Jul 29 16:02:36.464: %HA_EM-6-LOG: vpn_failure.tcl: ..."
Jul 29 16:02:36.464: %HA_EM-6-LOG: vpn_failure.tcl:     (file "tmpsys:/lib/tcl/base.tcl" line 50)
Jul 29 16:02:36.465: %HA_EM-6-LOG: vpn_failure.tcl: Tcl policy execute failed:
Jul 29 16:02:36.465: %HA_EM-6-LOG: vpn_failure.tcl: Process Forced Exit- MAXRUN timer expired.
Debugging On:
Jul 29 16:28:51.471: [fh_smtp_debug_cmd]
Jul 29 16:28:51.472: %HA_EM-6-LOG: vpn_failure.tcl : DEBUG(smtp_lib) : smtp_connect : attempt 2
Jul 29 16:29:24.473: [fh_smtp_debug_cmd]
Jul 29 16:29:24.473: %HA_EM-6-LOG: vpn_failure.tcl : DEBUG(smtp_lib) : smtp_connect : attempt 3
Jul 29 16:29:57.475: [fh_smtp_debug_cmd]
Jul 29 16:29:57.475: %HA_EM-6-LOG: vpn_failure.tcl : DEBUG(smtp_lib) : smtp_connect : attempt 4
Jul 29 16:30:30.478: [fh_smtp_debug_cmd]
Jul 29 16:30:30.479: %HA_EM-6-LOG: vpn_failure.tcl : DEBUG(smtp_lib) : smtp_connect : attempt 5
Jul 29 16:31:00.482: %HA_EM-6-LOG: vpn_failure.tcl: smtp_send_email: error connecting to mail server:
cannot connect to all the candidate mail servers
Jul 29 16:31:00.483: %HA_EM-6-LOG: vpn_failure.tcl: vpn_failure.tcl script completed
event manager environment _email_server 10.79.1.126
event manager environment _email_from [email protected]
event manager environment _email_to [email protected]
interface Port-channel1.101
description MGMT-1
encapsulation dot1Q 101
vrf forwarding MGMT-1
ip address 10.79.1.252 255.255.255.0
ip nat inside
ip virtual-reassembly
redundancy rii 101
redundancy group 2 ip 10.79.1.254 exclusive decrement 10
end
#----------------------- send mail ----------------------
# create mail form
  action_syslog msg "Creating mail header for vpn_failure.tcl script..."
  set body [format "Mailservername: %s" "$_email_server"]
  set body [format "%s\nFrom: %s" "$body" "$_email_from"]
  set body [format "%s\nTo: %s" "$body" "$_email_to"]
  set _email_cc ""
  set body [format "%s\nCc: %s" "$body" "[email protected]"]
  set body [format "%s\nSourceintf: %s" "$body" "port-channel1.101"]
  set body [format "%s\nSubject: %s\n" "$body" "VPN Failure Detected: Router $routername Crypto tunnel is DOWN. Peer $remote_peer"]
  set body [format "%s\n%s" "$body" "Report Summary:"]
  set body [format "%s\n%s" "$body" "   - syslog message"]
  set body [format "%s\n%s" "$body" "   - summary of interface(s) in an up/down state"]
  set body [format "%s\n%s" "$body" "   - show ip route $remote_peer"]
  set body [format "%s\n%s" "$body" "   - show crypto isakmp sa"]
  set body [format "%s\n%s" "$body" "   - show crypto session detail"]
  set body [format "%s\n%s" "$body" "   - show crypto engine connection active"]
  set body [format "%s\n%s" "$body" "   - show ip nhrp detail (DMVPN only)"]
  set body [format "%s\n%s" "$body" "   - show log"]
  set body [format "%s\n\n%s" "$body" "---------- syslog message ----------"]
  set body [format "%s\n%s" "$body" "$syslog_msg"]
  set body [format "%s\n\n%s" "$body" "---------- summary of interface(s) in an up/down state ----------"]
  set body [format "%s\n\n%s" "$body" "$show_ip_interface_brief_up_down"]
  set body [format "%s\n\n%s" "$body" "---------- show ip route $remote_peer ----------"]
  set body [format "%s\n\n%s" "$body" "$show_ip_route"]
  set body [format "%s\n\n%s" "$body" "---------- show crypto isakmp sa ----------"]
  set body [format "%s\n\n%s" "$body" "$show_crypto_isakmp_sa"]
  set body [format "%s\n\n%s" "$body" "---------- show crypto session detail ----------"]
  set body [format "%s\n\n%s" "$body" "$show_crypto_session_detail"]
  set body [format "%s\n\n%s" "$body" "---------- show crypto engine connection active ----------"]
  set body [format "%s\n\n%s" "$body" "$show_crypto_engine_connection_active"]
  set body [format "%s\n\n%s" "$body" "---------- show ip nhrp detail (DMVPN only) ----------"]
  set body [format "%s\n\n%s" "$body" "$show_ip_nhrp_detail"]
  set body [format "%s\n\n%s" "$body" "---------- show log ----------"]
  set body [format "%s\n\n%s" "$body" "$show_log"]
  if [catch {smtp_send_email $body} result] {
    action_syslog msg "smtp_send_email: $result"
  action_syslog msg "vpn_failure.tcl script completed"
#------------------ end of send mail --------------------