fw-addr-lists: warn on possible truncation

... as fetch truncates data at about 64kB, reported in SUP-132297.

1 files changed, 5 insertions, 0 deletions

diff --git a/fw-addr-lists.rsc b/fw-addr-lists.rsc
index 845b597..34a06bc 100644
--- a/fw-addr-lists.rsc
+++ b/fw-addr-lists.rsc
@@ -16,6 +16,7 @@
 :global CertificateAvailable;
 :global EitherOr;
 :global LogPrintExit2;
+:global LogPrintOnce;
 :global ScriptLock;
 :global WaitFullyConnected;
 
@@ -72,6 +73,10 @@ $WaitFullyConnected;
       $LogPrintExit2 warning $0 ("Failed downloading list from: " . $List->"url") false;
     }
 
+    :if ([ :len $Data ] > 63000) do={
+      $LogPrintOnce warning $0 ("The list is huge and may be truncated: " . $List->"url");
+    }
+
     :while ([ :len $Data ] != 0) do={
       :local Line [ :pick $Data 0 [ :find $Data "\n" ] ];
       :local Address ([ :pick $Line 0 [ $FindDelim $Line ] ] . ($List->"cidr"));