sms-forward: RouterOS v7 path syntax

This commit is contained in:
Christian Hesse 2022-05-10 15:15:47 +02:00
parent 735df85b45
commit fbc6852687

View file

@ -21,27 +21,27 @@
$ScriptLock $0;
:if ([ / tool sms get receive-enabled ] = false) do={
:if ([ /tool/sms/get receive-enabled ] = false) do={
$LogPrintExit2 warning $0 ("Receiving of SMS is not enabled.") true;
}
$WaitFullyConnected;
:local Settings [ / tool sms get ];
: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 ];
:while ([ :len [ /tool/sms/inbox/find ] ] > 0) do={
:local Phone [ /tool/sms/inbox/get ([ find ]->0) phone ];
:local Messages "";
:local Delete [ :toarray "" ];
:foreach Sms in=[ / tool sms inbox find where phone=$Phone ] do={
:local SmsVal [ / tool sms inbox get $Sms ];
: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;
/tool/sms/inbox/remove $Sms;
} else={
:set Messages ($Messages . "\n\nOn " . $SmsVal->"timestamp" . \
" type " . $SmsVal->"type" . ":\n" . $SmsVal->"message");
@ -56,7 +56,7 @@ $WaitFullyConnected;
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;
/tool/sms/inbox/remove $Sms;
}
}
}