aboutsummaryrefslogtreecommitdiff
path: root/mansrv
diff options
context:
space:
mode:
Diffstat (limited to 'mansrv')
-rwxr-xr-xmansrv2
1 files changed, 1 insertions, 1 deletions
diff --git a/mansrv b/mansrv
index b4d3cca..25e56e7 100755
--- a/mansrv
+++ b/mansrv
@@ -116,49 +116,49 @@ sub expand_template {
my $r = $comp->reval($code);
unless (defined($r)) {
syslog("LOG_ERR", "%s:%d: error expanding template expression %s",
$file, $line, $code);
$r = '';
}
return $r;
}
sub interpret_file($$) {
my ($ofd, $file) = @_;
my $ifd;
open($ifd, $file) or syserror("cannot open $file: $!");
my $s = new Safe 'Root' ;
%{$s->varglob('ENV')} = %ENV;
${$s->varglob('TITLE')} = $ARGV[1];
${$s->varglob('SECTION')} = $ARGV[0];
${$s->varglob('PACKAGE')} = $package_name;
${$s->varglob('VERSION')} = $VERSION;
${$s->varglob('SERVER')} = "$ENV{REQUEST_SCHEME}://$ENV{SERVER_NAME}";
while (<$ifd>) {
chomp;
- s/\{%(.*)%\}/expand_template($s, $1, $file, $.)/ex;
+ s/\{%(.*?)%\}/expand_template($s, $1, $file, $.)/gex;
print $ofd "$_\n";
}
close($ifd);
}
sub interpret {
my $fd = shift;
foreach my $file (@_) {
interpret_file($fd, $file);
}
}
sub addopts($) {
my $file = shift;
my $fd;
open($fd, $file) or return;
while (<$fd>) {
chomp;
s/^\s+//;
s/\s+$//;
s/#.*//;
next if ($_ eq "");
push @grohtml_opts, "-P $_";

Return to:

Send suggestions and report system problems to the System administrator.