summaryrefslogtreecommitdiffabout
authorSergey Poznyakoff <gray@gnu.org.ua>2019-10-07 12:01:03 (GMT)
committer Sergey Poznyakoff <gray@gnu.org.ua>2019-10-07 12:01:17 (GMT)
commit1f9cf874062a81bdcdbb06fce030fa887ead15a9 (patch) (unidiff)
tree924fb943718cd08f37cf9ee887fc7e6cc4e44dc2
parent2e8ca04ce3f407da2bd9e892d1498de05d18f559 (diff)
downloadmansrv-master.tar.gz
mansrv-master.tar.bz2
Allow for multiple template escapes on a single line.HEADmaster
Diffstat (more/less context) (ignore whitespace changes)
-rwxr-xr-xmansrv2
1 files changed, 1 insertions, 1 deletions
diff --git a/mansrv b/mansrv
index b4d3cca..25e56e7 100755
--- a/mansrv
+++ b/mansrv
@@ -134,13 +134,13 @@ sub interpret_file($$) {
134 ${$s->varglob('PACKAGE')} = $package_name; 134 ${$s->varglob('PACKAGE')} = $package_name;
135 ${$s->varglob('VERSION')} = $VERSION; 135 ${$s->varglob('VERSION')} = $VERSION;
136 ${$s->varglob('SERVER')} = "$ENV{REQUEST_SCHEME}://$ENV{SERVER_NAME}"; 136 ${$s->varglob('SERVER')} = "$ENV{REQUEST_SCHEME}://$ENV{SERVER_NAME}";
137 137
138 while (<$ifd>) { 138 while (<$ifd>) {
139 chomp; 139 chomp;
140 s/\{%(.*)%\}/expand_template($s, $1, $file, $.)/ex; 140 s/\{%(.*?)%\}/expand_template($s, $1, $file, $.)/gex;
141 print $ofd "$_\n"; 141 print $ofd "$_\n";
142 } 142 }
143 close($ifd); 143 close($ifd);
144} 144}
145 145
146sub interpret { 146sub interpret {

Return to:

Send suggestions and report system problems to the System administrator.