#!/bin/ksh
#h
#h reptmail - emails reports from any app that can print
#h
#h The idea is you capture the print to a file, using the lp spooling system
#h if you cannot simply tell the app to print to a file directly.
#h
#h Then this script will prepend a little html and simple email headers
#h and use sendmail directly to send it, so that the report comes out looking 
#h similar to what it looks like when actually printed, without requiring
#h the recipient to correct their poorly configured email client to use a
#h fixed-width font which practically all printed reports require in order
#h to look right.
#h
#h This also makes it possible to add email ability to old or otherwise
#h difficult to customize applications.
#h 
#h Runs on at least SCO Open Server, Linux and FreeBSD, using at least
#h sendmail, mmdf, and smail mail servers. This script uses the command
#h "sendmail", but the other mailservers provide a dummy "sendmail" that
#h satisfies the needs of this script without having to change the script.
#h If you have something not listed, such as qmail, perhaps it also has a
#h dummy sendmail, in which case this should "just work" with it too.
#h
#h   usage:   reptmail <style> <file> <address> [options]
#h example:   reptmail H /tmp/rept31002 brian@aljex.com -s "Invoice 9532"
#h
#h <style>
#   A = send as HTML in an attachment (requires mutt)
#h   B = send as Bare HTML, just the <pre> tag and nothing else
#h   H = send as HTML, default head/tail
#h   1 = send as HTML, altrenate head/tail 1
#h   2 = send as HTML, altrenate head/tail 2
#h   3 = send as HTML, altrenate head/tail 3
#h   4 = send as HTML, altrenate head/tail 4
#h   P = send as PDF in an attachment
#h   T = send as plain TEXT
#   U = send as uuencoded HTML
#h
#h [options]
#h -s "subject"   subject
#h                defaults to "Message from `hostname`"
#h
#h -pr #          priority - 1 is highest
#h                defaults to unset, (equivalent to 3)
#h
#h -fr addres     from - address that mail will say it came from
#h                defaults to $MYMAIL if set, otherwise "`id -un`@`hostname`"
#h
#h -rt address    reply-to - adress that "reply" button will use
#h                defaults to same as "from"
#h
#h -rr address    read-receipt - request read receipt be sent to this address
#h                defaults to unset, no read receipt requested
#h
#h -cc "address,address,address..."
#h                cc list - comma seperated list of adresses to cc
#h                defaults to none
#h
#h any/all of -fr, -rt, and -rr may be combined to use the same email address
#h for multiple options without having to list them all seperately. example:
#h   -fr,rt,rr spam@aljex.com
#h is shorthand for:
#h   -fr spam@aljex.com -rt spam@aljex.com -rr spam@aljex.com
#h
#h having MYMAIL=spam@aljex.com in your environment and not specifying any
#h -fr or -rt options is the same as saying:
#h   -fr spam@aljex.com
#h which is also the same as saying:
#h   -fr spam@aljex.com -rt spam@aljex.com
#h
#h command-line arguments override built-in defaults and MYMAIL
#h
#
#  4/2002 updated to send in full ibm character set
#  4/2002 backed out full ibm charset, lines displayed, but not in fixed-width
#         font. 
#  5/2002 added optional command-line arguments to specify "reply-to" and
#         "from" addresses
# 11/2002 use $MYMAIL as default FROM & REPLYTO if set
# 02/2003 added "read receipt requested" and "priority" options
#         re-worked the command-line parsing
# 06/2003 fixed bug where a case statement would fail if the email address for
#         the fr, rt, or rr options happened to have "fr", "rt", or "rr" in it.
# 09/2003 made the P option a reality with mpack and ghostpcl
#         disabled b0rken A and U options
#         changed PFMAIL to MYMAIL for default from/reply email variable
#
#h Brian K. White - Aljex Software - brian@aljex.com

##############################################################################
#
# main config section
#

# defaults for the optional arguments
#SUBJECT=`basename ${2}`
SUBJECT="Message from `uname -n`"
FROM=${MYMAIL:-`id -un`@`hostname`}
unset REPLYTO
unset RECEIPT
unset PRIORITY

# where are head.html & tail.html
#HTDOCS=/var/www
#HTDOCS=/usr/internet/ns_httpd/httpd-80/htdocs
#HTDOCS=/usr/local/lib/apache/htdocs
#HTDOCS-/home/httpd/html/htdocs
HTDOCS=/htdocs

##############################################################################
#
# function definitions & other setup
#

# where is sendmail
case `uname -s` in
    SCO_SV) SENDMAIL=/usr/lib/sendmail ;;
    *) SENDMAIL=sendmail ;;
esac

