From 91ef634b661d88aa3b3cc4d87977d5e92f86b846 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Stig-=C3=98rjan=20Smelror?= <smelror@gmail.com>
Date: Tue, 30 Jan 2024 10:44:54 +0100
Subject: [PATCH] Use Perl to add to BODY in _blogs

---
 qsgen2 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/qsgen2 b/qsgen2
index 4d2ff2b..7e0e2f5 100755
--- a/qsgen2
+++ b/qsgen2
@@ -445,7 +445,9 @@ function _blogs() {
                    blog_content="${blog_content//CALYEAR/${sdate[2]}}"
                    blog_content="${blog_content//BLOGURL/${blog_url}}"
                    blog_content="${blog_content//INGRESS/${ingress}}"
-                   blog_content="${blog_content//BODY/${body}}"
+                   # Replace BODY placeholder with actual content using Perl
+                   blog_content=$(echo "${blog_content}" | perl -pe "s|\QBODY\E|${body}|g")
+
 
                    # Apply transformations
                    blog_content="$(_html "${blog_content}")"