#!/bin/sh
#
# fax - script to make, send, receive, view or print a fax
# Copyright 1993-1996 by Ed Casas
#
# --- Start of user configuration section ---
#
# Note: do not put spaces before or after the equal (=) signs.
#
# The names of the fax script, efax and efix including full path
# if necessary.
FAX=fax
EFAX=efax
EFIX=efix
# The device to which the fax modem is connected (e.g. ttya for
# /dev/ttya). Use a dial-out (cua) device if available. If
# there are links to this device then all programs must use same
# name or the UUCP locking mechanism will fail. For example, if
# /dev/modem is a link to /dev/cua1, then getty, uucp, kermit,
# pppd, dip, etc. must *all* use either /dev/modem or /dev/cua1.
#DEV=cua1
DEV=modem
# The type of fax modem commands to use. Un-comment one of the
# following lines depending on your modem.
# CLASS=1
CLASS=2
# CLASS=2.0
# Your fax number in international format, 20 characters maximum.
# Use only digits, spaces, and the "+" character.
FROM="+1 800 555 5555"
# Your name as it should appear on the page header.
NAME="Put Your Name Here"
# The preferred page size for creating and printing faxes.
# Allowed values are "letter", "legal", and "a4".
PAGE=letter
# PAGE=legal
# PAGE=a4
# The type of printer. Use 'pcl' for HP-PCL or 'ps' for
# Postscript. See definition of PRINT (below) for more options.
PRTYPE=pcl # HP-PCL (e.g. HP LaserJet)
# PRTYPE=ps # Postscript (e.g. Apple LaserWriter)
# The command to print image files from standard input. Typically
# this is "lpr" or "lp".
PRCMD="lpr"
# The command to view a Portable Gray Map (PGM) image from the
# standard input. Typically "xv -" or "xloadimage stdin".
VIEWCMD="xv -"
# VIEWCMD="xloadimage stdin" # alternative
# VIEWCMD="pnmtoxwd | xwud" # alternative
# The name of the Ghostscript executable including full path if
# necessary. Only required if faxing Postscript files.
GS=gs
# Dial string prefix and suffix such as T for tone dialing, P for
# pulse dialing, 9 to get an external line, commas for delays or
# W to wait for dial tone. See definition of TELCVT below if you
# have more complex requirements.
DIALPREFIX="T"
DIALSUFFIX=""
# The name(s) of lock file(s) according to your system's
# conventions. Protect with single quotes for delayed evaluation.
# Add a leading '#' to the file name to use HDB (ASCII) format.
LOCK='-x /usr/spool/uucp/LCK..$DEV' # "normal" systems
# LOCK='' # no lock file
# LOCK='-x /usr/spool/locks/LK.047.040.011' # SysV style names
# LOCK='-x #/usr/spool/uucp/LCK..$DEV' # HDB format (ASCII pid)
# LOCK='-x /usr/spool/uucp/LCK/LCK..$DEV' # NeXT
# Uncomment one of the following lines to force xon/xoff flow
# control if you have one of the types of modems listed.
# FCINIT='-j\Q4' # AT&T (Dataport, Paradyne)
# FCINIT='-j\Q1' # Motorola (Power Modem, 3400 Pro,...)
# FCINIT='-j*F1' # QuickComm (Spirit II)
# FCINIT='-j&H2' # USR (Courier, Sportster)
# ****************************************************************
# The remaining options probably won't need to be changed.
# ****************************************************************
# Configuration files that are sourced if they exist. Comment
# out if you don't need to use config files. Warning: any type of
# shell command in these files will be executed.
# CONFIGFILES="/etc/efax.rc ${HOME:-~}/.efaxrc ./.efaxrc"
# A command that will generate unique names for logs and received
# files. 'date +%m%d%H%M%S' works on most systems. Protect with
# single quotes.
TSTAMP='date +%m%d%H%M%S'
# TSTAMP='echo $$' # alternative - use process number
# Shell command to convert aliases to phone numbers when sending
# faxes. When executed $1 will be the alias and $f the file name
# to search. The example below uses a directory file where alias
# lines start with the keyword "fax" followed by the alias in
# parentheses and a colon. The remainder of the line is taken to
# be the phone number. Other lines are ignored. For example, if
# one of the files in DIRFILES (defined below) contained the line
# "fax(kpmg): 691-3031", you could use the command "fax send kpmg
# invoice.24". Protect with single quotes.
LOOKUP='eval sed -n -e "/^fax($1):/{" -e "s/^[^:]*://p" -eq -e"}" $f'
# List of telephone directory file(s) to be searched. The
# default is the file .faxdir in the user's home directory.
DIRFILES="${HOME:-.}/.faxdir"
# Shell command to convert phone numbers to dial strings. This
# lets you to store numbers without the long distance or
# alternate carrier access codes, passwords, accounting digits,
# etc. In the examples below this is used to convert numbers
# beginning with '+'; the first substitution handles same-country
# calls and the second handles international calls.
TELCVT='sed -e s/+1/1/ -e s/+/011/' # North America
# TELCVT='sed -e s/+61/0/ -e s/+/0011/' # Australia
# TELCVT='sed -e s/+44/0/ -e s/+/00/' # UK
# TELCVT='sed -e s/+49/0/ -e s/+/00/' # Germany
# TELCVT='sed -e s/+852// -e s/+/001/' # Hong Kong
# TELCVT='sed -e s/+33// -e s/+/19W/' # France (?)
# TELCVT='sed -e s/+34/0/ -e s/+/07W/' # Spain
# TELCVT='sed -e s/+1/10288/' # use AT&T
# TELCVT='sed -e s/+/T82W1682W9W/' # get out of PBX
# efix options to use a bitmap font for text-to-fax conversion.
# The option -l66 puts 66 lines of text per page, -d1,1 sets 1
# inch top & left margin. Comment these out to use the built-in
# font. Use "fax makefont" to make bitmap fonts from Postscript
# fonts.
# TEXTFONT="-l66 -d1,1 -f /usr/bin/efaxfont"
# Dimensions of page sizes.
PAGE_letter="8.465x11in" # fax width x letter length
PAGE_legal="8.465x14in" # fax width x legal length
PAGE_a4="21x29.7cm" # ISO A4
# Default resolution for converting to fax format. Can only be
# 204x196 or 204x98.
RES=204x196 # default "Fine" resolution (196 lpi)
# RES=204x98 # standard resolution (98 lpi)
# When the print and view commands below are executed, $f will be
# the input file name and $PAGEDIM will be one of the above page
# dimensions. Protect with single quotes.
# PRINT: A command to convert fax files to a printable format.
# For printers other than Postscript or PCL you can use efix's
# PBM output and an appropriate pbm filter (such as pbmtoepson)
# or efix's Postsript output and Ghostscript as a filter. Change
# the scaling (-s) and displacement (-d) options as required to
# fit the image onto the area your printer can print.
PRINT='$EFIX -ve -p$PAGEDIM -r300 -s0.98 -d0,0.125 -o$PRTYPE $f'
# example using pbm utilities:
# PRINT='$EFIX -ve -p$PAGEDIM -r60x72 -opbm $f | pbmtoepson'
# example using Ghostscript:
# PRINT='$EFIX -ve -p$PAGEDIM -r120x144 -ops $f | \
# $GS -q -sPAPERSIZE=$PAGE -sDEVICE=epson -r120x144 \
# -dNOPAUSE -sOutputFile=- - '
# VIEW: A command to convert fax files to PGM format for
# previewing. efix's pgm output reduces image dimensions by 4X.
VIEW='$EFIX -ve -p$PAGEDIM -r200 -opgm $f' # 50dpi: fast, whole-page view
# VIEW='$EFIX -ve -p$PAGEDIM -r300 -opgm $f' # 75dpi: slower, readable size
# Commands to set up modem. "-iZ -i&FE&D2S7=120 -i&C0"
# works with almost all modems. See the efax(1) man page for
# details.
INIT="-iZ -i&FE&D2S7=120 -i&C0"
# Command(s) to reset modem when efax finishes. "-kZ" works in
# almost all cases.
RESET="-kZ"
# RESET="-kZ -k&F+FCLASS=0" # for modems that stay in fax mode after reset
# Speaker mode(M) and loudness(L). Mn sets speaker mode where n
# means: 0:never, 1:until carrier, 2:always, 3:on receive only.
SPKR="-iM1L0"
# Options for different command sets. Normally -o1 for Class 1,
# none for Class 2 and -o0 for Class 2.0.
CLASS1INIT="-o1" # Class 1
CLASS2INIT="" # Class 2
CLASS20INIT="-o0" # Class 2.0
# The modem's capabilities for sending faxes. "1,3,0,0,0,0,0,0"
# should almost always work. The second digit can be 5 for a
# 14,400 bps fax modem. See the efax(1) man page for a
# description of the fields.
TXCAP="1,5,0,0,0,0,0,0"
# Capabilities for receiving faxes. Usually the same as TXCAP.
# If your modem only receives at 4800 bps use "1,1,0,0,0,0,0,0".
RXCAP="$TXCAP"
# Additional options required only for transmit or only for
# receive. None normally required.
RXINIT=""
TXINIT=""
# Command to make a date for the page header. Protect with single
# quotes. 'date "+%y/%m/%d %H:%M"' works on most systems.
DATECMD='date "+%y/%m/%d %H:%M"' # YY/MM/DD HH:MM (24hour)
# DATECMD='date' # longer, more readable
# Page header format. You may use $DATE, $NAME, $FROM, $TO, and
# "%d/%d" (for page number and count). Protect with single
# quotes. Example: '$DATE $NAME ($FROM) --> $TO p. %d/%d'.
HDR='$DATE $NAME ($FROM) --> $TO p. %d/%d'
# BUSYRETRIES is a list of delays in seconds between attempts to
# redial busy numbers. Comment out if you don't want to retry
# busy numbers.
BUSYRETRIES="30 60 120 300 60 600 60 60 1200 60 60"
# FAILRETRIES is a list of delays in seconds between attempts to
# retry failed transmissions. Retries are only attempted if at
# least one page was sent in the previous attempt. Retries
# include only pages not already sent. Comment out if you don't
# want to retry failed transmissions.
FAILRETRIES="300 300" # try two more times at 5 minute intervals
# Command to run another program (efax) at a higher-than-normal
# scheduling priority. This command isn't used if it fails
# (e.g. because the current user isn't privileged). Comment this
# out if it causes problems.
NICE="nice -n -10"
# Standard versions of commands that are often aliased.
RM="/bin/rm -f"
LS="/bin/ls"
# Types of messages to display. VERB sets the messages displayed
# and VERBLOG the messages written to log files.
VERB="ewin" # show errors, warnings, progress & negotiation
VERBLOG="chewmainrxtf" # log everything
# ****************************************************************
# The remaining configuration options apply only to the `fax
# answer' command. You can ignore these if you will only be
# running efax manually. See "USING INIT TO RUN EFAX" in the
# efax man page for more information.
# ****************************************************************
# device or file where fatal error messages should be written
CONSOLE=/dev/console
# The directory to store incoming faxes and log files. This directory
# should already exist and be writable by the user(s) of this script.
FAXDIR=/var/spool/fax
# The strftime(3) pattern that generates the file name for
# received files. For example, at 10:45:36 on February 25,
# "%m%d%H%M%S" would produce 0225104536, "%j-%H%M" would produce
# 056-1045, and %d%b%H%M 25Feb1045.
ANSFNAME="%m%d%H%M%S"
# umask for received files. Use 022 to allow anyone to retrieve faxes.
UMASK=022
# The command to execute when a fax is received. Normally this
# sends someone e-mail or prints the received fax. The variable
# $f will be the name of the log file, $FILES will contain the
# names of the received files, and $REMID will have the remote ID
# string or '?' if none. Comment this out to do nothing. Protect
# with single quotes.
NOTIFY='sendmail -s "fax from $REMID: $FILES" $FAXMGR <$f'
# NOTIFY='lpr $f ; $FAX print $OPT $FILES'
# The user to be sent mail when a fax is received.
FAXMGR=root
# The number of rings to wait before answering.
ANSRINGS=1
# Initialization options to enable fax/data adaptive answer (AA).
# You must also define GETTY (below). Note: AA does not work
# properly on some (2400/9600) modems unless the modem
# initialization is done at 2400 bps (not possible with
# efax). Note that USR modems do not support modem adaptive
# answer (+FAE=) in Class 1. &C1 enables most modems' DCD line
# so a signal can be sent to shells when a call is dropped.
# DATAINIT="-j&C1 -j+FAE=1" # Class 1 modem adaptive answer
# DATAINIT="-j&C1 -j+FCLASS=0 -oa" # Class 1 software adaptive answer
# DATAINIT="-j&C1 -j+FAA=1" # Class 2[.0] modem adaptive answer
# DATAINIT="-j&C1 -j+FAA=0 -j+FCLASS=0 -oa" # Class 2 software adaptive answer
# Argument to exec(2) of "/bin/sh -c" for incoming data calls.
# This command will usually exec getty(8) but can include other
# commands to set up the serial port, etc. Up to 6 %d arguments
# are replaced by the baud rate following the CONNECT response
# from the modem or 19200 if none. If using getty_ps ensure
# /etc/gettydefs has entries for all possible %d values
# (e.g. 19200). Use 'nice' if required to reduce any special
# priority set by NICE.
#GETTY="exec /sbin/agetty -h $DEV %d vt100" # for agetty (Linux)
GETTY="exec /sbin/uugetty -h $DEV %d vt100" # for getty_ps (Linux)
# The owner.group and mode to which "fax answer" sets the serial
# device. This allows non-root processes to grab the device from
# efax even if a previous process (e.g. login) has changed it.
# Comment out if you don't need to reset device ownership.
OWNER=root.tty # typical
MODE=666 # anybody
# MODE=660 # only owner & group
# To get your voice/fax/data modem to answer in voice mode, put
# the commands to switch to voice answer mode below and define
# VCMD below. In this case VCMD should do adaptive answering
# using voice prompts and/or call progress tones so don't define
# DATAINIT or GETTY.
# VOICEINIT="-jM2L2#CLS=8#VLS=4"
# Commands to switch from voice mode to fax mode without hanging
# up
VOICE1INIT="-i#CLS=1 -o1" # Class 1
VOICE2INIT="-i#CLS=2" # Class 2
VOICE20INIT="-i#CLS=2.0 -o0" # Class 2.0
# Name of the shell script that handles voice mode (see next item)
# FONE=/usr/bin/fone
# Argument passed to exec(2) of "/bin/sh -c" for incoming voice
# calls. This command will usually exec a shell script that uses
# the efone program to play prompts and get key presses. Up to 6
# %d arguments are replaced by the modem file descriptor. Comment
# this out if you don't want to handle voice mode calls.
# VCMD="exec $FONE %d" # for voice mode
# Regular expression for efax exit codes in log files that will
# *not* be saved. For example, use [145] to ignore exits due to
# `locked' (1), `no modem' (4), and `signal' (5) conditions
NOLOG='[145]'
# ****************************************************************
# --- End of user configuration section ---
# ****************************************************************
# --- source configuration files
for f in $CONFIGFILES
do
if [ -r $f ]
then
eval "`cat $f`"
fi
done
# --- set any variables given on command line
while : ; do
case $# in 0) break ;; esac
case "$1" in [A-Z]*=*) eval $1 ; shift ;; *) break ;; esac
done
# -------- initialize
ERR=0
$NICE true 2>/dev/null ; case $? in 0) ;; *) NICE="" ;; esac
# -------- resolve dependencies on command-line arguments
eval LOCK=\"$LOCK\" # depends on DEV
# make device name w/o directories
case $DEV in
*/*) DEVN=`echo $DEV|sed -e s./._.g` ;;
*) DEVN=$DEV ;;
esac
case $PAGE in
letter) PAGEDIM="$PAGE_letter" ;;
legal) PAGEDIM="$PAGE_legal" ;;
a4) PAGEDIM="$PAGE_a4" ;;
*) echo "Error: PAGE=\"${PAGE}\" not valid." ; exit 2 ;;
esac
case $CLASS in
2.0) CLASSINIT="$CLASS20INIT" ;; # Class 2.0
2) CLASSINIT="$CLASS2INIT" ;; # Class 2
1) CLASSINIT="$CLASS1INIT" ;; # Class 1
*) echo "Error: CLASS=\"${CLASS}\" not valid." ; exit 2 ;;
esac
# --- check for a command or alias and optional flags
cmd=""
case $0 in
*/faxlpr|faxlpr) cmd=faxlpr ;;
*)
while : ; do
case $# in 0) case $cmd in '') cmd=receive ;; esac ; break ;; esac
case $1 in
-l) OPT="$OPT -l" ; RES=204x98 ; shift ;;
-h) OPT="$OPT -h" ; RES=204x196 ; shift ;;
-v) OPT="$OPT -v" ; VERB=$VERBLOG ; shift ;;
*)
case $cmd in '') cmd=$1 ; shift ;; *) break ;; esac
;;
esac
done
;;
esac
# -------- do the appropriate command
while : ; do # so we can use `break' to get to the end of the script
case $cmd in
# fax answer : clean up logs and exec efax. normally run by init(8).
answer)
if cd $FAXDIR ; then :
else
echo "Error: $FAX cannot cd to $FAXDIR" >>$CONSOLE
sleep 30
break
fi
while [ -f ${DEVN}.stop ] ; do sleep 15 ; done
umask $UMASK
case $OWNER in '') ;; *) chown $OWNER /dev/$DEV ;; esac
case $MODE in '') ;; *) chmod $MODE /dev/$DEV ;; esac
for f in ${DEVN}.[0-9]* # clean up old log files
do
grep "done, returning $NOLOG" $f >/dev/null 2>/dev/null
case $? in
0)
$RM $f
;;
1) FILES=`sed -n -e '/received ->/s/^.*-> \(.*\)$/\1/p' $f`
FILES=`echo $FILES`
REMID=`sed -n -e '/remote ID ->/s/^.*-> \(.*\)$/\1/p' \
-etok -eb -e:ok -eq $f`
case $REMID in '') REMID='?' ;; esac
eval $NOTIFY
echo >>${DEVN}.log
cat $f >>${DEVN}.log
$RM $f
;;
esac
done
exec $NICE $EFAX -d/dev/$DEV -v "" -v "$VERBLOG" $INIT $SPKR \
$CLASSINIT $FCINIT $RXINIT $LOCK \
-c "$RXCAP" -l "$FROM" $RESET \
$DATAINIT -g "$GETTY" $VOICEINIT -e "$VCMD" \
-jS0=$ANSRINGS -w -s -r "$ANSFNAME" >${DEVN}.$$
echo ERROR: $FAX answer exec failed >>$CONSOLE ; sleep 30
break
;;
# fax reanswer : already answered, switch to fax mode from voice mode.
reanswer)
# we should already be in the fax spool directory, the
# device locked, the modem answered and initialized (in
# voice mode) and stderr redirected to the log file
umask $UMASK
case "$CLASS" in
2.0) CLASSINIT="$VOICE20INIT" ;; # Class 2.0
2) CLASSINIT="$VOICE2INIT" ;; # Class 2
1) CLASSINIT="$VOICE1INIT" ;; # Class 1
*) echo "bad CLASS=$CLASS" ; exit 2 ;;
esac
exec $NICE $EFAX -d/dev/$DEV $LOCK -v "$VERB" \
$CLASSINIT $FCINIT $RXINIT \
-c "$RXCAP" -l "$FROM" $RESET \
-r "$ANSFNAME"
echo ERROR: $FAX reanswer exec failed >>$CONSOLE ; sleep 30
break
;;
# fax wait : runs fax answer (emulates init(8) but PPID != 0)
wait)
while : ; do
echo running $FAX answer
$FAX $OPT answer
done
break
;;
# fax queue : list received fax files
q*)
cd $FAXDIR ;
case $? in 0) ;; *) echo "cannot cd to $FAXDIR" ; break ;; esac
if $LS [0-9]*.[0-9][0-9][0-9] >/dev/null 2>/dev/null
then
echo
echo Fax files in `pwd` :
echo
$LS -l [0-9]*.[0-9][0-9][0-9]
echo
fi
break
;;
# faxlpr : get phone number and user from current cf* file and run fax send
faxlpr)
cd $FAXDIR # the lpr spool directory for printer 'fax'
cfile=`cat \`tail -1 lock\``
num=` echo "$cfile" | sed -e /^[^J]/d -e s/.//`
host=`echo "$cfile" | sed -e /^[^H]/d -e s/.//`
user=`echo "$cfile" | sed -e /^[^P]/d -e s/.//`
cat - >> fax$$ # save in a file
l=`$FAX send "$num" fax$$`
case $? in
0) echo "$l" | mail -s "fax to $num succeeded" $user@$host - ;;
*) echo "$l" | mail -s "fax to $num failed " $user@$host - ;;
esac
$RM fax$$ fax$$.???
break
;;
# fax start/stop/status : manage fax receive daemon
start|stop|st*) # common section
cd $FAXDIR ;
case $? in 0) ;; *) echo "cannot cd to $FAXDIR" ; break ;; esac
n= ; for f in ${DEVN}.[0-9]* ; do logfile="$f" ; n=x$n ; done
case $n in
xx*) echo Warning: multiple logs for $DEV : ; ls ${DEVN}.[0-9]* ;;
esac
case $logfile in
*\*) echo no fax answer process for device $DEV ; break ;;
esac
efaxpid=`echo $logfile | sed -e "s/${DEVN}\.//g"`
case $cmd in
# fax start - remove stop file so fax answer will continue
start)
if [ ! -w . ] ; then echo "can't write `pwd`" ; break ; fi
$RM ${DEVN}.stop
break
;;
# fax stop - make a stop file and kill current fax answer daemon
stop)
if [ ! -w . ] ; then echo "can't write `pwd`" ; break ; fi
touch ${DEVN}.stop
echo stopping fax daemon for ${DEV}, pid=$efaxpid
kill -HUP $efaxpid
break
;;
# fax status - display pid and log file for current daemon
st*)
if [ -f ${DEVN}.stop ] ; then stat="(set to stop)" ; fi
if ps -u $efaxpid 2>/dev/null ; then :
else
echo "NOT ACTIVE (last daemon was $efaxpid)"
fi
echo
echo from: $FAXDIR/$logfile
echo
egrep "Warning|Error|starts|activity|opened|received -|done" $logfile
case $# in
0) ;; *) echo "---------------" ; sleep $1 ; exec $FAX status $1 ;;
esac
break
;;
esac # common section
;;
# fax make : convert a text or Postscript file to fax format
m*)
case $# in 0) echo "No files specified" ; ERR=2 ; break ;; esac
if [ ! -r $1 ] ; then echo "Can't read $1" ; ERR=2 ; break ; fi
read x <$1
case $x in
%!*) echo "$1 is postscript..."
# GS can't deal with long paths so we 'cd'
DIRNAME=`dirname $1` ; BASENAME=`basename $1`
( cd $DIRNAME ; \
$GS -q -sDEVICE=tiffg3 -r$RES -dNOPAUSE -dSAFER \
-sOutputFile=$BASENAME.%03d \
-sPAPERSIZE=$PAGE \
$BASENAME </dev/null >/dev/null )
;;
II*|MM*|P4)
echo "$1 is image file..."
$EFIX -ve -otiffg3 -p$PAGEDIM -r$RES -n $1.%03d $1
;;
*) echo "$1 is text..."
$EFIX -ve -otiffg3 -p$PAGEDIM -r$RES -n $1.%03d $TEXTFONT $1
;;
esac
break
;;
# fax send : fax files to given number, converting first if necessary
s*)
case $# in
0) echo "missing phone number to call" ; ERR=2 ; break ;;
esac
# look up names
case $1 in
[A-Za-z]*)
for f in $DIRFILES ; do
if [ -r $f ] ; then TELNO=`$LOOKUP` ; fi
case "$TELNO" in '') continue ;; *) break ;; esac
done
case "$TELNO" in
'') echo "Name lookup for $1 failed" ; ERR=2 ; break ;;
*) echo "Lookup: $1 = $TELNO" ;;
esac
;;
*) TELNO="$1" ;;
esac
shift
case "$TO" in '') TO="$TELNO" ;; *) ;; esac
TELNO=`echo $TELNO|sed "s/[ ()][ ()]*//g"`
# handle manual dialing and number->dial string conversions
case "$TELNO" in
-m*) MANINIT="-jX3" ; TELNO="" ;;
+*) TELNO=`echo $TELNO | $TELCVT` ;;
esac
case $TELNO in
'') ;;
*) TELNO="${DIALPREFIX}${TELNO}${DIALSUFFIX}" ;;
esac
# use `fax make' to convert files if they need to be updated
FILES=""
for f in $* ; do
case $f in -) FILES="$FILES -" ; continue ;; esac
if [ ! -r $f ] ; then
echo "can't read file $f" ; ERR=2 ; break 2
fi
case $f in
*.[0-9][0-9][0-9]) FILES="$FILES $f" ;; # skip image files
*) if echo ${f}.001: $f \; x | make -r -q -f - ; then
echo ${f}.nnn is up-to-date
else
$RM ${f}.[0-9][0-9][0-9]
$FAX make $OPT $f
fi
if [ -r $f.001 ] ; then
FILES="$FILES $f.[0-9][0-9][0-9]"
else # something's wrong, catch it later
FILES="$FILES $f.001"
fi
;;
esac
done
# check that all files are OK
for f in $FILES ; do
case $f in -) continue ;; esac
if [ ! -r $f ] ; then
echo "can't read file $f" ; ERR=2 ; break 2
fi
done
# send it
for s in 0 $FAILRETRIES ; do
case $s in
0) ;; *) echo "Will try again in $s seconds" ; sleep $s ;;
esac
logfile=`$TSTAMP`.log
for t in 0 $BUSYRETRIES ; do
case $t in
0) ;; *) echo "Will try again in $t seconds" ; sleep $t ;;
esac
DATE=`eval "$DATECMD"`
eval HDR=\"$HDR\"
$NICE $EFAX -v "$VERB" -v "$VERBLOG" \
-d/dev/$DEV $LOCK $INIT $SPKR \
$CLASSINIT $FCINIT $TXINIT \
-c "$TXCAP" -l "$FROM" $RESET -h "$HDR" \
$MANINIT -t "$TELNO" $FILES >$logfile
ERR=$?
case $ERR in
0) $RM $logfile ; break 2 ;;
1) echo Busy... ;;
*) echo "There were errors (see ${logfile})." ; break ;;
esac
done
SENT=` sed -n -e '/sent ->/s/^.*-> \([^ ]*\).*/\1/p' $logfile`
FILES=`sed -n -e '/failed ->/s/^.*-> \([^ ]*\).*/\1/p' $logfile`
case $SENT in '') break ;; esac
case $FILES in '') break ;; esac
echo Failed...
done
break
;;
# fax rm : delete files, possibly from spool directory
rm)
if $LS $FAXDIR/$1 2>/dev/null ; then cd $FAXDIR ; fi
for f in $* ; do
if $RM $f ; then echo deleted $f ; fi
done
break
;;
# fax [receive] : answer phone now and receive fax files
r*)
file=`$TSTAMP`
logfile=${file}.log
$NICE $EFAX -d/dev/$DEV -v "$VERB" -v "$VERBLOG" $LOCK $INIT $SPKR \
$CLASSINIT $FCINIT $RXINIT \
-c "$RXCAP" -l "$FROM" $RESET \
-r $file >$logfile
ERR=$?
case $ERR in
0) $RM $logfile ; break ;;
1) echo Busy... ;;
*) echo "There were errors (see ${logfile})." ; break ;;
esac
break
;;
# fax hangup : hang up the phone
hangup*)
$NICE exec $EFAX -d/dev/$DEV -v $VERB $LOCK -iZ -T
break
;;
# fax voicetest : open modem device and exec fone script
voicetest*)
$NICE exec $EFAX -d/dev/$DEV -v $VERB $LOCK $INIT \
-i#CLS=8 -a#VLS=1 -e "$VCMD $*"
break
;;
# fax cut : cut out part of a fax
cut)
case $# in 0|1|2|3|4)
echo "missing argument(s)" 1>&2
cmd=help ; continue ;;
esac
X=$1 ; shift ; Y=$1 ; shift ; W=$1 ; shift ; H=$1 ; shift
case "$1" in mm|"in"|cm|pt) UNITS=$1 ; shift ;; esac
$EFIX -d -${X},-${Y}$UNITS -p ${W}x${H}$UNITS -r $RES $1
break
;;
# fax paste : paste one fax into others
paste)
case $# in 0|1|2|3)
echo "missing argument(s)" 1>&2
cmd=help ; continue ;;
esac
X=$1 ; shift ; Y=$1 ; shift ;
case "$1" in mm|"in"|cm|pt) UNITS=$1 ; shift ;; esac
OVFILE=$1 ; shift
for f in $* ; do
echo "$f ..."
if $EFIX -d ${X},${Y}$UNITS -r $RES $OVFILE | \
$EFIX -O- $f >efax.tmp
then
mv efax.tmp $f
fi
done
break
;;
# fax print : print fax files, possibly from spool directory
p*)
if $LS $FAXDIR/$1 2>/dev/null ; then cd $FAXDIR ; fi
for f in $*
do
echo "$f ... "
eval "$PRINT | $PRCMD"
done
break
;;
# fax view : display image, possibly from spool directory
v*)
if $LS $FAXDIR/$1 2>/dev/null ; then cd $FAXDIR ; fi
for f in $* ; do
echo "$f ... "
eval "$VIEW | $VIEWCMD"
done
break
;;
# fax new : create a cover page for a fax (needs work)
new)
fname=${1-new.fax}
DATE=`date "+%B %d %Y"`
cat >$fname 2>/dev/null << EOF
________________________________________________
FAX COVER PAGE
________________________________________________
To: x
fax:
________________________________________________
From: $NAME
fax: $FROM
Date: $DATE
Pages: 1 (including this page)
________________________________________________
EOF
${VISUAL-${EDITOR-vi}} $fname
break
;;
# fax makefont : rasterize a PS font into a 256-character-wide bitmap
makefont)
if [ $# -lt 5 ]
then
echo Usage: fax makefont fontname fontsize \
cellwidth cellheight filename
echo "(cellwidth and cellheight in pixels, fontsize in points)"
echo "Example: fax makefont Courier-Bold 8 16 24 efaxfont"
echo "will make an 8pt font (there are about 3 pixels per pt)"
exit 1
fi
FNTFMT=pbmraw # format for font files
# FNTFMT=tiffg3 # smaller, available with Ghostscript 3.x or later
pelwidth=`expr 256 \* $3`
gs -q -sDEVICE=$FNTFMT -r204x196 -g${pelwidth}x$4 \
-sOutputFile=$5 - <<EOF
/$1 findfont $2 scalefont setfont
/buf 1 string def
/dx $3 204 div 72 mul def % x offset per character
0 1 255 {
dup dx mul 0.7 add 3 moveto
buf exch 0 exch put
buf show
} for
showpage
EOF
break
;;
# fax test : make list of script variables/values and modem features
t*)
for f in $0 $CONFIGFILES ; do
if [ -r $f ] ; then
echo "--- $f ---"
sed -n -e '/^# --- End/q' \
-e '/^[\ \t]*[A-Z][A-Z]*\=/p' $f
fi
done
case "$CLASS" in
2.0)
CMDS=" -i+FCLASS=2.0 -i+FMI? -i+FMM? -i+FMR? \
-i+FAA=? -i+FAA? -i+FBO=? -i+FBO? \
-i+FPI=? -i+FPI? -i+FCQ=? -i+FCQ? \
-i+FCR=? -i+FCR? -i+FCC=? -i+FCC? \
-i+FCS=? -i+FCS? -i+FIS=? -i+FIS? \
-i+FET=? -i+FET? -i+FID=? -i+FID? \
-i+FMM=? -i+FMM? -i+FCT=? -i+FCT? \
-i+FPS=? -i+FPS? -i+FMR=? -i+FMR? \
-i+FMI=? -i+FMI? -i+FSP=? -i+FSP? \
-i+FLP=? -i+FLP? -i+FPP=? -i+FPP? "
;;
2)
CMDS=" -i+FCLASS=2 -i+FMFR? -i+FMDL? -i+FAA=? -i+FAA? \
-i+FAXERR=? -i+FAXERR? -i+FBADLIN=? -i+FBADLIN? \
-i+FBADMUL=? -i+FBADMUL? -i+FBOR=? -i+FBOR? \
-i+FBUF? -i+FBUG=? -i+FBUG? -i+FCIG=? -i+FCIG? \
-i+FCQ=? -i+FCQ? -i+FCR=? -i+FCR? -i+FDCC=? -i+FDCC? \
-i+FDCS=? -i+FDCS? -i+FDIS=? -i+FDIS? \
-i+FDT=? -i+FECM=? -i+FECM? \
-i+FET=? -i+FET? -i+FLID=? -i+FLID? -i+FMDL? -i+FMFR? \
-i+FMINSP=? -i+FMINSP? -i+FPHCTO=? -i+FPHCTO? \
-i+FLPL=? -i+FLPL? -i+FSPL=? -i+FSPL? \
-i+FPTS=? -i+FPTS? -i+FREL=? -i+FREL? -i+FREV? "
;;
1)
CMDS="-i+FCLASS=1 \
-i+FAE=? -i+FAE? \
-i+FTM=? -i+FRM=? \
-i+FTH=? -i+FRH=? \
-i+FTS=? -i+FRS=? -iS10?"
;;
esac
echo "---------------------------------------" 1>&2
echo 1>&2
echo "Please wait, this will take a minute..." 1>&2
echo 1>&2
echo "---------------------------------------" 1>&2
$EFAX -vchewminr -d/dev/$DEV $LOCK $INIT $SPKR \
$CLASSINIT $FCINIT $TXINIT \
-iI0 -iI1 -iI3 -iI4 \
-i+FCLASS=? -i+FCLASS? \
$CMDS \
-i"&V" -i "" -i "" -i "" -i "" -i "" -k"Z" -oe -T 2>&1 | \
sed -n -e'/command/s/^[^"]*"\([^"]*\).*$/\1/p' \
-e 's/<[A-Z][A-Z]>//g' \
-e '/\[OK\]$/d' \
-e'/\[.*\]$/s/^[^[]*\[\([^]]*\).*$/ \1/p'
echo "Thank you." 1>&2
break
;;
# fax help : show command arguments
-\?|\?|-h*|h*)
cat 1>&2 <<EOF
Usage:
fax [ r[eceive] [-v] [filename-prefix] ]
fax m[ake] [-l] { postscript-file-name | text-file-name }
fax s[end] [-l] [-v] { -m | telephone-number } filename...
fax { p[rint] | v[iew] | rm } [-l] filename...
fax cut x y w h [in|mm|cm|pt] filename
fax paste x y [in|mm|cm|pt] filename filename...
fax test
fax [ stop | start | st[atus] | q[ueue] ]
fax wait
fax answer
use -l for low (98 lpi) resolution
use -m if the number has been dialed manually
use -v for a verbose log
if given no arguments, answers the phone and receives a fax.
use VAR=value to set variables (e.g. "fax DEV=cua2 receive")
session logs are written to a file with the date/time as the
file name and extension of .log (except for automatic reception).
fax device is /dev/$DEV, incoming spool directory is $FAXDIR
EOF
ERR=1
break
;;
*)
echo "Error. Invalid command ($cmd)" ; ERR=2 ; break
;;
esac
done
exit $ERR
