#!/bin/sh
make_diskfile()
{
 while read FILE
 do
    BASE=`basename $FILE .tgz`
    awk '{printf "%-9s %s\n", "'$BASE':",$0}' $TEXTDIR/$BASE > $TMPDIR/$BASE
    LENGTH=`wc -l $TMPDIR/$BASE | awk '{print $1}'`
    until [ $LENGTH = 11 ]
    do 
	LENGTH=`expr $LENGTH + 1`
	echo $BASE: >> $TMPDIR/$BASE
    done
    ALLFILE="$ALLFILE $BASE"
 done
 echo "CONTENTS:"$ALLFILE > $TOPDISK/$DISKFILE
 cat $TMPDIR/* >> $TOPDISK/$DISKFILE
}

which_disk() 
{
 while read TOPDISK
 do
   DISK=`basename $TOPDISK`
   DISKFILE=disk$DISK
   TMPDIR=/tmp/disk$DISK$$
   mkdir $TMPDIR
   echo "[`basename $0`] $TOPDISK/$DISKFILE"
   find $TOPDIR/$DISK -name '*.tgz' -print|make_diskfile
   rm -rf $TMPDIR
 done
}

TOPDIR=..
TEXTDIR=$TOPDIR/text
find $TOPDIR -name '*.tgz' -printf "%h\n"|sort|uniq|which_disk
