From a2749b276003a90b95b9723e287542be56c0d0c1 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Fri, 19 Jan 2024 13:23:52 +0100
Subject: check-certificates: use prepared user-agent string with fetch

---
 check-certificates.rsc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'check-certificates.rsc')

diff --git a/check-certificates.rsc b/check-certificates.rsc
index 5f2c710..715a6b7 100644
--- a/check-certificates.rsc
+++ b/check-certificates.rsc
@@ -17,6 +17,7 @@
 
 :global CertificateAvailable
 :global EscapeForRegEx;
+:global FetchUserAgent;
 :global IfThenElse;
 :global LogPrintExit2;
 :global ParseKeyValueStore;
@@ -43,7 +44,7 @@
   :foreach Type in={ ".pem"; ".p12" } do={
     :local CertFileName ([ $UrlEncode $Name ] . $Type);
     :do {
-      /tool/fetch check-certificate=yes-without-crl \
+      /tool/fetch check-certificate=yes-without-crl http-header-field=({ $FetchUserAgent }) \
           ($CertRenewUrl . $CertFileName) dst-path=$CertFileName as-value;
       $WaitForFile $CertFileName;
 
-- 
cgit v1.2.3-54-g00ecf