#!/vol/local/perl

# tarfile directory locations

# setenv INV $MDOCS/census/tar2seedis/inventory

# $MDOCS/census/tar2seedis/inventory/dirloc.pl 2/18/97
# $INV/dirloc.pl

# make dirloc.txt from dka*.lst
# example:
#	rlogin parep2.lbl.gov -l merrill
#	cd $MDOCS/census/tar2seedis/inventory
#	dirloc.pl >dirloc.txt

#output on STDOUT

foreach $i (2..7)
	{
	# no of lines in this input file
	$inlines = 0;
	$file = 'dka' . $i . '00.lst' ;
	open (INFILE, $file);
	# read input file completely
	while (<INFILE>)
		{
		chop;

		# contents of input line

		# directory file name
		if (/^DKA/ && /\[SEEDIS.MSS\]\d\d\d\d\d\.DIR/)
			{
			$dirfile = $_ ;
			$dirfiles++ ;
			$tapeno = substr ($dirfile, 19, 5);
			# get old contents of $volumes{$tapeno} 
			$temp = $volumes{$tapeno} ;
			# append new volume
			$temp = $temp . ' ' . substr ($dirfile, 0 , 6) ;
			$volumes{$tapeno} = $temp ;

			#print $dirfiles . ' ' . $tapeno . ' ' . 
			#$volumes{$tapeno} . ' ' . "\n" ;

			}
		}
	close (INFILE);
	}

# print %volumes, sorted by key

foreach $key (sort(keys %volumes))
	{
	$i++ ;
	print $i . ' ' . $key . ' =' . $volumes{$key} . "\n" ;
	}