aboutsummaryrefslogtreecommitdiffstats
path: root/global-functions.rsc
diff options
context:
space:
mode:
authorGravatar Christian Hesse <mail@eworm.de>2024-03-27 23:35:01 +0100
committerGravatar Christian Hesse <mail@eworm.de>2024-04-06 00:47:16 +0200
commit2edf983698a18d45de1c9e7823dad0959bff2504 (patch)
tree9d5318578bfcd8fd868a0fcecd88cd5269f25035 /global-functions.rsc
parentab6fd8855881681d7c69af3e5ce18b3a6e2e69fb (diff)
global-functions: $FetchHuge: control check-certificate with parameter
Diffstat (limited to 'global-functions.rsc')
-rw-r--r--global-functions.rsc10
1 files 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);