X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/dc7bcc75749ca6fe24da694e8ab8682af0f67149:/tools/doxygen/bibtex2html_postprocessor.pl..35ec45b279eb57aaa44028ab6d19d747fe903071:/tools/doxygen/bibtex2html_wrapper.pl

diff --git a/tools/doxygen/bibtex2html_postprocessor.pl b/tools/doxygen/bibtex2html_wrapper.pl
similarity index 62%
rename from tools/doxygen/bibtex2html_postprocessor.pl
rename to tools/doxygen/bibtex2html_wrapper.pl
index fded838496..bf24f697a7 100755
--- a/tools/doxygen/bibtex2html_postprocessor.pl
+++ b/tools/doxygen/bibtex2html_wrapper.pl
@@ -1,17 +1,26 @@
 #!/usr/bin/perl -w
 use utf8;
+use strict;
+
+my $file = shift @ARGV || die "USAGE: bibtex2html_wrapper <file>\n";
+
+my $output;
+
+open IN,"bibtex2html -single-output -nv -force -sort year -copy-icons ${file}.bib -output -|iconv -f latin1 -t utf8 -|";
 
 $write=0;
-while($line = <STDIN>) {
+while($line = <IN>) {
     chomp $line;
+    next if $line =~ /WARNING: unknown field type/;
+    
     if($line =~ /table width/) {
-	$line = <STDIN>;
+	$line = <IN>;
 	chomp $line;
 	if($line =~ /height="50"/) {
 	    ## Skip preembule
 	    $write=1;
 	    do {
-		$line = <STDIN>;
+		$line = <IN>;
 		chomp $line;
 	    } while (!($line =~ /table/));
 	    next;
@@ -19,15 +28,15 @@ while($line = <STDIN>) {
 	if($line =~ /height="35"/) {
 	    ## Change this uggly table into a h2
 	    do {
-		$line = <STDIN>;
+		$line = <IN>;
 		chomp $line;
 	    } while (($line =~ /</));
 	    $title=$line;
 	    do {
-		$line = <STDIN>;
+		$line = <IN>;
 		chomp $line;
 	    } while (!($line =~ /table/));
-	    print "<h1>$title</h1>\n";
+	    $output .= "<h1>$title</h1>\n";
 	    next;
 	}
     }
@@ -43,7 +52,7 @@ while($line = <STDIN>) {
     }
 
     if($write) {
-	print $line."\n";
+	$output .= $line."\n";
     }
     
 }