#!/bin/csh
#
# IPAC/ISOPHOT -- pht_rename_olp7 (3/1999; M. Hur)

if ($#argv != 0) goto usage

echo This might take a minute...

foreach f (`find . -type f -name \*.fits -print`)
   set dirname  = `dirname  $f`
   set lastdir  = `basename $dirname`
   set filename = `basename $f .fits`
   if ( "$lastdir" == "others" ) then
      set filename = $dirname/`echo $filename | tr '[a-z]' '[A-Z]'`.FITS
   else 
      set tmpdir = `echo $dirname | awk '$0 ~ /others/ {print $0}'`   
      if ("$tmpdir" != "") then
         set updir    = `dirname  $dirname`
         set filename = $lastdir$filename.fits
         set filename = $updir/`echo $filename | tr '[a-z]' '[A-Z]'`
      else
         set filename = $dirname/`echo $filename | tr '[a-z]' '[A-Z]'`.FITS
      endif
   endif
   mv $f $filename
   echo $filename
end
exit 0

usage:
echo "Usage: pht_rename"
echo " Caution: this script renames Phot datafiles to conform to PIA"
echo " naming convention."

exit 1