#!/usr/bin/ksh
######################################################################
#
#  pdb_clean:  Clean-up leftover files/directories from a PDB
#
#  Author:     Alan Hlava, 93/07/12
#
######################################################################
#  Check for incomplete args or request for help
if test "$#" -lt 2
then
   echo "pdb_clean:  Clean-up leftover files/directories from a PDB"
   echo
   echo "Syntax:  pdb_clean -a | -f dir-path"
   echo
   echo "      -a = Delete all files and all subdirectories"
   echo "      -f = Delete all files but not the subdirectories"
   echo "dir-path = Path name of the Palladium server directory"
   exit 0
fi

# Make directory if it doesn't yet exist.
if test ! -w "$2"
then
   mkdir $2
fi

#  Perform set-up
subdir[0]="log_printer"
subdir[1]="phy_printer"
subdir[2]="spooler"
subdir[3]="spl_job"
subdir[4]="document"
subdir[5]="queue"
subdir[6]="suv_phy_printer"
subdir[7]="supervisor"
subdir[8]="suv_job"
subdir[9]="scheduler"
subdir[10]="error_log"
subdir[11]="trace_log"
subdir[12]="iv_doc"
subdir[13]="iv_job"
subdir[14]="aux_sheet"
subdir[15]="res_context"
subdir[16]="medium"
integer numdir=17


#  Delete all PDB files
integer i=0
while ((i < numdir))
do
   dir=`printf "%s/%s" $2 ${subdir[i]}`
   directory=`printf "%s/%s/*" $2 ${subdir[i]}`
   if test "$1" = '-a'
   then
      echo Deleting $dir...
      rm -fR $dir
   else
      echo Deleting files in $dir ...
      rm -f $directory
   fi
   ((i+=1))
done


exit 0
#
#    Version      Date     Time    Owner   Comment
# ------------- -------- -------- -------- ----------------------------
# V1.1.2.1      01/13/94 10:03:15 nrbschwa Added directory creation.
# V1.1.3.1      03/22/94 12:30:11 nrbschwa Add initial value object types.
# V1.1.3.2      04/21/94 17:22:45 nrbschwa Added PDB support for Medium, AuxiliarySheet, and ResourceContext classes.
