#! /usr/bin/perl -w
#

use strict;
use File::Basename;

my($toaddr, $pdffile) = @ARGV;
my(%info, $info);
my($boundary);
my($dateiname);

$dateiname=basename("$pdffile");

$boundary=join('---', 
	       "=Boundary=",
	       $$, 
	       sprintf('%x', rand(0xffffffff)));

$info = "\nHallo,\n\n";
$info .= "das Faxdokument befindet sich im Anhang dieser Mail.\n\n";

print <<EOF
From: eisfax FAX-Server < eisfax >
To: $toaddr
Subject: FAX-VERSAND $dateiname
Mime-Version: 1.0
Content-Type: Multipart/Mixed; Boundary=\"$boundary\"
Content-Transfer-Encoding: 7bit

This is a multi-part message in MIME format.

--$boundary
Content-Type: text/plain; charset=us-ascii
Content-Description: FAX
Content-Transfer-Encoding: 7bit

$info
    
EOF
    ;

print <<EOF
--$boundary
Content-Type: application/pdf; name="FAX"
Content-Description: FAX $dateiname
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="$dateiname"

EOF
    ;

open(IN, "mimencode $pdffile |") || die ("couldn't mimencode $pdffile: $!");
print while(<IN>);
close(IN) || die("mimencode: $?");

print <<EOF
--$boundary--
EOF