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         if($line =~ /height="50"/) {
  10             ## Skip preembule
  11             $write=1;
  12             do {
  13                 $line = <STDIN>;
  14                 chomp $line;
  15             } while (!($line =~ /table/));
  16             next;
  17         }
  18         if($line =~ /height="35"/) {
  19             ## Change this uggly table into a h2
  20             do {
  21                 $line = <STDIN>;
  22                 chomp $line;
  23             } while (($line =~ /</));
  24             $title=$line;
  25             do {
  26                 $line = <STDIN>;
  27                 chomp $line;
  28             } while (($line =~ /</));
  29             print "<h1>$title</h1>\n";
  30             next;
  31         }
  32     }
  33
  34     if($line =~ /Disclaimer:/ || $line =~ /body>/) {
  35         $write=0;
  36         next;
  37     }
  38     if($line =~ /This document was translated f/) {
  39         $write=1;
  40     }
  41
  42     if($write) {
  43         print $line."\n";
  44     }
  45
  46 }