#! /bin/sh
##  $Revision: 1.4 $
##  SH script to send IHAVE batches out.

# =()<NEWSBIN=@<_PATH_NEWSBIN>@>()=
NEWSBIN=/usr/local/news/bin
PATH=${NEWSBIN}:${PATH}:/bin:/usr/bin ; export PATH

# =()<BATCH=@<_PATH_BATCHDIR>@>()=
BATCH=/var/spool/news/out.going
# =()<INEWS=@<_PATH_INEWS>@>()=
INEWS=/usr/local/news/inews
# =()<NEWSLIB=@<_PATH_NEWSLIB>@>()=
NEWSLIB=/usr/local/news
# =()<LOCK=@<_PATH_LOCKS>@/LOCK.ihave>()=
LOCK=/usr/local/news/LOCK.ihave
## =()<TMPDIR=${TMPDIR-@<_PATH_TMP>@}>()=
TMPDIR=${TMPDIR-/tmp}

PNAME=`basename $0`

## How many Message-ID's per message.
PERMESSAGE=1000

##  Start logging.
exec >>${NEWSLIB}/${PNAME}.out 2>&1
echo "${PNAME}: [$$] begin `date`"
cd ${BATCH}

##  Anyone else there?
trap 'rm -f ${LOCK} ; exit 1' 1 2 3 15
shlock -p $$ -f ${LOCK} || {
    echo "${PNAME}: [$$] locked by [`cat ${LOCK}`]"
    exit 0
}

##  Who are we sending to?
if [ -n "$1" ] ; then
    LIST="$*"
else
    LIST=""
    case `date +%H` in
    01|04|07|21|23)
	LIST="kurz-ai aoa clsib21 leafusa metasoft"
	;;
    06|12|15|17|20)
	LIST="esca"
	;;
    esac
fi

##  Do the work...
for SITE in ${LIST}; do

    ##  See if any data is ready for host.
    BATCHFILE=${SITE}.ihave
    if [ -f ${SITE}.work ] ; then
	cat ${SITE}.work >>${BATCHFILE}
	rm ${SITE}.work
    fi
    mv ${SITE} ${SITE}.work
    ctlinnd -s -t30 flush ${SITE} || continue
    cat ${SITE}.work >>${BATCHFILE}
    rm -f ${SITE}.work
    echo "${PNAME}: [$$] begin ${SITE}"

    ##  Write out the batchfile as a control message, in clumps.
    export SITE PERMESSAGE BATCHFILE
    while -s ${BATCHFILE} ; do
	(
	    echo Newsgroup: to.${SITE}
	    echo Control: ihave `hostname`
	    echo ''
	    sed -e ${PERMESSAGE}q <${BATCHFILE}
	) | ${INEWS} -h
	sed -e "1,${PERMESSAGE}d" <${BATCHFILE} >${BATCHFILE}.tmp
	mv ${BATCHFILE}.tmp ${BATCHFILE}
    done
    echo "${PNAME}: [$$] end ${SITE}"
done

##  Remove the lock file.
rm -f ${LOCK}

exit
