From 727495d9c4f7ff00a9d0c5dc1fd06e22ba3abe39 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Tue, 21 Jan 2025 18:21:28 +0100
Subject: [PATCH] global-functions: introduce $RmDir

---
 global-functions.rsc | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/global-functions.rsc b/global-functions.rsc
index e41d352..b7a3b6a 100644
--- a/global-functions.rsc
+++ b/global-functions.rsc
@@ -63,6 +63,7 @@
 :global ProtocolStrip;
 :global RandomDelay;
 :global RequiredRouterOS;
+:global RmDir;
 :global RmFile;
 :global ScriptFromTerminal;
 :global ScriptInstallUpdate;
@@ -1005,6 +1006,26 @@
   :return true;
 }
 
+# remove directory
+:set RmDir do={
+  :local DirName [ :tostr $1 ];
+
+  :global LogPrint;
+
+  :local Dir [ /file/find where name=$DirName type=directory ];
+  :if ([ :len $Dir ] = 0) do={
+    :return true;
+  }
+
+  :do {
+    /file/remove $Dir;
+  } on-error={
+    $LogPrint error $0 ("Removing directory '" . $DirName . "' (" . $Dir . ") failed.");
+    :return false;
+  }
+  :return true;
+}
+
 # remove file
 :set RmFile do={
   :local FileName [ :tostr $1 ];