#! /usr/bin/perl -w
#
# /var/spool/hylafax/bin/faxrcvd-mail
# Noel Burton-Krahn <noel@burton-krahn.com>
# Sept 4, 1999
#
# a replacement for hylafax's faxrcvd which sends the whole fax by email

use strict;
use File::Basename;

my($toaddr, $pdffile) = @ARGV;

#open(STDOUT, "|send -oi -f fax $toaddr");

my(%info, $info);
my($boundary);

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

#open(IN, "/usr/sbin/faxinfo $file|") || die("/usr/sbin/faxinfo $file: $!");
#while(<IN>) {
#    $info .= $_;
#    $info{lc($1)} = $2 if( /^\s*(\S+): (.*)$/ );
#}
#close(IN) || die("/usr/sbin/faxinfo: $?");

($info{received},$info{pages},$info{sender}) = split(/\./,basename("$pdffile"));
($info{year},$info{month},$info{day},$info{hour},$info{minute},$info{second}) = split(/-/,$info{received});
# $info{received} = sprintf "%d%d%d%d %d%d %d%d %d%d:%d%d:%d%d Uhr", split //,$info{received};

$info .= "Ein Fax wurde erfolgreich empfangen:\n\n";
$info .= "Fax-ID des Absenders: $info{sender}\n";
$info .= "Empfangene Seiten:    $info{pages}\n";
$info .= "Empfangen:            $info{day}.$info{month}.$info{year} $info{hour}:$info{minute}:$info{second}\n";
$info .= "\nDas Faxdokument befindet sich im Anhang dieser Mail.\n\n";

print <<EOF
From: eisfax FAX-Server < eisfax >
To: $toaddr
Subject: FAX-EINGANG am $info{day}.$info{month}.$info{year} $info{hour}:$info{minute}:$info{second} von $info{sender}
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 information
Content-Transfer-Encoding: 7bit

$info
    
EOF
    ;

#if( $msg ne "" ) {
#    print <<EOF
#The full document was not received because:
#
#    $msg
#
#EOF
#;
#}
#if( open(IN, "<log/c$commid") ) {
#    print <<EOF
#    ---- Transcript of session follows ----
#EOF
#;
#    print while(<IN>);
#    close(IN);
#}

print <<EOF
--$boundary
Content-Type: application/pdf; name="FAX from $info{sender} at $info{received}.pdf"
Content-Description: FAX from $info{sender} at $info{received}
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="FAX from $info{sender} at $info{received}.pdf"

EOF
    ;

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

print <<EOF
--$boundary--
EOF