[net.bugs.uucp] uuorphan - uucp maint. shell

jlw@ariel.UUCP (08/17/83)

# 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 \([^ ]*\).*/\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/?$$

jlw@ariel.UUCP (08/17/83)

# 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/?$$