#!/usr/bin/perl # postconf2man - convert postconf2html to nroff # Basic operation: # # - Process input as blocks of text separated by one or more empty # (or all whitespace) lines. # # Caution: this depends heavily on the postconf2html output format. #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 blank lines before text block. next unless (/\S/); # Gobble up the next text block. $block = ""; do { $_ =~ s/\s+\n$/\n/; $block .= $_; } while(($_ = <>) && /\S/); $block =~ s/\n\./\n\\\&./g; if ($block =~ /

/) { $block =~ s/

]+>([^<]+)<\/a><\/H2>/\n.SH \1\n/g; $block =~ tr/a-z/A-Z/; } $block =~ s/
]+>([^<]+)<\/a>\n(.*)<\/b><\/DT>
/\n.SH \1 \2\n/g; $block =~ s/<[Aa] [Hh][Rr][Ee][Ff]="[^"]+">//g; $block =~ s/<[Aa] [Nn][Aa][Mm][Ee]="[^"]+">//g; $block =~ s/<\/[Aa]>//g; $block =~ s/<\/DD>/\n/g; $block =~ s/
/\n/g; $block =~ s/<\/DL>/\n/g; $block =~ s//\\fB/g; $block =~ s//\\fI/g; $block =~ s/<\/b>/\\fR/g; $block =~ s/<\/i>/\\fR/g; $block =~ s/^()/.PP\n\1/ if ($wantpp); $block =~ s/

*/\n/g; $block =~ s/ *<\/p>/\n/g; $block =~ s/

/\n.nf\n.na\n.ft C\n/g;
    $block =~ s/<\/pre>/\n.fi\n.ad\n.ft R\n/g;
    $block =~ s/]*>/\n/g;
    $block =~ s/
    /\n/g; #$block =~ s/<\/dl>/\n.PP\n/g; #$block =~ s/<\/ul>/\n.PP\n/g; $block =~ s/<\/dl>/\n/g; $block =~ s/<\/ul>/\n/g; $block =~ s/
    \s*/\n/g; $block =~ s/<\/dd>/\n/g; $block =~ s/
  • \s*/\n.IP \\(bu\n/g; $block =~ s/
    \s*/\n.IP "/g; $block =~ s/\s*<\/dt>/"/g; $block =~ s/
    /\n.na\n.nf\n.in +4\n/g; $block =~ s/<\/blockquote>/\n.in -4\n.fi\n.ad\n/g; $block =~ s/\n
    /\n.br\n/g; $block =~ s/
    \s*/\n.br\n/g; $block =~ s/<//g; $block =~ s/&/\&/g; $block =~ s/\s+\n/\n/g; $block =~ s/^\n//g; $block =~ s/([a-z][_a-zA-Z0-9-]*)(\([0-9]\))/\\fB\1\\fR\2/g; print $block; $wantpp = !($block =~ /^\.(SH|IP)/); }