mirror of
https://github.com/eworm-de/routeros-scripts
synced 2024-05-14 08:04:19 +00:00
eab87e4d60
Removal of messages is broken in RouterOS 7.8:
[admin@MikroTik] > /tool/sms/inbox/remove [ find ]
failure: Interface not running!
Of course the interface is running. Toggling the auto-erase setting
fixes this until next boot. So let's add a workaround...
Reported to support (SUP-110828), but not (yet) acknowledged. 🤨
94 lines
3.2 KiB
Text
94 lines
3.2 KiB
Text
#!rsc by RouterOS
|
|
# RouterOS script: sms-forward
|
|
# Copyright (c) 2013-2023 Christian Hesse <mail@eworm.de>
|
|
# Anatoly Bubenkov <bubenkoff@gmail.com>
|
|
# https://git.eworm.de/cgit/routeros-scripts/about/COPYING.md
|
|
#
|
|
# forward SMS to e-mail
|
|
# https://git.eworm.de/cgit/routeros-scripts/about/doc/sms-forward.md
|
|
|
|
:local 0 "sms-forward";
|
|
:global GlobalFunctionsReady;
|
|
:while ($GlobalFunctionsReady != true) do={ :delay 500ms; }
|
|
|
|
:global Identity;
|
|
:global SmsForwardHooks;
|
|
:global SmsForwardWorkaround;
|
|
|
|
:global IfThenElse;
|
|
:global LogPrintExit2;
|
|
:global RequiredRouterOS;
|
|
:global ScriptLock;
|
|
:global SendNotification2;
|
|
:global SymbolForNotification;
|
|
:global ValidateSyntax;
|
|
:global WaitFullyConnected;
|
|
|
|
$ScriptLock $0;
|
|
|
|
:if ([ /tool/sms/get receive-enabled ] = false) do={
|
|
$LogPrintExit2 warning $0 ("Receiving of SMS is not enabled.") true;
|
|
}
|
|
|
|
:if ($SmsForwardWorkaround != true && \
|
|
[ $RequiredRouterOS $0 "7.8" false ] = true) do={
|
|
:local AutoErase [ /tool/sms/get auto-erase ];
|
|
/tool/sms/set auto-erase=(!$AutoErase);
|
|
/tool/sms/set auto-erase=$AutoErase;
|
|
:set SmsForwardWorkaround true;
|
|
}
|
|
|
|
$WaitFullyConnected;
|
|
|
|
:local Settings [ /tool/sms/get ];
|
|
|
|
# forward SMS in a loop
|
|
:while ([ :len [ /tool/sms/inbox/find ] ] > 0) do={
|
|
:local Phone [ /tool/sms/inbox/get ([ find ]->0) phone ];
|
|
:local Messages "";
|
|
:local Delete ({});
|
|
|
|
:foreach Sms in=[ /tool/sms/inbox/find where phone=$Phone ] do={
|
|
:local SmsVal [ /tool/sms/inbox/get $Sms ];
|
|
|
|
:if ($Phone = $Settings->"allowed-number" && \
|
|
($SmsVal->"message")~("^:cmd " . $Settings->"secret" . " script ")) do={
|
|
$LogPrintExit2 debug $0 ("Removing SMS, which started a script.") false;
|
|
/tool/sms/inbox/remove $Sms;
|
|
} else={
|
|
:set Messages ($Messages . "\n\nOn " . $SmsVal->"timestamp" . \
|
|
" type " . $SmsVal->"type" . ":\n" . $SmsVal->"message");
|
|
:foreach Hook in=$SmsForwardHooks do={
|
|
:if ($Phone~($Hook->"allowed-number") && ($SmsVal->"message")~($Hook->"match")) do={
|
|
:if ([ $ValidateSyntax ($Hook->"command") ] = true) do={
|
|
$LogPrintExit2 info $0 ("Running hook '" . $Hook->"match" . "': " . \
|
|
$Hook->"command") false;
|
|
:do {
|
|
[ :parse ($Hook->"command") ];
|
|
:set Messages ($Messages . "\n\nRan hook '" . $Hook->"match" . "':\n" . \
|
|
$Hook->"command");
|
|
} on-error={
|
|
$LogPrintExit2 warning $0 ("The code for hook '" . $Hook->"match" . \
|
|
"' failed to run!") false;
|
|
}
|
|
} else={
|
|
$LogPrintExit2 warning $0 ("The code for hook '" . $Hook->"match" . \
|
|
"' failed syntax validation!") false;
|
|
}
|
|
}
|
|
}
|
|
:set Delete ($Delete, $Sms);
|
|
}
|
|
}
|
|
|
|
:if ([ :len $Messages ] > 0) do={
|
|
:local Count [ :len $Delete ];
|
|
$SendNotification2 ({ origin=$0; \
|
|
subject=([ $SymbolForNotification "incoming-envelope" ] . "SMS Forwarding from " . $Phone); \
|
|
message=("Received " . [ $IfThenElse ($Count = 1) "this message" ("these " . $Count . " messages") ] . \
|
|
" by " . $Identity . " from " . $Phone . ":" . $Messages) });
|
|
:foreach Sms in=$Delete do={
|
|
/tool/sms/inbox/remove $Sms;
|
|
}
|
|
}
|
|
}
|