::cisco::eem::event_register_track 1 state any

namespace import ::cisco::eem::*
namespace import ::cisco::lib::*

# This extracts the hostname of your router and assigns it to variable routername
set routername [info hostname]

# This requests the status of tracked object (down or up) and assigns it to track_state
array set track_info [event_reqinfo]
set track_state $track_info(track_state)

if {$track_state == "down"} {
   action_syslog msg "Primary Internet Path Down"

   set mail_pre "Mailservername: $_mail_server\n"
   append mail_pre "From: $_mail_from\n"
   append mail_pre "To: $_mail_to\n"
   append mail_pre "Sourceaddr: $_mail_src_ip\n"
   append mail_pre "Subject: $routername PRIMARY INTERNET PATH DOWN\n\n"
   append mail_pre "$routername Primary Internet Path Down. \nPlease investigate and contact ISP if necessary\n\n"
   set mail_msg [uplevel #0 [list subst -nobackslashes -nocommands $mail_pre]]
   if [catch {smtp_send_email $mail_msg} result] {
   error $result $errorInfo
   }

} else {
   action_syslog msg "Primary Internet Circuit UP"

   set mail_pre "Mailservername: $_mail_server\n"
   append mail_pre "From: $_mail_from\n"
   append mail_pre "To: $_mail_to\n"
   append mail_pre "Sourceaddr: $_mail_src_ip\n"
   append mail_pre "Subject: $routername PRIMARY INTERNET PATH UP\n\n"
   append mail_pre "$routername Primary Internet Path UP. \n\n"
   set mail_msg [uplevel #0 [list subst -nobackslashes -nocommands $mail_pre]]
   if [catch {smtp_send_email $mail_msg} result] {
   error $result $errorInfo
   }
 
}

action_syslog msg "E-mail sent to $_mail_to and $_mail_cc_to!"