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

_html: Ask Perl to parse every and only QStags

Browse Source
This commit is contained in:
Stig-Ørjan Smelror 2024-02-01 11:36:01 +01:00
parent bd545fd139
commit 55e4ff6972
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
qsgen2
View File

@ -803,7 +803,7 @@ function _html() {
if ${debug}; then _msg debug "_html: Converting QStags in content"; fi if ${debug}; then _msg debug "_html: Converting QStags in content"; fi
# Convert QStags to HTML using Perl, strictly matching the QStags list # Convert QStags to HTML using Perl, strictly matching the QStags list
local html_content=$(echo "${content}" | perl -pe ' local html_content=$(echo "${content}" | perl -0777 -pe '
BEGIN { BEGIN {
# Define a hash of QStags to their HTML equivalents # Define a hash of QStags to their HTML equivalents
%qstags = ( %qstags = (
@ -843,7 +843,7 @@ function _html() {
} }
while (my ($key, $value) = each %qstags) { while (my ($key, $value) = each %qstags) {
$key = quotemeta($key); # Escape special characters in QStags $key = quotemeta($key); # Escape special characters in QStags
s/(?<!\S)$key\b/$value/gi; s/(?<!\S)\Q$key\E\b/$value/g;
} }
'); ');