#!/usr/bin/perl
#
# Author: Peter Keel <killer@discordia.ch>
# Version: 1.0
# Converts RTF with crippled umlauts to plain, beautiful ASCII.
# 

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

$file_name = $ARGV[0];
$indice = index $file_name, ".";
$new_file = substr $file_name, 0, $indice ;
$new_file = $new_file.".txt";
$tempfile = "rtf2txt.temp";
system ("cp $ARGV[0] test.rtf");
system ("pt-u test.rtf");
system ("rtfreader > $tempfile");
open(IN_FILE,"<$tempfile") || die "Cannot open $tempfile for input\n";
open(OUT_FILE,">$new_file") || die "Cannot open $new_file for input\n";
while(<IN_FILE>){
	$_ =~ s/�/�/g;
	$_ =~ s/�/�/g;
	$_ =~ s/�/�/g;
	$_ =~ s//ss/g;
	$_ =~ s/�/�/g;
#	$_ =~ s/xx/�/g;
#	$_ =~ s/xx/�/g;
      print OUT_FILE ($_);
   }
close IN_FILE;
close OUT_FILE;
system ("rm $tempfile test.rtf");