File:  [Research Unix] / researchv10no / cmd / uucp / uucrap
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Tue Apr 24 17:21:35 2018 UTC (8 years, 1 month ago) by root
Branches: belllabs, MAIN
CVS tags: researchv10, HEAD
researchv10 Norman

#!/bin/sh
lockdir=/usr/spool/uucp
cd /usr/spool/uucp
locklink=$lockdir/LCK.rmdir
echo $$ | awk '{printf("%10d\n", $1)}' > $locklink
for i in [a-zS]*; do
	lockfile=$lockdir/`echo LCK..$i|cut -c1-14`
	ln $locklink $lockfile && ( rmdir $i; rm -f $lockfile )
done
rm -f $locklink
cd .Status
for i in `grep -l SUCCESSFUL *`; do
	test -f ../LCK..$i || rm $i
done
exit 0

unix.superglobalmegacorp.com

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.