#! /bin/sh
#
# This program takes "send" entries from the work queue and sends them.
#
# usage: AQsend 
#	 AQsend byte-limit, e.g. AQsend 100000

PATH=/aeneas/ftp/archive/bin:/usr/local:/bin:/usr/ucb:/usr/bin
export PATH
HomeDir=/aeneas/ftp
WorkQueue=/aeneas/ftp/archive/requestqueue
Log=/aeneas/ftp/archive/requestqueue/out.log

SizeLimit=${1-999999999}
cd $WorkQueue
CumSize=0
Files=""
for j in 0*
do
    if [ "$j" = '0*' ] ; then exit; fi
    size=`expr "$j" : '\(.*\)\.'`
    CumSize=`expr $CumSize + $size`
    Files="$Files $j"
    if [ $CumSize -gt $SizeLimit ] ; then break; fi
done

echo Ready to send $Files
echo Cumulative size is $CumSize

cd $HomeDir
for j in $Files
do
    sh $WorkQueue/$j && rm -f $WorkQueue/$j
    sleep 60
done