#!/bin/csh -fv

# globals
set UNIQUE=`/bin/date "+%m%d%H%M%S"`
setenv TMP "/tmp/whybounced_`/bin/echo $UNIQUE`"
setenv OUT "/tmp/whybounced_`/bin/echo $UNIQUE`.out"
setenv FILENO 1 

# Announce ourselves
/bin/echo "whybounced.sh starting at `date`..."
/bin/echo " "

# make workbench
mkdir $TMP

# extract smtp files
#cd $TMP
/usr/local/bin/formail -s sh -c 'cat > $TMP/$FILENO' < kinscoe.mbox

# run the perl script
foreach file ( $TMP/* )
        (/usr/local/admin/whybounced.pl $file | grep -v "Use of uninitialized value" >> $OUT ) >& /dev/null
end

# Display the output
/bin/cat $OUT | grep -v "email address: ----"

# cleanup
cd /tmp
/bin/rm -Rf $TMP
/bin/rm -f $OUT
/bin/echo " "
/bin/echo " "
/bin/echo "whybounced.sh ended at `date`"