From e76b52e3b08d1e66c47a067040071ffb95b1b528 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Fri, 26 Feb 2021 15:51:29 +0100
Subject: sms-action: use $ValidateSyntax

---
 sms-action | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

(limited to 'sms-action')

diff --git a/sms-action b/sms-action
index 2d2600d..e48c632 100644
--- a/sms-action
+++ b/sms-action
@@ -13,6 +13,7 @@
 :global SmsAction;
 
 :global LogPrintExit2;
+:global ValidateSyntax;
 
 :local Action $action;
 
@@ -21,8 +22,10 @@
 }
 
 :local Code ($SmsAction->$Action);
-:local Parsed [ :parse $Code ];
-
-:log info ("Acting on SMS action '" . $Action . "': " . $Code);
-:delay 1s;
-$Parsed;
+:if ([ $ValidateSyntax $Code ] = true) do={
+  :log info ("Acting on SMS action '" . $Action . "': " . $Code);
+  :delay 1s;
+  [ :parse $Code ];
+} else={
+  $LogPrintExit2 warning $0 ("The code for action '" . $Action . "' failed syntax validation!") false;
+}
-- 
cgit v1.2.3-70-g09d2