tools/doxygen/bibtex2html_postprocessor.pl

   1 #!/usr/bin/perl -w
   2 use utf8;
   3
   4 $write=0;
   5 while($line = <STDIN>) {
   6     chomp $line;
   7     if($line =~ /table width/) {
   8         $line = <STDIN>;
   9         chomp $line;
  10         if($line =~ /height="50"/) {
  11             ## Skip preembule
  12             $write=1;
  13             do {
  14                 $line = <STDIN>;
  15                 chomp $line;
  16             } while (!($line =~ /table/));
  17             next;
  18         }
  19         if($line =~ /height="35"/) {
  20             ## Change this uggly table into a h2
  21             do {
  22                 $line = <STDIN>;
  23                 chomp $line;
  24             } while (($line =~ /</));
  25             $title=$line;
  26             do {
  27                 $line = <STDIN>;
  28                 chomp $line;
  29             } while (!($line =~ /table/));
  30             print "<h1>$title</h1>\n";
  31             next;
  32         }
  33     }
  34     $line =~ s/<ol>/<ul>/g;
  35     $line =~ s/<\/ol>/<\/ul>/g;
  36
  37     if($line =~ /Disclaimer:/ || $line =~ /body>/) {
  38         $write=0;
  39         next;
  40     }
  41     if($line =~ /This document was translated f/) {
  42         $write=1;
  43     }
  44
  45     if($write) {
  46         print $line."\n";
  47     }
  48
  49 }