80 lines
1.8 KiB
Perl
Executable File
80 lines
1.8 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
# postconf2html - add HTML paragraphs
|
|
|
|
# Basic operation:
|
|
#
|
|
# - Process input as text blocks separated by one or more empty
|
|
# (or all whitespace) lines.
|
|
#
|
|
# - Don't touch blocks that start with `<' in column zero.
|
|
#
|
|
# The only changes made are:
|
|
#
|
|
# - Emit "<DT><a name="parametername">parametername</a>...</DT><DD>" at
|
|
# the top of each parameter description.
|
|
#
|
|
# All other non-comment input is flagged as an error.
|
|
|
|
#use Getopt::Std;
|
|
|
|
#$opt_h = undef;
|
|
#$opt_v = undef;
|
|
#getopts("hv");
|
|
|
|
#die "Usage: $0 [-hv]\n" if ($opt_h);
|
|
|
|
#push @ARGV, "/dev/null"; # XXX
|
|
|
|
while(<>) {
|
|
|
|
# Skip comments.
|
|
next if /^#/;
|
|
|
|
# Skip blank lines before text block.
|
|
next unless (/\S/);
|
|
|
|
# Gobble up the next text block.
|
|
$block = "";
|
|
do {
|
|
$_ =~ s/\s+\n$/\n/;
|
|
$block .= $_;
|
|
} while(($_ = <>) && /\S/);
|
|
|
|
# Don't touch a text block starting with < in column zero.
|
|
if ($block =~ /^</) {
|
|
print "$block\n";
|
|
}
|
|
|
|
# Meta block. Emit upper case tags for html2man.
|
|
elsif ($block =~ /^%PARAM/) {
|
|
print "\n</DD>\n\n" if ($param);
|
|
print "\n<DL>\n\n" if ($need_dl);
|
|
$need_dl = 0;
|
|
($junk, $param, $defval) = split(/\s+/, $block, 3);
|
|
$defval =~ s/\s+$//s;
|
|
$defval = "empty" if ($defval eq "");
|
|
$defval = "default: $defval" unless ($defval eq "read-only");
|
|
print "<DT><b><a name=\"$param\">$param</a>\n($defval)</b></DT><DD>\n\n";
|
|
}
|
|
|
|
# Meta block. Emit upper case tags for html2man.
|
|
elsif ($block =~ /^%CLASS/) {
|
|
print "\n</DD>\n\n" if ($param);
|
|
print "\n</DL>\n\n" if ($class);
|
|
$param ="";
|
|
($junk, $class, $text) = split(/\s+/, $block, 3);
|
|
$text =~ s/\s+$//s;
|
|
print "<H2><a name=\"$class\">$text</a></H2>\n\n";
|
|
$need_dl = 1;
|
|
}
|
|
|
|
# Can't happen.
|
|
else {
|
|
die "Unrecognized text block:\n$block";
|
|
}
|
|
}
|
|
|
|
print "\n</DD>\n\n" if ($param);
|
|
print "\n</DL>\n\n" if ($class);
|