doc/web/htmlify

   1 #!/usr/bin/perl
   2 $q = 1;
   3
   4 while (<>){
   5         chop;
   6         if (/^\* (.*)$/){
   7                 print "<h1>$1</h1>\n";
   8         } elsif (/^\*\* (.*)$/) {
   9                 print "<h2>$1</h2>\n";
  10         } elsif (/^\*\*\* (.*)$/) {
  11                 print "<h3>$1</h3>\n";
  12         } elsif (/^$/) {
  13                 print "<p>\n";
  14         } elsif (/^\t\t\* (.*)$/) {
  15                 print "<li>$1\n";
  16         } elsif (/^Q: (.*)$/){
  17                 print "<p><a name=\"q$q\"><b>Question $q:</b> $1\n";
  18                 $q++;
  19         } elsif (/^A: (.*)$/){
  20                 print "$1\n";
  21         } elsif (/^TODO=(.*),$/){
  22                 print "<a name=\"$1\">\n";
  23         } else {
  24                 print "$_\n";
  25         }
  26 }