HDB-like tools

[Bill Kennedy]

A couple of weeks or so ago I said I would post the little collection
of HoneyDanBer-like tools I fixed up to use with SCO Vr2.2.3.  Here
are the first two.  They are taken right out of the system that runs
them so you will have to season to taste.  Here's a shar for them -
================= cut ========================= cut ======================
#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #! /bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create:
#	uudemon.sched
#	poll.ssbn
# This archive created: Tue May 10 15:45:25 1988
export PATH; PATH=/bin:/usr/bin:$PATH
echo shar: "extracting 'uudemon.sched'" '(379 characters)'
if test -f 'uudemon.sched'
then
	echo shar: "will not over-write existing file 'uudemon.sched'"
else
sed 's/^	X//' << \SHAR_EOF > 'uudemon.sched'
	X#
	X#   uudemon.sched
	X#
	X#   This script checks the uucp spool for work to be done
	X#   for uucp.  If there is any it will place a call,
	X#   otherwise it exits without ceremony
	X#
	XSPOOL=/usr/spool/uucp
	Xfor site in killer rrm ssbn
	Xdo
	X	if ls $SPOOL | grep "C.$site"
	X	then
	X		if test -s $SPOOL/STST.$site
	X		then
	X			rm -f $SPOOL.STST.$site
	X		fi
	X		/usr/lib/uucp/uucico -r1 -s$site
	X	fi
	Xdone
SHAR_EOF
if test 379 -ne "`wc -c < 'uudemon.sched'`"
then
	echo shar: "error transmitting 'uudemon.sched'" '(should have been 379 characters)'
fi
chmod +x 'uudemon.sched'
fi
echo shar: "extracting 'poll.ssbn'" '(604 characters)'
if test -f 'poll.ssbn'
then
	echo shar: "will not over-write existing file 'poll.ssbn'"
else
sed 's/^	X//' << \SHAR_EOF > 'poll.ssbn'
	X#
	X#   /usr/lib/uucp/poll.ssbn
	X#
	X#   If there has not been any communication with
	X#   this site, make a phoney C. file so that a
	X#   call will be placed by the scheduler daemon
	X#
	XSITE=ssbn
	XSPOOL=/usr/spool/uucp
	XLOG=$SPOOL/LOGFILE
	X#
	X#   Check the log to see if we have talked to that site
	X#   since the log was last cleaned out.
	X#
	Xif cat $LOG | grep $SITE
	Xthen
	X#   They are in the log, just exit successfully
	X	exit 0
	Xelse
	X#
	X#   They are not in the log file, force a dummy C file
	X#
	X	j=`expr $SITE : '\(.\{1,7\}\)'`
	X	touch $SPOOL/C.${j}n0000
	X	chgrp group $SPOOL/C.${j}n0000
	X	chown uucp $SPOOL/C.${j}n0000
	Xfi
SHAR_EOF
if test 604 -ne "`wc -c < 'poll.ssbn'`"
then
	echo shar: "error transmitting 'poll.ssbn'" '(should have been 604 characters)'
fi
chmod +x 'poll.ssbn'
fi
exit 0
#	End of shell archive
======================= cut ======================== cut ======================
Note that the first is run from time to time from cron.  If there is work
for a site (the system I took it out of only has three neighbors), it will
remove the STST file and place the call.  I suppose it would have been as
easy to cycle through L.sys, but I never claimed these were elegant, now you
will believe me :-)

The second makes sure that a site is contacted at least once a day (I clear
out the logs at midnight).  If the site has been called or called us they
appear in the log file, so it just exits.  Otherwise it fabricates a dummy
C file for the site which will stimulate a call when the scheduler runs the
next time.  I will toss out some more in the coming couple of weeks.
-- 
Bill Kennedy  usenet      {rutgers,ihnp4!killer,cbosgd}!ssbn!bill
              internet    bill at ssbn.WLK.COM