#! /bin/sh
# $Header:sendapar 12.0$ 
# $ACIS:sendapar 12.0$ 
# $Source: /ibm/acis/usr/sys/support/RCS/sendapar,v $ 

#
# 5799-WZQ (C) COPYRIGHT IBM CORPORATION 1987
# LICENSED MATERIALS - PROPERTY OF IBM
# REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083
#
WHO=`whoami`
PATH=/ibm:/usr/ucb:/bin:/usr/bin
T=/tmp/br$$
APARDIR=/usr/sys/support/lib
LOCK=$APARDIR/LOCK                     
TEMPLATE=$APARDIR/apar.template
CURRENTBUG=$APARDIR/BUGNUMAPAR
 
trap "/bin/rm -f $LOCK;exit 0" 1 2
$APARDIR/mklock $LOCK
case $? in
0)      #Good return code
        CURRNO=`$APARDIR/incr $CURRENTBUG`            
	/bin/rm -f $LOCK &
	trap "/bin/rm -f $T*;
		exit 0" 0
	trap "/bin/rm -f $T*;
		/bin/echo '$0: Not posted - interrupted.' >&2;
		exit 0" 1 2
	umask 000
	eval `finger |\
	sed -n "/^$WHO / s/.........\(....................\).................................\(........\)/NAME=\"\1\" PHONE=\"\2\"/p"`
	/bin/sed -e "1s/\$/     (PTM# L${CURRNO})/" \
	-e "/Site Contact:/ s/%%.*\$/$NAME at $PHONE/" \
	-e "/Open Date:/ s/%%.*\$/`/bin/date`/" \
	-e "/Originator:/ s/%@.*\$/`/usr/ucb/whoami` at `hostname`/" \
	-e "/Local Number:/ s/%%.*\$/L${CURRNO}/" \
	$TEMPLATE > $T
	cp $T $T.old
	/bin/echo "Edit $CURRNO..." >&2
	trap "" 2	#we are committed to the editor
	${EDITOR-/usr/ucb/vi} $T
	trap "" 0 1 2
	(
		if /bin/cmp -s $T $T.old
		then
			/bin/echo "$0:Not posted - no changes made to report." >&2
		else
			/bin/sed \
                        -e "/%@/ D" \
                        $T | $APARDIR/noblanks | tee /usr/tmp/apars"${CURRNO}" | /usr/ucb/mail ibmsupt\!ibmapar
		fi
		/bin/rm -f $T*
	) &
	;;
1)      #Lock file already exists
	/bin/echo 'Sorry, someone is sending an apar. Try later' >&2
	exit 1
	;;

*)      #Unexpected error from mklock program
	/bin/echo 'Unexpected error from lock program mklock.'
	/bin/echo 'Call IBM ACIS University Support.'
	exit $?
	;;
esac
