From 01d2c3ea7e3b00a3020705120d896fd6689fab1a Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Tue, 27 Feb 2024 23:18:31 +0100
Subject: netwatch-notify: try another workaround

The last one did not make it... Perhaps the cache just needs
a moment to settle?
---
 netwatch-notify.rsc | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'netwatch-notify.rsc')

diff --git a/netwatch-notify.rsc b/netwatch-notify.rsc
index c8de7e1..5c6ae40 100644
--- a/netwatch-notify.rsc
+++ b/netwatch-notify.rsc
@@ -79,10 +79,8 @@ $ScriptLock $0;
       :if ([ $IsDNSResolving ] = true) do={
         :do {
           :local Resolve [ :resolve ($HostInfo->"resolve") ];
-          :if ($Resolve != $HostVal->"host" && \
-               [ :len [ /ip/dns/cache/find where name=($HostInfo->"resolve") data=[ :tostr ($HostVal->"host") ] ttl>0s ] ] = 0) do={
-            :delay 1500ms;
-            :resolve ($HostInfo->"resolve");
+          :if ($Resolve != $HostVal->"host") do={
+            :delay 100ms;
             :if ([ :len [ /ip/dns/cache/find where name=($HostInfo->"resolve") data=[ :tostr ($HostVal->"host") ] ] ] = 0) do={
               $LogPrintExit2 info $0 ("Name '" . $HostInfo->"resolve" . [ $IfThenElse \
                   ($HostInfo->"resolve" != $HostInfo->"name") ("' for " . $Type . " '" . \
-- 
cgit v1.2.3-54-g00ecf