#!/bin/sh
################################################################3
#
#  This script will tar up all the data for a given forecast cycle for
#  the directory specified by the first
#  argument ($1) and place the tar files on the HPSS server,
#  under /hpssprod/runhistory.  The tar file is put in the directory
#  appropriate for data valid for the day specified as the second 
#  command line argument ($2).
#
#  This script saves some of lmp com data directory into a
#  tar file for each cycle.
#  The data files are selected as proposed by MDL/MPB.
#
#  Usage: rhist_savelmp.sh Directory Date(YYYYMMDDHH format)
#
#  Where: Directory  = Directory to be tarred.
#         Date(YYYYMMDDHH format) = Day that the tar file should be saved under.
#
#  change log:
#
################################################################3
set -x

if [ $# -ne 2 ]
then
  echo "Usage: $0 Directory Date(YYYYMMDD format) "
  exit 1
fi 

#
#   Get directory to be tarred from the first command line argument,
#   and check to make sure that the directory exists.
#

dir=$1
if [ ! -d $dir ]
then
  echo "$0:  Directory $dir does not exist."
  exit 2
fi 

#
#   Determine the directory where the tar file will be stored
#   and make sure that it exists in HPSS.
#

year=`echo $2 | cut -c 1-4`
yearmo=`echo $2 | cut -c 1-6`
yrmoday=`echo $2 | cut -c 1-8`
if [ $SUBMIT_HOST = 's' ]
then
  hpssdir0=/hpssprod/runhistory/rh${year}/${yearmo}/$yrmoday
  hpssdir1=/hpssprod/runhistory/1year/rh${year}/${yearmo}/$yrmoday
  hpssdir2=/hpssprod/runhistory/2year/rh${year}/${yearmo}/$yrmoday
elif [ $SUBMIT_HOST = 'c' ]
then
  rhistdir0=/hsmprod/runhistory/rh${year}/${yearmo}/$yrmoday
  rhistdir1=/hsmprod/runhistory/1year/rh${year}/${yearmo}/$yrmoday
  rhistdir2=/hsmprod/runhistory/2year/rh${year}/${yearmo}/$yrmoday
                                                                                                   
  mkdir -p -m 755 $rhistdir0; mkdir -p -m 755 $rhistdir1; mkdir -p -m 755 $rhistdir2
fi

#
#   Get a listing of all files in the directory to be tarred
#   and break the file list up into groups of files.
#   Each list of files names the contents of its associated tar file.
# 

cd $DATA
ls -1 $dir | awk '
            /^lmp_stn_lavfcsts[.]t..z/ { print "./"$0 > "prod" ; next }
            /^lmp_tstmfcstssq[.]t..z/ { print "./"$0 > "prod" ; next }
            /^lmp_lavtxt[.]t..z/ { print "./"$0 > "prod" ; next }
            /^lmp_radgrd.raw[.]../ { print "./"$0 > "prod" ; next }
            /^lmp_radgrd.qc[.]../ { print "./"$0 > "prod" ; next }
            { print "./"$0 > "trash" ; next } '

cd $dir

#  Now create a tar file for each group of files

for file in prod
do

   #
   #   Pick 1year, 2year, or permanent archive.
   #
   case $file in
      prod)      hpssdir=$hpssdir1
                 rhistdir=$rhistdir1;;
      *)         hpssdir=$hpssdir0
                 rhistdir=$rhistdir0;;
   esac

   #
   #   Generate the name of the tarfile, which should be the same
   #   as the absolute path name of the directory being
   #   tarred, except that "/" are replaced with "_".
   #

   tarfile=`echo $PWD | cut -c 2- | tr "/" "_"`
   tarfile=${tarfile}.tar

   #
   #   Check if the tarfile index exists.  If it does, assume that
   #   the data for the corresponding directory has already been
   #   tarred and saved.
   #
   
   if [ $SUBMIT_HOST = 's' ]
   then
     hsi "ls -l ${hpssdir}/${tarfile}.idx"
     tar_file_exists=$?
     if [ $tar_file_exists -eq 0 ]
     then
       echo "File  $tarfile already saved."
       continue
     fi 
   elif [ $SUBMIT_HOST = 'c' ]
   then
     size=`ls -l ${rhistdir}/${tarfile} | awk '{ print $5}'`
     if [  -n "$size" ]
     then
       if [ $size -gt 0 ]
       then
          echo "File  $tarfile already saved."
          continue
       fi
     fi
   fi
 
   #   If on Stratus:
   #   htar is used to create the archive, -P creates
   #   the directory path if it does not already exist,
   #   and an index file is also made.
   #
   
   if [ $SUBMIT_HOST = 's' ]
   then 
     date
     htar -P -cvf ${hpssdir}/$tarfile -L ${DATA}/$file
     err=$?
     if [ $err -ne 0 ]
     then
       echo "$0:  File $tarfile was not successfully created."
       exit 3
     fi
   
     #
     #   Read the tarfile and save a list of files that are in the tar file.
     #
        
     htar -tvf $hpssdir/$tarfile
     err=$?
     if [ $err -ne 0 ]
     then
       echo "$0: Tar file $tarfile was not successfully read to"
       echo "    generate a list of the files."
       exit 4
     fi

   #
   #  Restrict tar file, if it contains restricted data.
   #
     ${USHrhist}/rhist_restrict.sh ${hpssdir}/$tarfile

   #
   #  If on Cirrus send to HSM
   #
        
   elif [ $SUBMIT_HOST = 'c' ]
   then
   
   #
   #   Tar up the directory and put the tarred file in the
   #   appropriate directory in /hsmprod/runhistory.
   #

     tar -cvf ${rhistdir}/$tarfile -L ${DATA}/$file
     err=$?
     if [ $err -ne 0 ]
     then
       echo "$0:  File $tarfile was not successfully created."
       exit 3
     fi 
     date

   #
   #   Read the tarfile and save a list of files that are in the tar file.
   #
     
     tar -tvf ${rhistdir}/${tarfile}
     err=$?
     if [ $err -ne 0 ]
     then
       echo "$0:  Tar file $tarfile was not successfully read to"
       echo "             generate a list of the files."
       exit 4
     fi
   fi 
   rm ${DATA}/$file
   
done

exit 0