::cisco::eem::event_register_syslog tag 1 pattern "LINEPROTO-5-UPDOWN: Line protocol on Interface (.*), changed state to up" namespace import ::cisco::eem::* namespace import ::cisco::lib::* set withmail 1 set routername es334A #smtp_send_email if link up if {$withmail == 1 } { set mail_pre "Mailservername: mymailservername\n" append mail_pre "From: es334A2@mydomain.com\n" append mail_pre "To: andreas.schneider@mydomain.com\n" append mail_pre "Cc: \n" append mail_pre "Subject: LINK UP\n" append mail_pre " \n" append mail_pre "Testmessage if Link goes up\n" # for debug puts stdout "mail_pre:\n$mail_pre" set mail_msg [uplevel #0 [list subst -nobackslashes -nocommands $mail_pre]] ## for debug purposes puts stdout "mail_msg:\n$mail_msg" puts stdout "routername: $routername" ## if [catch {smtp_send_email $mail_msg} result] { error $result $errorInfo } }