Hallo,
ich lasse mir die Empfangenen Faxe, die Hylafax empfangt per E-MAil
zustellen. Ich erhalte auch eine Mail, allerdings hat die PDF-Datei im
Mailanhang eine größe von 0 Bytes.
--- snip (faxrcvd)---
#! /bin/sh
#
# /var/spool/fax/bin/faxrcvd
# Noel Burton-Krahn
# Sept 4, 1999
#
#
# faxrcvd file devID commID error-msg
#
# modified faxrcvd from hylafax which calls faxrcvd-mail
#
#echo "`date`:$@/EOL" >>/tmp/fax.out
if [ $# != 4 -a $# != 5 ]; then
echo "Usage: $0 file devID commID error-msg"
exit 1
fi
FILE="$1"
DEVICE="$2"
COMMID="$3"
MSG="$4"
TRUNCFILE=`echo $FILE | sed -e 's/\.tif//'`
test -f etc/setup.cache || {
SPOOL=`pwd`
cat<> /tmp/fax.out
if faxrcvd-mail "$FILE" "$DEVICE" "$COMMID" "$MSG" "$TOADDR" FaxMaster
"$TRUNCFILE.pdf" | \
/usr/sbin/sendmail $TOADDR; then
rm -f $SPOOL/$TRUNCFILE.pdf
rm -f $SPOOL/$TRUNCFILE.ps
fi
--- snap ---
--- snip (faxrcvd-mail) ---
#! /usr/bin/perl -w
#
# /var/spool/fax/bin/faxrcvd-mail
# Noel Burton-Krahn
# Sept 4, 1999
#
# a replacement for hylafax's faxrcvd which sends the whole fax by email
use strict;
my($file, $device, $commid, $msg, $toaddr, $fromaddr, $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: $?");
print <
To: Empfaenger < $toaddr >
Subject: Neues FAX von $info{sender} am $info{received}
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 <
