::cisco::eem::event_register_syslog pattern " New SMS received on index .*" maxrun 120
##-
# Copyright (c) 2013 Dan Frey <dafrey@cisco.com>
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
# notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
#
# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
# Installation Steps
# Place this file on the router media, typically the flash drive.
# Execute these two CLI commands in global config mode:
# event manager directory user policy "flash:/"
# event manager policy <filename> type user
# Functionality: Send a SMS message to the router with the word "status" without quotes and this EEM policy will respond
# via sms back to the sender with the current band, RSSI value, and SNR values. Send a SMS message with "ping example.com" without
# quotes and this EEM policy will respond via SMS with the results of the ping.
# EEM policy will delete each SMS message after the message is processed.
# Date: April 4, 2013
# Summary - Provide diagnostic information via SMS
# Version 1.0
namespace import ::cisco::eem::*
namespace import ::cisco::lib::*
array set arr_einfo [event_reqinfo]
set msg "$arr_einfo(msg)"
if { ! [regexp {: ([^:]+)$} $msg -> info] } {
action_syslog msg "Failed to parse syslog message"
}
array set _sinfo [sys_reqinfo_routername]
set host $_sinfo(routername)
regsub -all {\n+} $msg "" msg
if [ regexp {([A-Za-z\/0-9]+): New SMS received on index ([0-9]+).} $msg match intf ] {
set cellintf $intf
regsub -all {r} $intf "r " intf
action_syslog msg "interface = $intf"
}
# Trigger EEM from a SMS message
if [ regexp {New SMS received on index ([0-9]+).} $info match index ] {
# Open the CLI
if [catch {cli_open} result] {
error $result $errorInfo
} else {
array set cli1 $result
}
# Go into enable mode
if [catch {cli_exec $cli1(fd) "enable"} result] {
error $result $errorInfo
}
if [catch {cli_exec $cli1(fd) "$intf lte sms view summary"} result] {
error $result $errorInfo
}
set lines [split $result "\n"]
foreach line $lines {
if {[regexp -nocase [subst -nocommands -nobackslashes {$index\s+(\d+)\s+[\d/]+\s+[\d:]+\s+\d+\s+([A-Za-z0-9]+.*)}] $line match phonenumber cmd ]} {
action_syslog msg "Received SMS from $phonenumber Body: $cmd"
#Status: SMS format: status
if {[regexp -nocase [subst -nocommands -nobackslashes {(Status)}] $cmd -> command]} {
if [catch {cli_exec $cli1(fd) "show $intf all | inc IP address|Band|Current R|SNR =" } result ] {
error $result $errorInfo
}
#Get RSSI, SNR and Band on one line
set result [split $result "\n"]
regsub -all {\r+|\{|\}} $result "" result
if [catch {cli_exec $cli1(fd) "$intf lte sms send $phonenumber $result" } result ] {
error $result $errorInfo
}
}
#End Status
#GPS: SMS format: gps
if {[regexp -nocase [subst -nocommands -nobackslashes {(Gps)}] $cmd -> command]} {
if [catch {cli_exec $cli1(fd) "show $intf gps | inc GPS S|Lat|Lon|Tim" } result ] {
error $result $errorInfo
}
#Get RSSI, SNR and Band on one line
set result [split $result "\n"]
regsub -all {\r+|\{|\}} $result "" result
if [catch {cli_exec $cli1(fd) "$intf lte sms send $phonenumber $result" } result ] {
error $result $errorInfo
}
}
#End GPS
########PING: SMS format: ping www.example.com
if {[regexp -nocase [subst -nocommands -nobackslashes {(ping .*)}] $cmd -> command]} {
if [catch {cli_exec $cli1(fd) "$command" } result ] {
error $result $errorInfo
}
set result [split $result "\n"]
foreach line $result {
if {[regexp -nocase [subst -nocommands -nobackslashes {(Success .*)}] $line -> result]} {
regsub -all {\r+|\{|\}} $result "" result
if [catch {cli_exec $cli1(fd) "$intf lte sms send $phonenumber $result" } result ] {
error $result $errorInfo
}
} else {
if {[regexp -nocase [subst -nocommands -nobackslashes {(. Unrecognized .*)}] $line -> result]} {
regsub -all {\r+|\{|\}} $result "" result
if [catch {cli_exec $cli1(fd) "$intf lte sms send $phonenumber $result" } result ] {
error $result $errorInfo
}
}
}
}
}
#End Ping
}
}
}
#Delete SMS message
if [catch {cli_exec $cli1(fd) "$intf lte sms view $index" } result ] {
error $result $errorInfo
}
set a [open file a]
puts $a $result
close $a
if [catch {cli_exec $cli1(fd) "$intf lte sms delete $index\r" } result ] {
error $result $errorInfo
}
action_syslog msg "Successfully deleted SMS message $index from SIM\n"
catch {cli_close $cli1(fd) $cli1(tty_id)}
