#!/usr/bin/ksh
#<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>#
#<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>#
#<<<<<<<<<<<<<+-----------------------------------+>>>>>>>>>>>>>>#
#<<<<<<<<<<<<<|        Arch Log List Script       |>>>>>>>>>>>>>>#
#<<<<<<<<<<<<<|       Compaq :  Premson P. R.     |>>>>>>>>>>>>>>#
#<<<<<<<<<<<<<|-----------------------------------|>>>>>>>>>>>>>>#
#<<<<<<<<<<<<<|       Created on: 05-11-2001      |>>>>>>>>>>>>>>#
#<<<<<<<<<<<<<+-----------------------------------+>>>>>>>>>>>>>>#
#<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>#
#<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>#
#
# This script is used for listing and confirm a deletion process
# of Arch files.



clear
ECHO=print


        MON=`date +%h`
        DAY=`date +%0d`
        DC=`echo $DAY | wc -c | awk '{print $1}'`

        # DAY Determination

        if [ "$DC" = "2" ]
        then
        GRP1="$MON  $DAY"
        else
        GRP1="$MON $DAY"
        fi

        # DAY_1 Determination

        DAY_1=`expr $DAY - 1`
        DC1=`echo $DAY_1 | wc -c | awk '{print $1}'`

        if [ "$DC1" = "2" ]
        then
        GRP2="$MON  $DAY_1"
        else
        GRP2="$MON $DAY_1"
        fi

function main_affirm
{
typeset answer
typeset question=$1
typeset default=$2

        case "${default}" in
        [yY]*) question="${question} ([y]/n)" ;;
        [nN]*) question="${question} (y/[n])" ;;
        *) question="${question} (y/n)"
        esac

        while :
        do

                ${ECHO}
                read -r "answer?${question} ? " || return 1
                case ${answer} in
                [yY]*)
 			listing
                        if [ "$?" = "0" ]
                                then
                                list_com_conf
                                del_affirm "Continue Delete" "n"
                                else
                                list_incom_conf
                        fi
                        return 0
                        ;;
                [nN]*)
                        return 1
                        ;;
                "")
                        case "${default}" in
                                [yY]*)
                                        listing
                                        if [ "$?" = "0" ]
                                                then
                                                list_com_conf
                                                del_affirm "                 Continue Delete" "n"
                                                else
                                                list_incom_conf
                                        fi
                                        return 0
                                        ;;
                                [nN]*)
				 	return 1
                                        ;;
                        esac
                        ;;
                esac
                ${ECHO} '\n\t\t\a          Enter "y" or "n"  '
        done
}

function del_affirm
{
typeset answer
typeset question=$1
typeset default=$2

        case "${default}" in
        [yY]*) question="${question} ([y]/n)" ;;
        [nN]*) question="${question} (y/[n])" ;;
        *) question="${question} (y/n)"
        esac

        while :
        do

                ${ECHO}
                read -r "answer?${question} ? " || return 1
                case ${answer} in
                [yY]*)
                        delete
                        return 0
                        ;;
                [nN]*)
			${ECHO} "\n\t\t   ----- Deletion Incomplete -----\n "
                        return 1
                        ;;
                "")
                        case "${default}" in
                                [yY]*)
                                        delete
                                        return 0
                                        ;;
                                [nN]*)
                                        ${ECHO} "\n\t\t   ----- Deletion Incomplete -----\n "
                                        return 1
                                        ;;
                        esac
                        ;;
                esac
                ${ECHO} '\n\t\t\a          Enter "y" or "n"  '
        done
}

function listing
{

        ${ECHO} "\n\t "
        ${ECHO} "\n\t\t File Listing Of /arch/logfiles ..... "
        ${ECHO} "\n\t "
        ls -ltr /arch/logfiles | grep -v "total" | grep -v "$GRP1" | grep -v "$GRP2" | more

}

function delete
{
        #DEL_LIST=`ls -ltr /arch/logfiles | grep -v "total" | grep -v "$GRP1" | \
        #grep -v "$GRP2" | awk '{print $9}' | xargs rm /arch/logfiles/`
        find /arch/logfiles -ctime +2 -print | xargs rm
        if [ "$?" = "0" ]
                then
                ${ECHO} "\n\t\t    ----- Deletion Complete ----- "
                else
                ${ECHO} "\n\t\t    ----- Deletion Incomplete ----- "
        fi
}

function list_com_conf
{
        ${ECHO} "\n\t "
        ${ECHO} "\n\t\t    Arch File Listing Complete. "
        ${ECHO} "\n\t "
}

function list_incom_conf
{
        ${ECHO} "\n\t "
        ${ECHO} "\n\t\t Unable To List Arch Files. "
        ${ECHO} "\n\t "
}

function do_introduction
{

    ${ECHO}
    ${ECHO}
    ${ECHO}      "\n\n\t              ARCH LOG LIST INFORMATION"
    ${ECHO}
    ${ECHO}
    ${ECHO} "\t Do You Want To List The File Of /arch/logfiles ?"
    ${ECHO} "\t "
    ${ECHO} "\t [ Press <Return>, the default answer is assumed. ]\n"

    main_affirm "                        Continue" "y"
    return
}

if do_introduction
then :;
else
        exit 0
fi