1#!/usr/bin/perl 2 3# postconf2man - convert postconf2html to nroff 4 5# Basic operation: 6# 7# - Process input as blocks of text separated by one or more empty 8# (or all whitespace) lines. 9# 10# - Process <nroffescape> pass-through requests for things that this 11# script cannot do automatically. 12# 13# Caution: this depends heavily on the postconf2html output format. 14 15#use Getopt::Std; 16 17#$opt_h = undef; 18#$opt_v = undef; 19#getopts("hv"); 20 21#die "Usage: $0 [-hv]\n" if ($opt_h); 22 23#push @ARGV, "/dev/null"; # XXX 24 25while(<>) { 26 27 # Skip blank lines before text block. 28 next unless (/\S/); 29 30 # Gobble up the next text block. 31 $block = ""; 32 do { 33 $_ =~ s/\s+\n$/\n/; 34 $block .= $_; 35 } while(($_ = <>) && /\S/); 36 37 # How the %!#$^@ do I get a backslash substituted into a string? 38 # Even \134 comes out as \e. What brain damage is this? 39 #$block =~ s/\n\./\n\\\&./g; 40 $block =~ s/\n\./\n\134\&./g; 41 $block =~ s/\n'/\n\134\&'/g; 42 if ($block =~ /<H2>/) { 43 $block =~ s/<H2><a[^>]+>([^<]+)<\/a><\/H2>/\n.SH \1\n/g; 44 $block =~ tr/a-z/A-Z/; 45 } 46 $block =~ s/<DT><b><a[^>]+>([^<]+)<\/a>\n(.*)<\/b><\/DT><DD>/\n.SH \1 \2\n/g; 47 $block =~ s/<[Aa][ \n]+[Hh][Rr][Ee][Ff]="[^"]+">//g; 48 $block =~ s/<[Aa][ \n]+[Nn][Aa][Mm][Ee]="[^"]+">//g; 49 $block =~ s/<\/[Aa]>//g; 50 $block =~ s/<\/DD>/\n/g; 51 $block =~ s/<DL>/\n/g; 52 $block =~ s/<\/DL>/\n/g; 53 $block =~ s/\\/\\e/g; 54 $block =~ s/<b>/\\fB/g; 55 $block =~ s/<i>/\\fI/g; 56 $block =~ s/<\/b>/\\fR/g; 57 $block =~ s/<\/i>/\\fR/g; 58 $block =~ s/^(<p(re)?>)/.PP\n\1/ if ($wantpp); 59 $block =~ s/<p> */\n/g; 60 $block =~ s/ *<\/p>/\n/g; 61 $block =~ s/<pre>/\n.nf\n.na\n.ft C\n/g; 62 $block =~ s/<\/pre>/\n.fi\n.ad\n.ft R\n/g; 63 $block =~ s/<dl[^>]*>/\n/g; 64 $block =~ s/<ul>/\n/g; 65 #$block =~ s/<\/dl>/\n.PP\n/g; 66 #$block =~ s/<\/ul>/\n.PP\n/g; 67 $block =~ s/<\/dl>/\n.br\n/g; 68 $block =~ s/<\/ul>/\n.br\n/g; 69 $block =~ s/<dd>\s*/\n/g; 70 $block =~ s/<\/dd>/\n.br\n/g; 71 $block =~ s/<li>\s*/\n.IP \\(bu\n/g; 72 $block =~ s/<dt>\s*/\n.IP "/g; 73 $block =~ s/\s*<\/dt>/"/g; 74 $block =~ s/<tt>\s*//g; 75 $block =~ s/\s*<\/tt>//g; 76 # Munge "-" here, so that we don't screw up ".in -4". 77 $block =~ s/-/\\-/g; 78 $block =~ s/<blockquote>/\n.sp\n.in +4\n/g; 79 $block =~ s/<\/blockquote>/\n.in -4\n/g; 80 $block =~ s/\n<br>\s*/\n.br\n/g; 81 $block =~ s/<br>\s*/\n.br\n/g; 82 $block =~ s/≤/<=/g; 83 $block =~ s/</</g; 84 $block =~ s/≥/>=/g; 85 $block =~ s/>/>/g; 86 $block =~ s/&/\&/g; 87 $block =~ s/–/-/g; 88 $block =~ s/—/-/g; 89 $block =~ s/\s+\n/\n/g; 90 $block =~ s/^\n//g; 91 $block =~ s/\s*<\s*nroffescape\s+([^ >]+)\s*>\s*/\n\1\n/g; 92 $block =~ s/([A-Za-z][_a-zA-Z0-9-]*)(\([0-9]\))/\\fB\1\\fR\2/g; 93 print $block; 94 $wantpp = !($block =~ /^\.(SH|IP)/); 95} 96