#!/usr/bin/perl
#
$name = $ARGV[0];
if ($name !~ /\.bbl/) {die("no .bbl-File!");}
open(OUT, ">pub.html") or die("Cannot open file for writing.");
print OUT "\n\nPublications\n\n\n";
print OUT "List of publications in reverse chronological order.\n\n";
open(F, $name);
while( )
{
$s = $_;
$s =~ s/~/ /gsi;
$s =~ s/\/ /\/~/gsi;
$s =~ s/--/-/gsi;
$s =~ s/%\n//gsi;
$s =~ s/\\"a/ä/gsi;
$s =~ s/\\"o/ö/gsi;
$s =~ s/\\"u/ü/gsi;
$s =~ s/\\"a/Ä/gsi;
$s =~ s/\\"o/Ö/gsi;
$s =~ s/\\"u/Ü/gsi;
$s =~ s/\\"s/ß/gsi;
$s =~ s/{//gsi;
$s =~ s/}//gsi;
$s =~ s/``/"/gsi;
print OUT $s;
}
close(F);
print OUT "\n\n\n";
close(OUT);