Re: flexfax: Incoming fax send as mail

[Noel Burton-Krahn <noel@burton-krahn.com>]

I rewrote faxrcvd to call a perl script faxrcvd-mail.  faxrcvd-mail
uses mimencode to encode the fax as base64.  I'll attach my two
scripts below faxrcvd and faxrcvd-mail.  I hope they help.  I have
been using them on a redhat-6.0 box.

    noel@prospero:~$ uname -a
    Linux prospero.burton-krahn.com 2.2.10 #4 SMP Tue Jun 15 23:08:13 PDT 1999 i586 unknown

    noel@prospero:~$ rpm -q hylafax
    hylafax-4.1beta1-1rh6

--Noel



> X-Real-To: <noel@burton-krahn.com>
> From: Thomas Nilsen <Thomas.Nilsen@Kverneland.com>
> Date: Mon, 13 Sep 1999 10:50:53 +0200
> Sender: owner-flexfax@celestial.com
> Precedence: bulk
> Content-Type: text/plain;
> 	charset="iso-8859-1"
> X-UIDL: 208b36a08671b4de8b2b2fafcaed1b95
> 
> Can anyone suggest a quick and easy way for getting the faxrcvd script to
> send the incoming faxes as mail with the actual fax as an attachment? I've
> not been able to figure out how to add the fax as an attachment to the mail
> sent....
> 
> Regards, Thomas Nilsen
> Global Services
> Kverneland IT AS
> Phone: +47 51429306 - Mobile: +47 95258962
> 
> 




#---------------------------------------------------------------------
#! /usr/bin/perl -w
#
# /var/spool/fax/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;


my($file, $device, $commid, $msg, $toaddr, $fromaddr) = @ARGV;

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

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

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

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

print <<EOF
From: $fromaddr;
To: $toaddr
Subject: FAX from $info{sender} at $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 <<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: image/tiff
Content-Description: FAX from $info{sender} at $info{received}
Content-Transfer-Encoding: base64

EOF
    ;

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

print <<EOF
--$boundary--
EOF

#---------------------------------------------------------------------
#! /bin/sh
#
# /var/spool/fax/bin/faxrcvd
# Noel Burton-Krahn <noel@burton-krahn.com>
# Sept 4, 1999
#
# 
# faxrcvd file devID commID error-msg
#
# modified faxrcvd from hylafax which calls faxrcvd-mail
#
if [ $# != 4 ]; then
    echo "Usage: $0 file devID commID error-msg"
    exit 1
fi
FILE="$1"
DEVICE="$2"
COMMID="$3"
MSG="$4"

test -f etc/setup.cache || {
    SPOOL=`pwd`
    cat<<EOF

FATAL ERROR: $SPOOL/etc/setup.cache is missing!

The file $SPOOL/etc/setup.cache is not present.  This
probably means the machine has not been setup using the faxsetup(1M)
command.  Read the documentation on setting up HylaFAX before you
startup a server system.

EOF
    exit 1
}
. etc/setup.cache

TOADDR=faxadmin
PATH="$SPOOL/sbin:$SPOOL/bin:$PATH"

if faxrcvd-mail "$FILE" "$DEVICE" "$COMMID" "$MSG" "$TOADDR" fax | sendmail $TOADDR; then
	rm -f $FILE
fi