:
#	%Z% %M% %I% %E% %Q%
#
#	Copyright (C) The Santa Cruz Operation, 1988, 1989, 1990.
#	This Module contains Proprietary Information of
#	The Santa Cruz Operation, and should be treated as Confidential.
#

#   permserfiles - output list of all serialized files in every perms
#	list given as input. Output should be in a nice four column form 
#	with <file> <product name> <prd> <volume number>

# set variables and temp files

: ${OK=0} ${FAIL=1} ${CONTINUE=2} ${STOP=10} ${HALT=11}

OUTPUT=/tmp/permser$$
> $OUTPUT

TRAPMSG="<Del> key pressed or program killed.  Exiting."

# cleanup	- exit after cleanup

cleanup() 
{
	case $1 in
		$OK) cat $OUTPUT | sort -u ;;
	esac
	rm $OUTPUT
	exit $1
}

# main

trap 'echo "$TRAPMSG" >&2 ; cleanup $FAIL' 1 2 3 15

for i in `genperms`
do
	ser=
	set=
	prd=
	eval `sed -n '
		/^#ser=/s/#//p
		/^#prd=/s/#//p
		/^#set=/s/#//p
	    ' $i` 2> /dev/null || {
		echo "serialization gathering failure with $i" >&2
		cleanup $FAIL
	}
	[ "$ser" = "" ] || {
		for j in $ser
		do
			vol=`grep $j $i | awk '
				$1 !~ "ser=" && $NF ~ "[0-9][0-9]" {
					print $NF}' | head -1`
			if [ ${vol} ]
			then
				test
			else
				vol="V?"
			fi
			echo "$prd	$vol	\"$set\"	$j" >> $OUTPUT
		done
	}
done

cleanup $OK
