5 my $file = shift @ARGV || die "USAGE: bibtex2html_wrapper <file>\n";
9 open IN,"bibtex2html -single-output -nv -force -sort year -copy-icons ${file}.bib -output -|iconv -f latin1 -t utf8 -|";
14 next if $line =~ /WARNING: unknown field type/;
16 if($line =~ /table width/) {
19 if($line =~ /height="50"/) {
25 } while (!($line =~ /table/));
28 if($line =~ /height="35"/) {
29 ## Change this uggly table into a h2
33 } while (($line =~ /</));
38 } while (!($line =~ /table/));
39 $output .= "<h1>$title</h1>\n";
43 $line =~ s/<ol>/<ul>/g;
44 $line =~ s/<\/ol>/<\/ul>/g;
46 if($line =~ /Disclaimer:/ || $line =~ /body>/) {
50 if($line =~ /This document was translated f/) {
55 $output .= $line."\n";