From ab6fd8855881681d7c69af3e5ce18b3a6e2e69fb Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Wed, 27 Mar 2024 23:37:31 +0100
Subject: global-functions: $FetchHuge: use custom user agent string

---
 global-functions.rsc | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/global-functions.rsc b/global-functions.rsc
index bd35cdf..0ea7120 100644
--- a/global-functions.rsc
+++ b/global-functions.rsc
@@ -395,6 +395,7 @@
   :local ScriptName [ :tostr $1 ];
   :local Url        [ :tostr $2 ];
 
+  :global FetchUserAgentStr;
   :global GetRandom20CharAlNum;
   :global LogPrint;
   :global MkDir;
@@ -408,7 +409,8 @@
   :local FileName ("tmpfs/" . $ScriptName . "/" . $0 . "-" . [ $GetRandom20CharAlNum ]);
 
   :do {
-    /tool/fetch check-certificate=yes-without-crl $Url dst-path=$FileName as-value;
+    /tool/fetch check-certificate=yes-without-crl $Url dst-path=$FileName \
+      http-header-field=({ [ $FetchUserAgentStr $ScriptName ] }) as-value;
   } on-error={
     $LogPrint debug $0 ("Failed downloading from: " . $Url);
     :return false;
-- 
cgit v1.2.3-54-g00ecf