kekePower/qsgen2
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use Perl to add to INGRESS in _blogs

Browse Source
This commit is contained in:
Stig-Ørjan Smelror 2024-01-30 10:48:59 +01:00
parent 91ef634b66
commit 63634ab89b
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
qsgen2
View File

@ -426,8 +426,8 @@ function _blogs() {
blog_index="${blog_index//,/}"
blog_index="${blog_index//./}"
blog_dir="/blog/${sdate[2]}/${sdate[3]}/${sdate[4]}"
blog_url="${blog_dir}/${blog_index}.html"
blog_dir="/blog/${sdate[2]}/${sdate[3]:l}/${sdate[4]}"
blog_url="${blog_dir}/${blog_index:l}.html"
# Regular blog creation process
if [[ ! ${mode} ]]; then
@ -444,7 +444,9 @@ function _blogs() {
blog_content="${blog_content//CALMONTH/${sdate[3]}}"
blog_content="${blog_content//CALYEAR/${sdate[2]}}"
blog_content="${blog_content//BLOGURL/${blog_url}}"
blog_content="${blog_content//INGRESS/${ingress}}"
# Replace INGRESS placeholder with actual content using Perl
blog_content=$(echo "${blog_content}" | perl -pe "s|\QINGRESS\E|${ingress}|g")
# blog_content="${blog_content//INGRESS/${ingress}}"
# Replace BODY placeholder with actual content using Perl
blog_content=$(echo "${blog_content}" | perl -pe "s|\QBODY\E|${body}|g")