Garbo/Garbo.cdr/pc/source/fax.lzh/fax

Text File | 1990-05-06 | 7.3 KB | 282 lines

: This is a shar archive.  Extract with sh, not csh.
echo x - README
cat > README << '!Funky!Stuff!'
This is an el-cheapo way to implement outgoing-only text-only e-mail to
fax.

We use a $198 fax card ("The Complete FAX") in an old IBM-PC.  The PC
is set up as needed by the fax card, with the AUTOEXEC.BAT file set up
to cd into the CFAX directory (where all the fax stuff is stored),
start the fax background process, and then execute the AUTOFAX.BAT file
included in this distribution.

On our Sun mailserver, a dedicated serial line (on /dev/tty0d in our
case) runs from the Sun to the serial port on the PC.

When someone sends mail to [e-mail], we run the mail through
the 'faxmailer' shell script, which extracts the phone number (after
applying some sanity and security checks), and then queues it into a
fax job in /var/spool/fax.

Every 15 minutes or so (from crontab), we run the 'faxq' script, which
fetches previous fax transmission history files from the PC, examines
them to determine whether the transmission was successful, whether to
requeue the message for retransmission, or to return it to the sender
as undeliverable.

It then transfers the outgoing text files to the PC, and then finally
transfers a batch script 'QUEUE.BAT' which performs the actual
transmission and then loops back to the 'AUTOFAX' batch script.

For $200 and an old PC, we have the ability for E-mail users to send
mail to Fax machines on campus (at last estimate, there were around
200-400 or so fax machines around UCSD).

This is an incredible hack that I dreamed up one afternoon, but it's
been working fine for about two months, and it has demonstrated that
people want the capability.  We're looking into getting some more
sophisticated FAX capability for our E-mail system, but the low demand
(we handle maybe two to five E-Fax messages a day now) doesn't justify
the expense of the available commercial solutions.

You'll need Kermit on both the mail server and the PC.  Or maybe you can
get fancy and use some Ethernet mechanism, but I didn't think it was
worth the cost of putting an Ethernet card into the PC and we had lots
of leftover ports on the Ariel card in our Sun.

Enjoy.  Hack on it; it'll do you good.

(BTW: this is the only document on this there is.  You're on your own
now, son.)
    - Brian Kantor, UCSD, Nov 1989
!Funky!Stuff!
echo x - autofax.bat
cat > autofax.bat << '!Funky!Stuff!'
del queue.bat
del *.txt
del *.0*
kermit server
queue
!Funky!Stuff!
echo x - faxmailer
cat > faxmailer << '!Funky!Stuff!'
#!/bin/sh
cd /var/spool/fax
# make a copy of the file
echo "==============================================================" > f$$.txt
echo "==============================================================" >> f$$.txt
echo "    Wonderous Electronic Mail to FAX System " `date` >> f$$.txt
echo "==============================================================" >> f$$.txt
echo "==============================================================" >> f$$.txt
echo " " >> f$$.txt
echo " " >> f$$.txt
echo " " >> f$$.txt

head -200 >> f$$.txt

# find the phone number in the Subject: line
PH=`awk -f /usr/local/lib/faxnumber f$$.txt`

if [ $PH ] ; then
    :
else
    echo "No valid fax number found in To: or Subject: line"
    rm f$$.txt
    # ( error 65 is "data error" to sendmail)
    exit 65
    fi

# put out the actual command to be run
echo "cfaxsend f$$.txt $PH /x /f > f$$.err" > f$$.q

exit 0
!Funky!Stuff!
echo x - faxnumber
cat > faxnumber << '!Funky!Stuff!'
BEGIN    { for (i=1; i <= 5; i++)  number[i] = "" }

/^To: / {
    number[1] = substr($0,5);
        if (q = index(number[1], "@"))
            number[1]=substr(number[1], 1, (q-1));
        }

/^Subject: / {
    if (p = index($0, "["))
        {
        if (q = index($0, "]"))
            number[2]=substr($0, p+1, (q-p-1));
        }
    if (p = index($0, "("))
        {
        if (q = index($0, ")"))
            number[3]=substr($0, p+1, (q-p-1));
        }
    if (p = index($0, "<"))
        {
        if (q = index($0, ">"))
            number[4]=substr($0, p+1, (q-p-1));
        }
    if (p = index($0, "{"))
        {
        if (q = index($0, "}"))
            number[5]=substr($0, p+1, (q-p-1));
        }
    }
