web/web/htmlify

   1 #!/usr/bin/perl
   2 $q = 1;
   3
   4 while (<>){
   5         chomp;
   6         if (/^\* (.*)$/){
   7                 print "<h1>$1</h1>\n";
   8         } elsif (/^\*\* (.*)$/) {
   9                 print "<h3>$1</h3>\n";
  10         } elsif (/^\*\*\* (.*)$/) {
  11                 print "<h3>$1</h3>\n";
  12         } elsif (/^\*\*\*\* (.*)$/) {
  13                 print "<h4>$1</h4>\n";
  14         } elsif (/^$/) {
  15                 print "<p>$1</p>\n";
  16         } elsif (/^\t\t\* (.*)$/) {
  17                 print "<li>$1</li>\n";
  18         } elsif (/^\@item (.*)$/){
  19                 $name = $link = $1;
  20                 $link =~ s/ //g;
  21                 print "<a name=\"$link\">\n";
  22                 if (/Beta 1/){
  23                     print "<h2>$name</h2>\n";
  24                 } else {
  25                     print "<h3>$name</h3>\n";
  26                 }
  27         } elsif (/^Q: (.*)$/){
  28                 print "<p><a name=\"q$q\"></a><b>Question $q:</b> $1\n";
  29                 $q++;
  30         } elsif (/^A: (.*)$/){
  31                 print "$1\n";
  32         } elsif (/^TODO=(.*),$/){
  33                 print "<a name=\"$1\">\n";
  34         } else {
  35                 print "$_\n";
  36         }
  37 }