# Sends quarterly review notices

# Author:  Cynthia Roush
# Creation Date:  12/15/94
# Change History:
#

. setvars
cd $TMPDIR

clear
echo " "
echo " This program assumes you:"
echo "        1.  Have run get.qrev.list."
echo "        2.  Have culled $TMPDIR/out.for.qrev if necessary."
echo "        3.  Have reviewed cia:/u/hsim/.mailrc to verify that"
echo "            the group fax coordinator info is up to date."
echo "  "
echo " Press Ctrl-C to quit or press Enter to continue."
echo " "
read VAR

cp out.for.qrev $$
sed "s/^ q *[0-9]* *\([^ ]*\) *...... *\([a-z]*\) *$/\2  \1/" $$ |
sort | sed "s/^....//" > out$$
vi out$$
exit

exec 3< out.for.qrev
exec 0<&3

while read LINE
do
  set $LINE
  DT=`echo $4 | sed "s/\(..\)\(..\)\(..\)/\2\/\3\/\1/" `
  
  echo "   Please review the following fax to make sure it is still" > note$$
  echo "   up-to-date and appropriate:" >> note$$
  echo " " >> note$$
  echo "         File name:      cia:/u/hsim/other/$3"  >> note$$
  echo "         Revision Date:  $DT" >> note$$
  echo " " >> note$$
  echo "   After you have reviewed the fax, please fill in the following" >> note$$
  echo "   information and send this note to eabell@austin (or hsim@cia) ">> note$$
  echo "   and the fax coordinator for your IRT component group:" >> note$$
  echo " " >> note$$
  echo "         Reviewer:" >> note$$
  echo "         Date Reviewed:" >> note$$
  echo "         Are any changes needed (y/n)?" >> note$$
  echo "         If so, can current version remain available until" >> note$$
  echo "            updated version is ready?" >> note$$
  echo " " >> note$$
  echo "   " >> note$$
  echo "   Cynthia Roush (3-8398)" >> note$$

  echo " "
  echo " Sending review of $3 to coordinator of $5"
  mail -s "Review - $3" ${5}fax < note$$
done

rm *$$