Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10 5/3/83; site ariel.UUCP
Path: utzoo!linus!decvax!harpo!floyd!whuxlb!pyuxll!eisx!npoiv!npois!hogpc!houti!ariel!jlw
From: jlw@ariel.UUCP
Newsgroups: net.bugs.uucp
Subject: uuorphan - uucp maint. shell (update)
Message-ID: <428@ariel.UUCP>
Date: Tue, 16-Aug-83 23:21:11 EDT
Article-I.D.: ariel.428
Posted: Tue Aug 16 23:21:11 1983
Date-Received: Wed, 17-Aug-83 19:38:07 EDT
Organization: ABI - ED&D, Holmdel, NJ
Lines: 30

# uuorphan - print names of the following:
#		D. files without C. files
#		D. files without X. files
#		X. files without D. files
#
#
# uses - uuorphan
#	 uuorphan | xargs ls -l
#	 uuorphan | xargs rm -f
#
# author - J. L. Wood; ariel!jlw
#
trap "rm -f /tmp/?$$;exit" 1 2 3
cd /usr/spool/uucp
( find . -name 'X.*' -print | xargs cat -s | sed -n 's/^F //p' ;\
find . -name 'C.*' -print | xargs cat -s | sed -n 's/^S .*\(D.[^ ]*\).*/\1/p' )\
 | sort -u > /tmp/y$$
find . -name 'D.*' -print | sed 's:./::p' | sort -u > /tmp/z$$
comm -13 /tmp/y$$ /tmp/z$$
if [ -s X.* ]
then
	for i in X.*
	do
		if [ ! -s `sed -n 's/^F //p' $i` ]
		then
			echo $i
		fi
	done
fi
rm -f /tmp/?$$