#!/usr/bin/perl
#
# Author: Peter Keel <killer@discordia.ch>
# Version: 1.0
# Changes some DOS- to ISO-8859-1 umlauts. Eventually HTML until fixed.
# 

die "Usage: $0 filename\n"       unless($ARGV[0]);

open(IN_FILE,"<$ARGV[0]") || die "Cannot open $ARGV[0] for input\n";
while(<IN_FILE>){
	$_ =~ s/�/�/;
	$_ =~ s/�/�/;
	$_ =~ s/�/�/;
	$_ =~ s/�/�/;
	$_ =~ s/�/�/;
	$_ =~ s/�/�/;
	$_ =~ s/�/\&THORN\;/; #evtl defunct
	$_ =~ s/�/\&thorn\;/;
	$_ =~ s/�/\&ETH\;/;
	$_ =~ s/�/\&eth\;/;
	$_ =~ s/�/\&curren\;/;
	$_ =~ s/�/\&brvbar\;/;
	$_ =~ s/�/\&macr\;/;
	$_ =~ s/�/\&sup3\;/;
	$_ =~ s/�/\&acute\;/;
	$_ =~ s/�/\&sup1\;/;
	$_ =~ s/�/\&frac34\;/;
      print($_);
   }
close IN;