#!/bin/sh
#
# process-email (c) Copyright Bunyip Information Systems, Inc. 1994
#
# This routine can be used to batch incoming email requests for later 
# processing
#
# Modified by Lee McLoughlin for Solaris 2.3 <lmjm@doc.ic.ac.uk>
#
PATH=/bin:/usr/bin:/usr/ucb

if p=`grep "^archie:" /etc/passwd` ; then
  archiehome=`echo $p | awk -F: '{print $6}'`
elif p=`ypmatch archie passwd` ; then
    archiehome=`echo $p | awk -F: '{print $6}'`
fi

ch_tmp()
{

    cd $archiehome/db/tmp
}

usage() {
  echo "Usage: batch-email -t <tmp dir>"
  exit 1
}

tdir="notset"

while [ $# -gt 1 ] ; do
  case $1 in

#temp directory
    -t)  if [ $# -gt 1 ] ; then shift ; tdir=$1; else usage; fi;;

  esac
  shift
done


if [ $tdir = "notset" ]; then
   ch_tmp
else
   cd $tdir
fi

for i in aremail.*; do
#	$archiehome/bin/email-client -i $i $*
	if ($archiehome/bin/email-client < $i) ; then
		/bin/rm -f $i
	else
		/bin/mv -f $i FAILED_$i
	fi
done