mirror.MikroTik/eworm.routeros-scripts
1
0
Fork 0
mirror of https://git.eworm.de/cgit/routeros-scripts synced 2025-07-29 23:34:28 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

sms-forward: move code into function

Browse source
This commit is contained in:
Christian Hesse 2024-03-04 13:48:01 +01:00
parent 721b6c783b
commit 6b1c6a7119
1 changed files with 65 additions and 60 deletions
Download patch file Download diff file Expand all files Collapse all files

59
sms-forward.rsc
View file

@ -9,38 +9,40 @@
# forward SMS to e-mail # forward SMS to e-mail
# https://git.eworm.de/cgit/routeros-scripts/about/doc/sms-forward.md # https://git.eworm.de/cgit/routeros-scripts/about/doc/sms-forward.md
:local 0 [ :jobname ];
:global GlobalFunctionsReady; :global GlobalFunctionsReady;
:while ($GlobalFunctionsReady != true) do={ :delay 500ms; } :while ($GlobalFunctionsReady != true) do={ :delay 500ms; }
:global Identity; :local Main do={
:global SmsForwardHooks; :local ScriptName [ :tostr $1 ];
:global IfThenElse; :global Identity;
:global LogPrintExit2; :global SmsForwardHooks;
:global LogPrintOnce;
:global ScriptLock;
:global SendNotification2;
:global SymbolForNotification;
:global ValidateSyntax;
:global WaitFullyConnected;
$ScriptLock $0; :global IfThenElse;
:global LogPrintExit2;
:global LogPrintOnce;
:global ScriptLock;
:global SendNotification2;
:global SymbolForNotification;
:global ValidateSyntax;
:global WaitFullyConnected;
:if ([ /tool/sms/get receive-enabled ] = false) do={ $ScriptLock $ScriptName;
$LogPrintOnce warning $0 ("Receiving of SMS is not enabled.") true;
}
$WaitFullyConnected; :if ([ /tool/sms/get receive-enabled ] = false) do={
$LogPrintOnce warning $ScriptName ("Receiving of SMS is not enabled.") true;
}
:local Settings [ /tool/sms/get ]; $WaitFullyConnected;
:if ([ /interface/lte/get ($Settings->"port") running ] != true) do={ :local Settings [ /tool/sms/get ];
$LogPrintExit2 info $0 ("The LTE interface is not in running state, skipping.") true;
}
# forward SMS in a loop :if ([ /interface/lte/get ($Settings->"port") running ] != true) do={
:while ([ :len [ /tool/sms/inbox/find ] ] > 0) do={ $LogPrintExit2 info $ScriptName ("The LTE interface is not in running state, skipping.") true;
}
# forward SMS in a loop
:while ([ :len [ /tool/sms/inbox/find ] ] > 0) do={
:local Phone [ /tool/sms/inbox/get ([ find ]->0) phone ]; :local Phone [ /tool/sms/inbox/get ([ find ]->0) phone ];
:local Messages ""; :local Messages "";
:local Delete ({}); :local Delete ({});
@ -50,7 +52,7 @@ $WaitFullyConnected;
:if ($Phone = $Settings->"allowed-number" && \ :if ($Phone = $Settings->"allowed-number" && \
($SmsVal->"message")~("^:cmd " . $Settings->"secret" . " script ")) do={ ($SmsVal->"message")~("^:cmd " . $Settings->"secret" . " script ")) do={
$LogPrintExit2 debug $0 ("Removing SMS, which started a script.") false; $LogPrintExit2 debug $ScriptName ("Removing SMS, which started a script.") false;
/tool/sms/inbox/remove $Sms; /tool/sms/inbox/remove $Sms;
} else={ } else={
:set Messages ($Messages . "\n\nOn " . $SmsVal->"timestamp" . \ :set Messages ($Messages . "\n\nOn " . $SmsVal->"timestamp" . \
@ -58,7 +60,7 @@ $WaitFullyConnected;
:foreach Hook in=$SmsForwardHooks do={ :foreach Hook in=$SmsForwardHooks do={
:if ($Phone~($Hook->"allowed-number") && ($SmsVal->"message")~($Hook->"match")) do={ :if ($Phone~($Hook->"allowed-number") && ($SmsVal->"message")~($Hook->"match")) do={
:if ([ $ValidateSyntax ($Hook->"command") ] = true) do={ :if ([ $ValidateSyntax ($Hook->"command") ] = true) do={
$LogPrintExit2 info $0 ("Running hook '" . $Hook->"match" . "': " . \ $LogPrintExit2 info $ScriptName ("Running hook '" . $Hook->"match" . "': " . \
$Hook->"command") false; $Hook->"command") false;
:do { :do {
:local Command [ :parse ($Hook->"command") ]; :local Command [ :parse ($Hook->"command") ];
@ -66,11 +68,11 @@ $WaitFullyConnected;
:set Messages ($Messages . "\n\nRan hook '" . $Hook->"match" . "':\n" . \ :set Messages ($Messages . "\n\nRan hook '" . $Hook->"match" . "':\n" . \
$Hook->"command"); $Hook->"command");
} on-error={ } on-error={
$LogPrintExit2 warning $0 ("The code for hook '" . $Hook->"match" . \ $LogPrintExit2 warning $ScriptName ("The code for hook '" . $Hook->"match" . \
"' failed to run!") false; "' failed to run!") false;
} }
} else={ } else={
$LogPrintExit2 warning $0 ("The code for hook '" . $Hook->"match" . \ $LogPrintExit2 warning $ScriptName ("The code for hook '" . $Hook->"match" . \
"' failed syntax validation!") false; "' failed syntax validation!") false;
} }
} }
@ -81,7 +83,7 @@ $WaitFullyConnected;
:if ([ :len $Messages ] > 0) do={ :if ([ :len $Messages ] > 0) do={
:local Count [ :len $Delete ]; :local Count [ :len $Delete ];
$SendNotification2 ({ origin=$0; \ $SendNotification2 ({ origin=$ScriptName; \
subject=([ $SymbolForNotification "incoming-envelope" ] . "SMS Forwarding from " . $Phone); \ subject=([ $SymbolForNotification "incoming-envelope" ] . "SMS Forwarding from " . $Phone); \
message=("Received " . [ $IfThenElse ($Count = 1) "this message" ("these " . $Count . " messages") ] . \ message=("Received " . [ $IfThenElse ($Count = 1) "this message" ("these " . $Count . " messages") ] . \
" by " . $Identity . " from " . $Phone . ":" . $Messages) }); " by " . $Identity . " from " . $Phone . ":" . $Messages) });
@ -89,4 +91,7 @@ $WaitFullyConnected;
/tool/sms/inbox/remove $Sms; /tool/sms/inbox/remove $Sms;
} }
} }
}
} }
$Main [ :jobname ];