:
################################################################################
################################################################################
##                                                                            ##
## Micro Focus Support Assistance Utility                                     ##
##                                                                            ##
## @(#)mfsupport	3.3                                                           ##
##                                                                            ##
## Purpose: This utility was created to assist the Micro Focus Technical      ##
##          Support Department in gleaning information from the user's        ##
##          environment quickly.                                              ##
##                                                                            ##
##     ****************************************************************       ##
##     * Copyright Micro Focus Limited 1989-93. All Rights Reserved.  *       ##
##     * This diagnostic program is provided for use by users of      *       ##
##     * Micro Focus products and may be used, modified and           *       ##
##     * distributed as part of your application provided that you    *       ##
##     * properly acknowledge the copyright of Micro Focus in this    *       ##
##     * material.                                                    *       ##
##     ****************************************************************       ##
##                                                                            ##
##                                                                            ##
## History:                                                                   ##
##                                                                            ##
## Date    Who    Remarks                                                     ##
## ------- ----   ------------------------------------------------------      ##
## 19Nov93 JEK    Original                                                    ##
##                                                                            ##
##                                                                            ##
################################################################################
################################################################################

clear
VERSION="3.3"
LINE="\n\n--------------------------------------------\n\n"
OUTFILE="mfpoll"

echo "Micro Focus UNIX Technical Support Scan Utility."

if [ "$COBDIR" = "" ]
    then
    while [ "$TMP_COBDIR" = "" ] && [ "$TMP_COBDIR" != "q" ]
    do
        echo "COBDIR not set.  Please enter PATH for your COBOL directory or\c"
        echo " 'q' to quit."
        echo ":\c"
        read TMP_COBDIR
    done
else
    TMP_COBDIR=$COBDIR
fi

if [ "$TMP_COBDIR" != "q" ]
    then
    if [ -f $TMP_COBDIR/cobver ]
        then 
        echo "COBOL found in $TMP_COBDIR"
        echo "One moment while your environment is scanned...\n"
        echo "Micro Focus UNIX Support Scan Utility v$VERSION \n\n\n" >$OUTFILE
        echo "Information current as of \c"                          >>$OUTFILE
        date                                                         >>$OUTFILE
        echo "\n\nCurrent environment variables follow:\n\n"         >>$OUTFILE
        env                                                          >>$OUTFILE

#       Now that we have dumped the environment, we can set COBDIR & PATH.

        COBDIR=$TMP_COBDIR
        export COBDIR
        PATH=$COBDIR/bin:$PATH
        export PATH
        echo $LINE                                                   >>$OUTFILE
        echo "Micro Focus Product information:\n\n"                  >>$OUTFILE
        echo "RTS information:\n"                                    >>$OUTFILE
        cobrun                                                      2>>$OUTFILE
        echo "\n\nCOBOL Version information:\n"                      >>$OUTFILE
        cat $COBDIR/cobver                                           >>$OUTFILE
        echo $LINE                                                   >>$OUTFILE
        echo "\nUser's System Information:\n\n"                      >>$OUTFILE
        uname -X                                                     >>$OUTFILE                                                                      2>/dev/null
        echo "\n"                                                    >>$OUTFILE
        uname -a                                                     >>$OUTFILE
        echo "\n\nSystem fixed disk resources:\n"                    >>$OUTFILE
        df                                                           >>$OUTFILE
        echo "\n"                                                    >>$OUTFILE
        echo "Last boot:\n"                                          >>$OUTFILE
        who -bH                                                      >>$OUTFILE
        echo "\nUsers logged in:\n"                                  >>$OUTFILE
        who -TH                                                      >>$OUTFILE
        echo "\n\nProcess information:\n\n"                          >>$OUTFILE
        ps -ef                                                       >>$OUTFILE 
        echo $LINE                                                   >>$OUTFILE
        echo "User information:\n"                                   >>$OUTFILE
        echo "\nid:\n"                                               >>$OUTFILE
        id                                                           >>$OUTFILE 
        echo "\nPassword file entry:\n"                              >>$OUTFILE
        grep $LOGNAME /etc/passwd                                    >>$OUTFILE
        echo "\n\nEnd of report."                                    >>$OUTFILE
        echo "Polling complete.  Please forward the file '$OUTFILE' to Micro \c"
        echo "Focus Technical\nSupport."


    else
        echo "Incorrect PATH for COBOL directory.\n\nPlease determine the\c"
        echo " correct directory for your Micro Focus\nCOBOL product and\c"
        echo " execute utility again.\n"
    fi
fi
