From c7087ac4fe9d4cde0755b241ce5326ae5e11bb98 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Wed, 8 Jun 2022 21:20:10 +0200
Subject: rotate-ntp: do not flood the log on weak connection

---
 rotate-ntp | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/rotate-ntp b/rotate-ntp
index 2a095f8..73b9d8a 100644
--- a/rotate-ntp
+++ b/rotate-ntp
@@ -11,6 +11,7 @@
 :while ($GlobalFunctionsReady != true) do={ :delay 500ms; }
 
 :global NtpPool;
+:global RotateNtpResolveFailed;
 
 :global LogPrintExit2;
 
@@ -24,8 +25,14 @@
 :do {
   :set Ntp1 [ :resolve ("0." . $NtpPool) ];
   :set Ntp2 [ :resolve ("1." . $NtpPool) ];
+  :set RotateNtpResolveFailed false;
 } on-error={
-  $LogPrintExit2 warning $0 ("Resolving NTP server failed.") true;
+  :if ($RotateNtpResolveFailed != true) do={
+    :set RotateNtpResolveFailed true;
+    $LogPrintExit2 warning $0 ("Resolving NTP server failed.") true;
+  } else={
+    $LogPrintExit2 debug $0 ("Resolving NTP server failed.") true;
+  }
 }
 
 $LogPrintExit2 info $0 ("Updating NTP servers to " . $Ntp1 . " and " . $Ntp2) false;
-- 
cgit v1.2.3-54-g00ecf