Shell Programming and Scripting

#!/bin/ksh
>/tmp/prasad/ccorefilelist.txt
DIRECTORY=/tmp/prasad/
CCOREFILELIST=/tmp/prasad/ccorefilelist.txt
find ${DIRECTORY} -type f -name "ccore" -exec ls -leh {} \; >> $CCOREFILELIST
echo "find found files"
if [ -s "$CCOREFILELIST" ]
   then
tmonth=`find ${DIRECTORY} -type f -name "ccore" -exec ls -leh {} \; | awk '{print $6}'`
echo "The Month of the core file is $tmonth"
tdate=`find ${DIRECTORY} -type f -name "ccore" -exec ls -leh {} \; | awk '{print $7}'`
echo "The Date of the core file is $tdate"
ttime=`find ${DIRECTORY} -type f -name "ccore" -exec ls -leh {} \; | awk '{print $8}'`
echo "The Time of the core file is $ttime"
thour=`find ${DIRECTORY} -type f -name "ccore" -exec ls -leh {} \; | awk '{print $8}' | cut -c1-2`
echo "The Hour of the core file is $thour"
cmonth=`date +%b`
echo "The current Month is $cmonth"
cdate=`date +%d`
echo "The current Date is $cdate"
ctime=`date +%T`
echo "The current Time is $ctime"
chour=`date +%H`
echo "The current Hour is $chour"
phour=`perl -e 'use POSIX qw(strftime);  print strftime "%H", localtime(time()+$ARGV[0]);' -- -3600`
echo "The previous Hour is $phour"
yesterday=`perl -e '@T=localtime(time-86400);printf("%02d/%02d/%02d",$T[4]+1,$T[3],$T[5]+1900)'|cut -d '/' -f2`
echo "Yesterday is $yesterday"
if [[ "$tmonth" = "$cmonth" && "$tdate" = "$cdate" && "$thour" -lt "$phour" ]]
  then
        echo "New ccore files are generated today:"
        echo "However this listing of ccore files is stale and no notification will be sent through email:"
elif [[ "$tmonth" = "$cmonth" && "$tdate" = "$cdate" && "thour" -lt "$chour" ]]
  then
   echo "entering the section of within last hour"
   echo "The listing of ccore files generated within the last hour is as follows:" >> $CCOREFILELIST
   mailx -s "$SUBJECT" test@test.com < $CCOREFILELIST
   exit
elif [[ "$tdate" -lt "$yesterday" ]]
   then
     echo "The listing of ccore files generated is over a day old and hence will be deleted:"
     ####find logic to remove files older than 1 day######
fi
    else
echo "There are no ccore files to be removed"
exit
fi

function age_seconds()
{
    fs=`perl -e 'use File::stat; print stat($ARGV[0])->mtime;' "$1"`
    cs=`date +%s`
    let age=cs-fs
    echo $age
}

>/tmp/LT1H
>/tmp/OT1D

find ${DIRECTORY} -type f -name "ccore" | while read file
do
   core_age=`age_seconds "$file"`
   if [ $core_age -lt 3600 ]
   then
        echo "$file" >> /tmp/LT1H
   elif [ $core_age -gt 86400 ]
   then
        echo "$file" >> /tmp/OT1D
   fi
done