Autocommit in repo: ros.vados.ru, generated by owner: root, in 20:20:03 04.05.2026.

diff --git a/html/AM-FwAddrLists.rsc b/html/AM-FwAddrLists.rsc
index 825c9e7348a96915c9339fd5346210420878e2e5..3512bf3c55464e6c1fd6797ea5f2186b609a0e10 100644 (file)
--- a/html/AM-FwAddrLists.rsc
+++ b/html/AM-FwAddrLists.rsc
@@ -50,25 +50,34 @@
   }
 
   :local ListComment ("managed by " . $ScriptName);
+  :local Url ($ListsUrl . $ListsIndex);
   :local tmpIndex false;
 
-  :onerror Err {
-        :local Url ($ListsUrl . $ListsIndex);
-        :log info ($0 " Fetching script '" . $ScriptName . "' from url: " . $Url);
-        :set tmpIndex [ /tool/fetch check-certificate=yes-without-crl \
-          http-header-field=({ [ $FetchUserAgentStr $ScriptName ] }) $Url output=user as-value ];
-        :if ($tmpIndex->"status" = "finished") do={
-          :set arrLists [ :tolf ($tmpIndex->"Lists") ];
-        }
-      } do={
+  :do {
+    :onerror Err {
+      :log info ($0 " Fetching script '" . $ScriptName . "' from url: " . $Url);
+      :set tmpIndex [ /tool/fetch check-certificate=yes-without-crl \
+      http-header-field=({ [ $FetchUserAgentStr $ScriptName ] }) $Url dst-path=$tmpIndex ];
+    } do={
+      :if (!($Err ~ "[Ss]tatus 404")) do={
         :log warning ($ScriptName . " Failed downloading address-lists index from: '" . $Url . "' Error: " . $Err);
-        :if ($Err != "Fetch failed with status 404") do={
-          :error false;
-        }
-      :set tmpIndex false;
-      :set arrLists false;
-      :error true;
       }
+    :error false;
+   }
+   $WaitForFile $tmpIndex;
+
+#        :if ($tmpIndex->"status" = "finished") do={
+#          :set arrLists [ :tolf ($tmpIndex->"Lists") ];
+#        }
+#      } do={
+#        :log warning ($ScriptName . " Failed downloading address-lists index from: '" . $Url . "' Error: " . $Err);
+#        :if ($Err != "Fetch failed with status 404") do={
+#          :error false;
+#        }
+#      :set tmpIndex false;
+#      :set arrLists false;
+#      :error true;
+#      }
 
 #  :for I from=1 to=5 do={
 #    :if ($tmpIndex = false) do={
@@ -79,10 +88,11 @@
 #      }
 #    }
 #  }
-#  :if ($tmpIndex = false) do={
-#    :log warning ($ScriptName . " Failed downloading address-list index from: " . $FwAddrListsUrl . $Index);
-#    :set tmpIndex "";
-#  }
+  :if ($tmpIndex = false) do={
+    :log warning ($ScriptName . " Failed downloading address-list index from: " . $FwAddrListsUrl . $Index);
+    :set tmpIndex "";
+  }
+  }
 
   :foreach List in=[ :deserialize $tmpIndex delimiter="\n" from=dsv options=dsv.plain ] do={
     :set List ($List->0);

diff --git a/html/AM-GlobalFunc.rsc b/html/AM-GlobalFunc.rsc
index c690ea66b0e74cd233e2604c1668e8eafdc8d6fe..3f9ea646147852c88a3527b9b998c24582d3cec4 100644 (file)
--- a/html/AM-GlobalFunc.rsc
+++ b/html/AM-GlobalFunc.rsc
@@ -17,9 +17,9 @@
 :global GlobalFuncReady false;
 
 # Git commit id & info, expected configuration version
-:global CommitId "main/591/7dc214a5";
+:global CommitId "main/592/9ef54f8b";
 :global CommitTAG "unknown";
-:global CommitInfo "Autocommit in repo: ros.vados.ru, generated by owner: root, in 19:55:03 04.05.2026.";
+:global CommitInfo "Autocommit in repo: ros.vados.ru, generated by owner: root, in 20:20:03 04.05.2026.";
 
 # The variables are received right here.
 :global GlobalConfVersion 140;