END    {
    for (i=1; i <= 5; i++)
        {
        p = index(number[i],"%");
        if (p > 1)
            number[i] = substr(number[i], 1, p-1);
        # check for illegal first digit - campus phones start 3,4,5
        fd = substr(number[i],1,1);
        if ( fd != 3 && fd != 4 && fd != 5 )
            number[i] = "";
        }
    print number[1] number[2] number[3] number[4] number[5]
    }
!Funky!Stuff!
echo x - faxq
cat > faxq << '!Funky!Stuff!'
#!/bin/sh
#
# this one dequeues the messages from where they're spooling and
# moves them over to the PC.

cd /var/spool/fax

# following stuffed in to prevent more than one of these running at a
# time
# Note that shlock compares
# pids so it doesn't matter if a process dies and leaves a lock sitting
#        - Brian

if /usr/lib/news/shlock -p $$ -f FAXLOCK ; then
    :
else
    echo ${pname}: "[$$]" already running "[`cat FAXLOCK`]"
    exit 0
fi

nfiles=`find . -name '*.q*' -print | wc -l`
if [ $nfiles = "0" ] ; then
    rm FAXLOCK
    exit 0;
fi


# zap commands left over from last time
rm queue.bat

# following grabs all the error files from the last go-round,
/usr/local/bin/kermit << EOF
set line /dev/tty0d
set baud 9600
get f*.err
quit
EOF

# analyze the .err files we got, and add the appropriate
# deletes to the outgoing batch file.  Successful faxes get deleted
# from the current spool directory here too; unsuccessful ones get
# requeued

for f in *.err ; do
    if [ ! -r $f ] ; then
        continue;
    fi
    fb=`basename $f .err`
    echo $f $fb ;

    # we got the errors file, blow it away on the PC
    echo "DEL $f" >> queue.bat ;

    # see if it was sent ok
    if ( egrep -i 'Sent successfully' $f ) ; then
        rm $fb.* ;
        continue ;
    fi

    # see if it failed miserably
    if ( egrep -i 'error' $f ) ; then
        frm=`egrep From: $fb.txt | sed -e 's/From: //'` ;
        more FAXERR $fb.* | Mail -s "Fax mail error" $frm brian ;
        rm $fb.* ;
        continue ;
    fi;

    # otherwise, requeue and remove the errors file
    cat $fb.q.o >> queue.bat ;
    rm $f ;
done

# cat all the new queue files onto the batch file
nq=`find . -name '*.q' -print | wc -l`
if [ $nq -gt 0 ] ; then
    for f in *.q ; do
        cat $f >> queue.bat ;
        mv $f $f.o ;
    done ;

    # ship over the current text files
    /usr/local/bin/kermit << EOF
set line /dev/tty0d
set baud 9600
send f*.txt
quit
EOF
fi

# make sure that the last thing in the batch restarts the PC script
echo "AUTOFAX" >> queue.bat

# ship over batch list of things to do
# 'finish' makes the PC kermit exit and execute the queue.bat file
# we just delivered
/usr/local/bin/kermit << EOF
set line /dev/tty0d
set baud 9600
send queue.bat
finish
quit
EOF

echo "===================================================" >> /var/log/fax
date >> /var/log/fax
cat queue.bat >> /var/log/fax
rm -f  FAXLOCK
exit 0
!Funky!Stuff!
echo x - sendmail.stuff
cat > sendmail.stuff << '!Funky!Stuff!'
This goes in Ruleset Zero:

# resolve the FAX mailer
R$*<@$*fax>$*        $#FAX$@$2$:$1$3            user@fax
R$*<@$*fax.$D>$*    $#FAX$@$2$:$1$3            [e-mail]

And this goes wherever you stuff your mailer definitions

############################################################
############################################################
#####        FAX Mailer specification
############################################################
############################################################

Mfax,    P=/usr/local/lib/faxmailer, F=rsDFMmnC, S=17, R=27,
    A=faxmailer $u

S17
#null
S27
#null
!Funky!Stuff!
echo x - usr.lib.aliases
cat > usr.lib.aliases << '!Funky!Stuff!'
fax:[e-mail]
!Funky!Stuff!
exit 0