From 7d2239f24e01497e94c181b247f119592d253eb7 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Mon, 24 Feb 2020 10:48:04 +0100
Subject: global-functions: introduce $MailServerIsUp

---
 global-functions | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/global-functions b/global-functions
index d4b8801..7d242e6 100644
--- a/global-functions
+++ b/global-functions
@@ -34,6 +34,7 @@
 :global RandomDelay;
 :global DeviceInfo;
 :global ScriptInstallUpdate;
+:global MailServerIsUp;
 
 # url encoding
 :set UrlEncode do={
@@ -436,3 +437,24 @@
   }
   / system script run script-updates;
 }
+
+# check if mail server is up
+:set MailServerIsUp do={
+  :local MailServer [ / tool e-mail get address ];
+  :local MailHost $MailServer;
+
+  :if ([ / tool netwatch print count-only where comment=$MailServer ] = 0) do={
+    :log warn ("Adding netwatch entry for mail server.");
+    :local MailHost $MailServer;
+    :if ([ :typeof [ :toip $MailHost ] ] != "ip" ) do={
+      :set MailHost [ :resolve $MailServer ];
+    }
+    / tool netwatch add comment=$MailServer host=[ :resolve $MailServer ];
+  }
+
+  :if ([ / tool netwatch get [ find where comment=$MailServer ] status ] = "up") do={
+    :return true;
+  }
+
+  :return false;
+}
-- 
cgit v1.2.3-54-g00ecf