#!/usr/bin/perl
use MIME::Parser;
use MIME::Entity;
use Mail::Mailer;
use File::Temp 'tempdir';

my $mail_dir = tempdir ("ytnefXXXX", TMPDIR => 1, CLEANUP => 1);
# my $mail_dir = tempdir ("ytnefXXXX", TMPDIR => 1);
my $reader = "/usr/bin/tnef";
my $output_dir = "$mail_dir/output";

mkdir($output_dir);

my $parser = new MIME::Parser;
my $filer = new MIME::Parser::FileInto;
$filer->init($mail_dir);

$parser->filer ($filer);
$parser->output_dir($mail_dir);

$entity = $parser->parse ( \*STDIN );

processParts($entity);


$entity->print( \*STDOUT );

$entity->purge;
$parser->filer->purge;

sub processOnePart {
	my $entity = shift;
	if ( $entity->mime_type =~ /ms-tnef/i ) {
         if ($bh = $entity->bodyhandle) {
             $io = $bh->open("r");
             open(FPTR, ">$output_dir/winmail.dat");
             while (defined($_ = $io->getline)) {
                 print FPTR $_;
             }
             close(FPTR);
             $io->close;

             `$reader -C $output_dir --file="$output_dir/winmail.dat"`;
             `rm -f "$output_dir/winmail.dat"`;

             opendir(DIR, $output_dir) 
                 or die "Can't open directory $output_dir: $!";
             my @files = map { $output_dir."/".$_ } 
                 grep { !/^\./ }
                 readdir DIR;
             closedir DIR;

             for my $file ( @files ) {
                 my $mimetype = "application/binary";
                 my $disposition = "attachment";

                 $mimetype = "text/calendar" if ($file =~ m/\.vcf$/);
                 $mimetype = "text/x-vcard"  if ($file =~ m/\.vcard$/);

                 $disposition = "inline"     if ($file =~ m/\.vcf$/);
                 $disposition = "inline"     if ($file =~ m/\.vcard$/);

                 if ($mimetype eq "application/binary") {
                     $qfile = quotemeta $file;
                     $filetype = `file -bi $qfile`;
                     chomp $filetype;
                     $mimetype = $filetype if ($filetype ne "");
                 }
                 $entity->attach(
                         Path => $file,
                         Type => $mimetype,
                         Disposition => $disposition,
                         Encoding => "-SUGGEST",
                         Top => 0);
             }
         }
	}
}



sub processParts {
    my $entity = shift;
    if ($entity->parts) {
        for $part ($entity->parts) {
            processParts($part);
        }
    } else {
		processOnePart($entity);
    }
	my @keep = grep { not ($_->mime_type =~ /ms-tnef/i) } $entity->parts;
	$entity->parts(\@keep);
}