From 2edf983698a18d45de1c9e7823dad0959bff2504 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Wed, 27 Mar 2024 23:35:01 +0100
Subject: global-functions: $FetchHuge: control check-certificate with
 parameter

---
 global-functions.rsc | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/global-functions.rsc b/global-functions.rsc
index 0ea7120..65dd06e 100644
--- a/global-functions.rsc
+++ b/global-functions.rsc
@@ -392,15 +392,19 @@
 
 # fetch huge data to file, read in chunks
 :set FetchHuge do={
-  :local ScriptName [ :tostr $1 ];
-  :local Url        [ :tostr $2 ];
+  :local ScriptName [ :tostr  $1 ];
+  :local Url        [ :tostr  $2 ];
+  :local CheckCert  [ :tobool $3 ];
 
   :global FetchUserAgentStr;
   :global GetRandom20CharAlNum;
+  :global IfThenElse;
   :global LogPrint;
   :global MkDir;
   :global WaitForFile;
 
+  :set CheckCert [ $IfThenElse ($CheckCert = false) "no" "yes-without-crl" ];
+
   :if ([ $MkDir "tmpfs/" . $ScriptName ] = false) do={
     $LogPrint error $0 ("Failed creating directory!");
     :return false;
@@ -409,7 +413,7 @@
   :local FileName ("tmpfs/" . $ScriptName . "/" . $0 . "-" . [ $GetRandom20CharAlNum ]);
 
   :do {
-    /tool/fetch check-certificate=yes-without-crl $Url dst-path=$FileName \
+    /tool/fetch check-certificate=$CheckCert $Url dst-path=$FileName \
       http-header-field=({ [ $FetchUserAgentStr $ScriptName ] }) as-value;
   } on-error={
     $LogPrint debug $0 ("Failed downloading from: " . $Url);
-- 
cgit v1.2.3-54-g00ecf