# function to abort with a help message
SELF=$0 
usage () { (grep "^#h" $SELF ; echo "#h\n#h ERROR: $@")|less ; exit 1 ; }
[ $# = 0 ] && usage no arguments given

# function to cat a file while stripping HPLaserJet codes and IBM characters
toascii () {
    unpcl $1 |ibm2ascii |tr -d "\r"
}

# function to cat a file and wrap it in html and prepend email headers
tohtml () {
    echo "To: $2"
    [ -n "$FROM" ] && echo "From: $FROM"
    echo "Subject: $SUBJECT"
    [ -n "$REPLYTO" ] && echo "Reply-To: $REPLYTO"
    [ -n "$CCLIST" ] && echo "Cc: $CCLIST"
    [ -n "$PRIORITY" ] && echo "X-Priority: $PRIORITY"
    [ -n "$RECEIPT" ] && echo "Disposition-Notification-To: $RECEIPT"
    # this would be nice, but it breaks the fixed-width nature of <pre>
    #echo "Content-Type: text/html; charset=IBM437"
    echo "Content-Type: text/html"
    echo ""
    case $MODE in
	H|X) cat ${HTDOCS}/head.html     ;;  # default html
	1) cat ${HTDOCS}/head_1.html     ;;  # alternate html type 1
	2) cat ${HTDOCS}/head_2.html     ;;  # alternate html type 2
	3) cat ${HTDOCS}/head_3.html     ;;  # alternate html type 3
	4) cat ${HTDOCS}/head_4.html     ;;  # alternate html type 4
	B) echo "<html><body><pre>"      ;;  # "bare" html
    esac
    echo ""
    # if you have charset=ibm437 above, you don't want ibm2ascii here
    #unpcl $1 |tr -d "\r"
    unpcl $1 |ibm2ascii |tr -d "\r"
    case $MODE in
	H|X) cat ${HTDOCS}/tail.html     ;;
	1) cat ${HTDOCS}/tail_1.html     ;;
	2) cat ${HTDOCS}/tail_2.html     ;;
	3) cat ${HTDOCS}/tail_3.html     ;;
	4) cat ${HTDOCS}/tail_4.html     ;;
	B) echo "</pre></body></html>"   ;;
    esac
}

# function to convert a pcl file to pdf attachement cat all to stdout
topdfa () {
    # uses pcl2pdf to create the pdf
    # uses mpack to create most of the mime-encoded email
    # prepends a few email headers of our own
    # cats all to stdout
    #
    TPDF=/tmp/`basename $1 .pcl`.pdf
    TEML=/tmp/rm${$}.eml
    
    # convert the pcl to pdf
    pcl2pdf $1 $TPDF
    
    # create the email with the pdf attached
    mpack -s "$SUBJECT" -o $TEML $TPDF

    # prepend some email headers the mpack doesn't create
    echo "To: $2"
    [ -n "$FROM" ] && echo "From: $FROM"
    [ -n "$REPLYTO" ] && echo "Reply-To: $REPLYTO"
    [ -n "$CCLIST" ] && echo "Cc: $CCLIST"
    [ -n "$PRIORITY" ] && echo "X-Priority: $PRIORITY"
    [ -n "$RECEIPT" ] && echo "Disposition-Notification-To: $RECEIPT"

    # followed by the file mpack made
    cat $TEML
    
    # delete temp files
    rm $TEML $TPDF
}

##############################################################################
#
# parse command line arguments
#

# main mandatory arguments
export MODE=$1
export FILE=$2
export ADDR=$3
shift ; shift ; shift

# parse the rest of the options
ARGS="$@"
for ARG in $ARGS ; do
    case $ARG in
	-s) export SUBJECT="$2" ; shift ; shift ;;
	-pr) export PRIORITY=$2 ; shift ; shift ;;
	-cc) export CCLIST="$2" ; shift ; shift ;;
	-fr*|-rt*|-rr*)
	    for OPT in fr rt rr ; do
		echo $ARG |grep -q $OPT && {
		    case $OPT in
			fr) export FROM=$2    ;;
			rt) export REPLYTO=$2 ;;
			rr) export RECEIPT=$2 ;;
		    esac
		}
	    done
	    shift ; shift
	    ;;
    esac
done
REPLYTO=${REPLYTO:-$FROM}


##############################################################################
#
# MAIN
#

case $MODE in
#    A)	T=/tmp/reptmail$$
#	tohtml $FILE >$T
#	echo "See Attachment..." |mutt -a $T -s "$SUBJECT" $ADDR
#	rm $T
#	;;
    H|B|1|2|3|4) tohtml $FILE $ADDR "$SUBJECT" |$SENDMAIL -t -i ;;
    X) tohtml $FILE $ADDR "$SUBJECT" >/tmp/reptmail-test.eml ;;
    P) topdfa $FILE $ADDR "$SUBJECT" |$SENDMAIL -t -i ;;
    T) toascii $FILE |mail -s "$SUBJECT" $ADDR ;;
#    U) tohtml $FILE |uuencode `basename $FILE`.html |mail -s "$SUBJECT" $ADDR ;;
    *) usage "\"$MODE\" is not a valid format option" ;;
esac

exit 0