Home | History | Annotate | Line # | Download | only in mantools
postconf2html revision 1.1.1.1.4.2 
      1 #!/usr/bin/perl
      2 
      3 # postconf2html - add HTML paragraphs
      4 
      5 # Basic operation:
      6 #
      7 # - Process input as text blocks separated by one or more empty
      8 # (or all whitespace) lines.
      9 #
     10 # - Skip text between <!-- and -->; each must be on a different line.
     11 #
     12 # - Don't touch blocks that start with `<' in column zero.
     13 #
     14 # The only changes made are:
     15 #
     16 # - Emit "<DT><a name="parametername">parametername</a>...</DT><DD>" at
     17 #   the top of each parameter description.
     18 #
     19 # All other non-comment input is flagged as an error.
     20 
     21 #use Getopt::Std;
     22 
     23 #$opt_h = undef;
     24 #$opt_v = undef;
     25 #getopts("hv");
     26 
     27 #die "Usage: $0 [-hv]\n" if ($opt_h);
     28 
     29 #push @ARGV, "/dev/null"; # XXX
     30 
     31 while(<>) {
     32 
     33     # Skip comments.
     34     next if /^#/;
     35 
     36     # Skip blank lines before text block.
     37     next unless (/\S/);
     38 
     39     # Gobble up the next text block.
     40     $block = "";
     41     $comment = 0;
     42     do {
     43 	$_ =~ s/\s+\n$/\n/;
     44 	$block .= $_;
     45 	if ($_ =~ /<!--/)
     46 	    { $comment = 1; } 
     47 	if ($comment && $_ =~ /-->/)
     48 	    { $comment = 0; $block =~ s/<!--.*-->//sg; }
     49     } while((($_ = <>) && /\S/) || $comment);
     50 
     51     # Skip blanks after comment elimination.
     52     if ($block =~ /^\s/) {
     53 	$block =~ s/^\s+//s;
     54 	next if ($block eq "");
     55     }
     56 
     57     # Don't touch a text block starting with < in column zero.
     58     if ($block =~ /^</) {
     59 	print "$block\n";
     60     }
     61 
     62     # Meta block. Emit upper case tags for html2man.
     63     elsif ($block =~ /^%PARAM/) {
     64 	print "\n</DD>\n\n" if ($param);
     65 	print "\n<DL>\n\n" if ($need_dl);
     66 	$need_dl = 0;
     67 	($junk, $param, $defval) = split(/\s+/, $block, 3);
     68 	$defval =~ s/\s+$//s;
     69 	$defval = "empty" if ($defval eq "");
     70 	$defval = "default: $defval" unless ($defval eq "read-only");
     71 	print "<DT><b><a name=\"$param\">$param</a>\n($defval)</b></DT><DD>\n\n";
     72     }
     73 
     74     # Meta block. Emit upper case tags for html2man.
     75     elsif ($block =~ /^%CLASS/) {
     76 	print "\n</DD>\n\n" if ($param);
     77 	print "\n</DL>\n\n" if ($class);
     78 	$param ="";
     79 	($junk, $class, $text) = split(/\s+/, $block, 3);
     80 	$text =~ s/\s+$//s;
     81 	print "<H2><a name=\"$class\">$text</a></H2>\n\n";
     82 	$need_dl = 1;
     83     }
     84 
     85     # Can't happen.
     86     else {
     87 	die "Unrecognized text block:\n$block";
     88     }
     89 }
     90 
     91 print "\n</DD>\n\n" if ($param);
     92 print "\n</DL>\n\n" if ($class);
     93