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

_blogs: Another Perl one-liner

Browse Source
This commit is contained in:
Stig-Ørjan Smelror 2024-02-03 20:03:49 +01:00
parent 1aff7ed2a7
commit ee6ff7e65c
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
qsgen2
View File

@ -523,14 +523,18 @@ function _blogs() {
# Prepare the blog template
if (${debug}) _msg debug "_blogs: Processing substitutes in ${blog}"
local blog_content=$(echo "${blog_tpl}" | perl -pe "s|BLOGTITLE|${btitle}|g")
blog_content=$(echo "${blog_content}" | perl -pe "s|CALADAY|${sdate[1]}|g")
blog_content=$(echo "${blog_content}" | perl -pe "s|CALNDAY|${sdate[4]}|g")
blog_content=$(echo "${blog_content}" | perl -pe "s|CALMONTH|${sdate[3]}|g")
blog_content=$(echo "${blog_content}" | perl -pe "s|CALYEAR|${sdate[2]}|g")
blog_content=$(echo "${blog_content}" | perl -pe "s|BLOGURL|${blog_url}|g")
blog_content=$(echo "${blog_content}" | perl -pe "s|\QINGRESS\E|${ingress}|g")
blog_content=$(echo "${blog_content}" | perl -pe "s|\QBODY\E|${body}|g")
local blog_content=$(
echo "${blog_tpl}" | \
perl -pe "\
s|BLOGTITLE|${btitle}|g; \
s|CALADAY|${sdate[1]}|g; \
s|CALNDAY|${sdate[4]}|g; \
s|CALMONTH|${sdate[3]}|g; \
s|CALYEAR|${sdate[2]}|g; \
s|BLOGURL|${blog_url}|g; \
s|\QINGRESS\E|${ingress}|g; \
s|\QBODY\E|${body}|g \
")
if (${debug}) _msg debug "_blogs: Running function $engine for ${blog}"
if [[ ${file_ext} == "tpl" ]]; then