5 my $file = shift @ARGV || die "USAGE: bibtex2html_wrapper <file>\n";
12 open IN,"bibtex2html -single-output -nv -force -sort year -copy-icons ${file}.bib -output -|iconv -f latin1 -t utf8 -|";
17 next if $line =~ /WARNING: unknown field type/;
19 if($line =~ /table width/) {
22 if($line =~ /height="50"/) {
28 } while (!($line =~ /table/));
31 if($line =~ /height="35"/) {
33 ## Change this uggly table into a h2
37 } while (($line =~ /</));
42 } while (!($line =~ /table/));
43 $output .= "<h1>$title</h1>\n";
47 $line =~ s/<ol>/<ul>/g;
48 $line =~ s/<\/ol>/<\/ul>/g;
50 if($line =~ /Disclaimer:/ || $line =~ /body>/) {
54 if($line =~ /This document was translated f/) {
59 $output .= $line."\n";
63 open(OUT,">${file}_bib.html");