#!/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/<!--msnavigation-->//g;
	$_ =~ s/<!--mstheme-->//g;
	$_ =~ s/<!--msthemelist-->//g;
	$_ =~ s/<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 3.0\">//g;
	$_ =~ s/<meta name=\"Microsoft Theme\" content=\"craig 110, default\">//g;
	$_ =~ s/<meta name=\"Microsoft Border\" content=\"tlb, default\">//g;
	$_ =~ s/<font face=\"tahoma, arial, helvetica\">//g;
      print($_);
   }
close IN;