
#!/bin/ksh
# File	: upd_models.sh
# By	: Maarten.deBoer@Atos.net, 2015-03-14
# Subject	: Script to process filer-release input to web-pages
#(0.3)	: Mod FONT
#(0.4)	: Add COntact
#(0.5)	: Mod dir's & added LOG
#(0.6)	: Added BASEDIR, Mod: html/versions.html
#(0.7)	: From proc_versions.sh
#(0.2)	: Add COUNTRY
#(0.3)	: Mod IN-file
#(0.4)	: Update modelcolors
#(0.5)	: Mod. When no SerNR no usage, Model change SerNr
#(0.6)	: If FILER="", the FILER="<noname>", USAGE -> LAST_ASUP. No BIOS versions
#(0.7)	: Added asup-ack
#(0.8)	: Some mod.s
#(0.9)	: Mod is no MODEL
#(0.10)	: Added if [ "${EOSYEAR}" != "" ]; then
#(0.11)	: Add Overall status of last ASUP. FOr beeing used at upd_dashboard. Added DASHBOARDFILE,DASHBOARDASUPCOL
#(0.12)	: Remove "Ack DaTi:", Rem ${LOC}
#(0.13)	: Mod. ASUP colors
#(0.14),160725	: Add DFM-server & Last DFM-update & DB_READ
#(0.15),160726	: Added REMARS & REMCOL & Removed (#-ed) ACK
#(0.16),170419	: Added DASHBOARDASUPCOL at botom/Legenda:
#(0.17),170508	: Upd OSCOL
#(0.18),170509	: Upd OSCOL
#(0.19),170828	: Removed DFM-servername:	Last DFM update:
#(0.20),170830	: Added create $LOGdir
#(0.21),170830	: Removed FLU, OUT -> HTML, Changed getting info from IN-file -> AFSP-DB (sorted bu SerNr & 1st col = Ser.Nr)
#(0.22),170907	: Added EMPTY_ASUP_CNT
# set -x
PGM="`basename $0|cut -d\. -f1`"
VER="0.22"
TMP="/tmp/${PGM}.$$"

BASEDIR="`pwd | sed 's/scripts//'|sed 's/bin//'`"
if [ ! -d ${BASEDIR}/log} ]; then
  mkdir -p ${BASEDIR}/log
fi
LOG="${BASEDIR}/log/${PGM}.log"
EMPTY_ASUP_CNT=0

IN="${BASEDIR}/data/model-version/filer-name-loc-model-os-fw-sn-partner.csv"
HTML="${BASEDIR}/html/models.html"

COUNTRY="`echo ${BASEDIR}| cut -d\/ -f6`"
AFSPDBDIR="${BASEDIR}/data/database"

DASHBOARDFILE="/appl/mdr/mdrglob/afsp/${COUNTRY}/data/dashboard.asc"
touch ${DASHBOARDFILE}

echo "BASEDIR=${BASEDIR}"
echo "AFSPDBDIR=${AFSPDBDIR}"
echo "DASHBOARDFILE=${DASHBOARDFILE}"

# Filer End Of Support
FILEREOS="/appl/mdr/mdrglob/afsp/glob/etc/filer-end-of-hw-support.csv"

echo "`date` ${PGM} v${VER} started." | tee -a ${LOG}
touch ${TMP}

# Read Functions file
source ./afsp-db_functions.sh
DB_FUNC_VER


echo "BASEDIR=${BASEDIR}"

echo "<!DOCTYPE html>" > ${HTML}
echo "<HTML>" >> ${HTML}
echo "<HEAD>" >> ${HTML}
echo "<META charset='UTF-8'>" >> ${HTML}
echo "<META content=Maarten de Boer name=AUTHOR>" >> ${HTML}
echo "<TITLE> AFSP: ${COUNTRY} models </TITLE>" >> ${HTML}
echo "<basefont face='verdana'>" >> ${HTML}
echo "</HEAD>" >> ${HTML}

echo "<BODY aLink=red bgColor=#D3D0D3 link=red text=#000000 vLink=#ff0000>" >> ${HTML}

echo "<TABLE BORDER=0 WIDTH='100%'>" >> ${HTML}

echo "<TR WIDTH=100% HEIGHT=40px>" >> ${HTML}
echo "  <TD bgColor=#0066A1>" >> ${HTML}
echo "    <FONT COLOR=white face='verdana' size='5'> <B> <A HREF="../${COUNTRY}-overview.html">Filer</A> models (& ontap levels /
OS-versions) of ${COUNTRY} </B> </FONT>" >> ${HTML}
echo "    <BR>" >> ${HTML}
echo "    <DIV align=right>" >> ${HTML}
echo "    <FONT COLOR=white face='verdana' size='-3'> For internal use. (c) Atos `date +%Y` </B> </FONT>" >> ${HTML}
echo "    </DIV>" >> ${HTML}
echo "  <TD>" >> ${HTML}
echo "</TR>" >> ${HTML}

echo "<TR>" >> ${HTML}

#echo "  <TABLE BORDER=1 WIDTH='100%'>" >> ${HTML}
echo "  <TABLE BORDER=1>" >> ${HTML}

echo "<TR>" >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1>ASUP:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1>ASUP:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1>ASUP:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1>ASUP:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1>ASUP:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1>ASUP:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1>ASUP:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1>ASUP:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1>Admin:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1>Admin:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1>Admin:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1>Admin:</B> </TD> " >> ${HTML}
echo "</TR>" >> ${HTML}

echo "<TR>" >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1> <B>Serial Number:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1> <B>Name:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1> <B>Model:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1> <B>OS Version:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1> <B>Partner:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1> <B>SNMP location:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1> <B>SNMP contact:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1> <B>Last ASUP:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1> <B>Contract name:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1> <B>Site name:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1> <B>Contact name:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1> <B>Remarks:</B> </TD> " >> ${HTML}
echo "</TR>" >> ${HTML}

DASHBOARDASUPCOL=""
# Get all data from AFSPDBDIR

ls -1 ${AFSPDBDIR}/*.asc| while read DBFILE
do
  FILERCOL=""
  SERNRCOL=""
  REMCOL=""

  if [ -f ${DBFILE} ]; then 
    DB_READ ${DBFILE}

    SERIAL_NUMBER="${DB_SERIAL_NUMBER}"
    CONTROLER_NAME="${DB_CONTROLER_NAME}"
    MODEL_NAME="${DB_MODEL_NAME}"
# Remove all whitespace (including tabs) from left to first word
    OS_VERSION=`echo "${DB_OS_VERSION}"|sed -e 's/^[ \t]*//'`
    SNMPLOC="${DB_SNMP_LOCATION}"
    SNMPCONTACT="${DB_SNMP_CONTACT}"
    PARTNER="${DB_PARTNER_HOSTNAME}"
    LAST_ASUP="${DB_ASUP_GENERATED_ON}"
    SYSTEMID="${DB_SYSTEM_ID}"
    DFM_SERVERNAME="${DB_DFM_SERVERNAME}"
    DFM_UPDATE_DATE="${DB_DFM_UPDATE_DATE}"
    REMARKS="${DB_REMARKS}"

    CONTRACT_NAME="${DB_CONTRACT_NAME}"
    SITE_NAME="${DB_SITE_NAME}"
    CONTACT_NAME=${DB_CONTACT_NAME}

    OSCOL=""
    case ${OS_VERSION} in
      7.2*) OSCOL="red" ;;
      7.3*) OSCOL="orange" ;;
      8.0*) OSCOL="orange" ;;
      8.1*) OSCOL="yellow" ;;
      8.2*) OSCOL="yellow" ;;
      8.3*) OSCOL="lightgreen" ;;
      9.*) OSCOL="green" ;;
    esac
    echo ${OS_VERSION}|grep 'RC' 1> /dev/null
    RC=${?}
    if [ ${RC} -eq 0 ]; then
      OSCOL="red"
    fi
    echo "OS_VERSION=${OS_VERSION} | OSCOL=${OSCOL} ... "

  # -- Coloring
  # is model = know. color
  if [ "${MODEL_NAME}" != "" ]; then
    MODELCOL=""
    THISYEAR=`date +%Y`
    EOSYEAR="`grep ${MODEL_NAME} ${FILEREOS}|grep -v ^#|awk -F\; '{print $2}'|sort -u|cut -d\- -f1`"
	if [ "${EOSYEAR}" != "" ]; then
      let "SUPYEARS= ${EOSYEAR} - ${THISYEAR}"
      if [ ${EOSYEAR} -gt 0 ] && [ ${SUPYEARS} -lt 1 ]; then
        MODELCOL="orange"
      fi
      if [ ${EOSYEAR} -gt 0 ] && [ ${SUPYEARS} -lt 0 ]; then
        MODELCOL="red"
      fi
      if [ ${EOSYEAR} -gt 0 ] && [ ${SUPYEARS} -ge 1 ]; then
        MODELCOL="yellow"
      fi
      if [ ${EOSYEAR} -gt 0 ] && [ ${SUPYEARS} -ge 3 ]; then
        MODELCOL="green"
      fi
	fi  # "${EOSYEAR}
	if [ "${MODEL_NAME}" = "model?" ]; then
      MODELCOL="lightblue"
	fi
  else
    MODELCOL="lightblue"
  fi  # MODEL_NAME

# Last Asup
  LASTASUPOCOL=""
  YEAR="`date +%Y`"
  ANSW="`echo "${LAST_ASUP}"| grep \" ${YEAR}\"`"
  if [ "${ANSW}" = "" ]; then
    LASTASUPCOL="red"
  fi
  ANSW="`echo "${LAST_ASUP}"| grep \" ${YEAR}\"`"
  if [ "${ANSW}" != "" ]; then
    LASTASUPCOL="orange"
  fi
  MONTH="`date +%b`"
  ANSW="`echo ${LAST_ASUP}| grep \" ${YEAR}\"|grep \" ${MONTH}\"`"
  if [ "${ANSW}" != "" ]; then
    LASTASUPCOL="yellow"
  fi
  DAY="`date +%d`"
  ANSW="`echo ${LAST_ASUP}| grep \" ${YEAR}\"|grep \" ${MONTH}\"|grep \" ${DAY}\"`"
  if [ "${ANSW}" != "" ]; then
    LASTASUPCOL="green"
  fi
  if [ "${LAST_ASUP}" = "" ]; then
    LASTASUPCOL="lightblue"
	DASHBOARDASUPCOL="lightblue"
	EMPTY_ASUP_CNT
	let "EMPTY_ASUP_CNT= ${EMPTY_ASUP_CNT} + 1"

  fi
  echo "LAST_ASUP=${LAST_ASUP} DAY=${DAY} MONTH=${MONTH} YEAR=${YEAR} ANSW=${ANSW} LASTASUPCOL=${LASTASUPCOL}"

  case "${LASTASUPCOL}" in
    "") 
      DASHBOARDASUPCOL="lightblue"
	;;
    "orange")
      if [ "${DASHBOARDASUPCOL}" = "" ] || [ "${DASHBOARDASUPCOL}" = "green" ] || [ "${DASHBOARDASUPCOL}" = "yellow" ]; then
        DASHBOARDASUPCOL="orange"
      fi
	;;
    "yellow")
      if [ "${DASHBOARDASUPCOL}" = "" ] || [ "${DASHBOARDASUPCOL}" = "green" ]; then
        DASHBOARDASUPCOL="yellow"
      fi
	;;
    "green")
      if [ "${DASHBOARDASUPCOL}" = "" ]; then
        DASHBOARDASUPCOL="green"
      fi
	;;
  esac

# DFM -server & last update
# DFM_SERVERNAME
# DFM_UPDATE_DATE

  if [ "${DFM_SERVERNAME}" != "" ]; then
    DFMCOL="lightgreen"
  else
    DFMCOL="lightblue"
  fi
  CURDATE="`date +%Y-%m-%d`"
  if [ "${DFM_UPDATE_DATE}" = "" ]; then
    LASTDFMCOL="lightblue"
  fi
  if [ "${DFM_UPDATE_DATE}" = "${CURDATE}" ]; then
    LASTDFMCOL="green"
  fi
  if [ "${REMARKS}" != "" ]; then
    REMCOL="yellow"
  fi
# if no more information, maybe filer need to be removed
  if [ "${LAST_ASUP}" = "" ] && [ "${DFM_SERVERNAME}" = "" ] && [ "${DFM_UPDATE_DATE}" = "" ] && [ "${REMARKS}" = "" ]; then
    FILERCOL="orange"
    SERNRCOL="orange"
  fi

  echo "$SERIAL_NUMBER (${CONTROLER_NAME}) | EOSYEAR=${EOSYEAR} SUPYEARS=${SUPYEARS} => ${MODELCOL}, LastASUP=${LASTASUPCOL} (${DASHBOARDASUPCOL}) ..."

  echo "<TR>" >> ${HTML}
  echo "  <TD BGCOLOR=${SERNRCOL}> <FONT face='verdana' size=1> ${SERIAL_NUMBER} </FONT> </TD> " >> ${HTML}
  echo "  <TD BGCOLOR=${FILERCOL}> <FONT face='verdana' size=1> ${CONTROLER_NAME} </FONT> </TD> " >> ${HTML}
  echo "  <TD BGCOLOR=${MODELCOL}> <FONT face='verdana' size=1> ${MODEL_NAME} </FONT> </TD> " >> ${HTML}
  echo "  <TD BGCOLOR=${OSCOL}> <FONT face='verdana' size=1> ${OS_VERSION} </FONT> </TD> " >> ${HTML}
#  echo "  <TD> <FONT face='verdana' size=1> ${FWVERSION} </FONT> </TD> " >> ${HTML}
  echo "  <TD> <FONT face='verdana' size=1> ${PARTNER} </FONT> </TD> " >> ${HTML}
  echo "  <TD> <FONT face='verdana' size=1> ${SNMPLOC} </FONT> </TD> " >> ${HTML}
  echo "  <TD> <FONT face='verdana' size=1> ${SNMPCONTACT} </FONT> </TD> " >> ${HTML}
#  echo "  <TD> <FONT face='verdana' size=1> ${USAGE} </FONT> </TD> " >> ${HTML}
  echo "  <TD BGCOLOR=${LASTASUPCOL}> <FONT face='verdana' size=1> ${LAST_ASUP} </FONT> </TD> " >> ${HTML}

  echo "  <TD> <FONT face='verdana' size=1> ${CONTRACT_NAME} </FONT> </TD> " >> ${HTML}
  echo "  <TD> <FONT face='verdana' size=1> ${SITE_NAME} </FONT> </TD> " >> ${HTML}
  echo "  <TD> <FONT face='verdana' size=1> ${CONTACT_NAME} </FONT> </TD> " >> ${HTML}

#  echo "  <TD BGCOLOR=${DFMCOL}> <FONT face='verdana' size=1> ${DFM_SERVERNAME} </FONT> </TD> " >> ${HTML}
#  echo "  <TD BGCOLOR=${LASTDFMCOL}> <FONT face='verdana' size=1> ${DFM_UPDATE_DATE} </FONT> </TD> " >> ${HTML}
  echo "  <TD BGCOLOR=${REMCOL}> <FONT face='verdana' size=1> ${REMARKS} </FONT> </TD> " >> ${HTML}
#  echo "  <TD > <FONT face='verdana' size=1> ${ACKFILEDATI} </FONT> </TD> " >> ${HTML}
  echo "</TR>" >> ${HTML}


  fi  # -f DBFILE
done  # ls -1

echo "DASHBOARDASUPCOL=${DASHBOARDASUPCOL}"|tee ${DASHBOARDFILE}

echo "<TR>" >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1> <B>Serial Number:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1> <B>Name:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1> <B>Model:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1> <B>OS Version:</B> </TD> " >> ${HTML}
#echo "  <TD> <FONT face='verdana' size=1> <B>BIOS Version:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1> <B>Partner:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1> <B>SNMP location:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1> <B>SNMP contact:</B> </TD> " >> ${HTML}
#echo "  <TD> <FONT face='verdana' size=1> <B>Usage:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1> <B>Last ASUP:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1> <B>Contract name:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1> <B>Site name:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1> <B>Contact name:</B> </TD> " >> ${HTML}
#echo "  <TD> <FONT face='verdana' size=1> <B>DFM-servername:</B> </TD> " >> ${HTML}
#echo "  <TD> <FONT face='verdana' size=1> <B>Last DFM <BR> update:</B> </TD> " >> ${HTML}
echo "  <TD> <FONT face='verdana' size=1> <B>Remarks:</B> </TD> " >> ${HTML}
echo "</TR>" >> ${HTML}


COUNT="`cat ${IN}|grep -v '^#'|wc -l|awk '{print $1}'`"
echo "<TR>" >> ${HTML}
  echo "  <TD> <FONT face='verdana' size=1> ${COUNT} filers </FONT> </TD> " >> ${HTML}
  echo "  <TD> </TD> " >> ${HTML}
  echo "  <TD> </TD> " >> ${HTML}
  echo "  <TD> </TD> " >> ${HTML}
  echo "  <TD> </TD> " >> ${HTML}
  echo "  <TD> </TD> " >> ${HTML}
  echo "  <TD> </TD> " >> ${HTML}
  echo "  <TD> <FONT face='verdana' size=1> ${EMPTY_ASUP_CNT} empty ASUPs </FONT> </TD> " >> ${HTML}
echo "</TR>" >> ${HTML}

echo "<P>" >> ${HTML}

echo "</TABLE>" >> ${HTML}

echo "  <TABLE>" >> ${HTML}
echo "    <TR>" >> ${HTML}
echo "      <TD><FONT face= 'verdana' size=2>Color legenda: </TD>" >> ${HTML}
echo "    </TR>" >> ${HTML}
echo "    <TR>" >> ${HTML}
echo "      <TD><FONT face= 'verdana' size=2>Serial Number & Name: </TD>" >> ${HTML}
echo "      <TD> <FONT face= 'verdana' size=2></FONT> </TD>" >> ${HTML}
echo "      <TD BGCOLOR=orange> <FONT face= 'verdana' size=2>No ASUP & DFM info</FONT> </TD>" >> ${HTML}
echo "    </TR>" >> ${HTML}
echo "    <TR>" >> ${HTML}
echo "      <TD><FONT face= 'verdana' size=2>Model: </TD>" >> ${HTML}
echo "      <TD BGCOLOR=red> <FONT face= 'verdana' size=2>NO support </FONT> </TD>" >> ${HTML}
echo "      <TD BGCOLOR=orange> <FONT face= 'verdana' size=2>Support < 1 yr</FONT> </TD>" >> ${HTML}
echo "      <TD BGCOLOR=yellow> <FONT face= 'verdana' size=2>Support >= 1 yr</FONT> </TD>" >> ${HTML}
echo "      <TD BGCOLOR=green> <FONT face= 'verdana' size=2>Support >= 3 yr</FONT> </TD>" >> ${HTML}
echo "      <TD BGCOLOR=lightblue> <FONT face= 'verdana' size=2>No info</FONT> </TD>" >> ${HTML}
echo "    </TR>" >> ${HTML}
echo "    <TR>" >> ${HTML}
echo "      <TD><FONT face= 'verdana' size=2>OS Version: </TD>" >> ${HTML}
echo "      <TD BGCOLOR=red> <FONT face= 'verdana' size=2>Oldest (7.2 / RC)</FONT> </TD>" >> ${HTML}
echo "      <TD BGCOLOR=orange> <FONT face= 'verdana' size=2>Older (8.0 / 7.3)</FONT> </TD>" >> ${HTML}
echo "      <TD BGCOLOR=yellow> <FONT face= 'verdana' size=2>Old (8.1 /8.2)</FONT> </TD>" >> ${HTML}
echo "      <TD BGCOLOR=lightgreen> <FONT face= 'verdana' size=2>Fair 8.3 (cDOT)</FONT> </TD>" >> ${HTML}
echo "      <TD BGCOLOR=green> <FONT face= 'verdana' size=2>Latest 9.x (cDOT)</FONT> </TD>" >> ${HTML}
echo "    </TR>" >> ${HTML}
echo "    <TR>" >> ${HTML}
echo "      <TD><FONT face= 'verdana' size=2>Last ASUP: </TD>" >> ${HTML}
echo "      <TD BGCOLOR=red> <FONT face= 'verdana' size=2>Not this year</FONT> </TD>" >> ${HTML}
echo "      <TD BGCOLOR=orange> <FONT face= 'verdana' size=2>This year</FONT> </TD>" >> ${HTML}
echo "      <TD BGCOLOR=yellow> <FONT face= 'verdana' size=2>This month</FONT> </TD>" >> ${HTML}
echo "      <TD BGCOLOR=green> <FONT face= 'verdana' size=2>This day</FONT> </TD>" >> ${HTML}
echo "      <TD BGCOLOR=lightblue> <FONT face= 'verdana' size=2>No information</FONT> </TD>" >> ${HTML}
echo "      <TD BGCOLOR=${DASHBOARDASUPCOL}> <FONT face= 'verdana' size=2>DASHBOARDASUPCOL=${DASHBOARDASUPCOL}</FONT> </TD>" >> ${HTML}
echo "    </TR>" >> ${HTML}
echo "  </TABLE>" >> ${HTML}


echo "<TABLE BORDER=0 WIDTH='100%'>" >> ${HTML}
echo "<TR WIDTH=100% > " >> ${HTML}
echo "  <TD bgColor=#0066A1 > " >> ${HTML}
echo "    <FONT COLOR=white face='Verdana' size='1'>" >> ${HTML}
echo "      <CENTER>" >> ${HTML}
echo "Contact: |Content Owner: <A HREF="mailto:Maarten.deBoer@Atos.net">Maarten de Boer</A> |Last Update: `date`|[${PGM} v${VER}]<BR>" >> ${HTML}
echo "For internal use (c) Atos S.A. `date +%Y` all rights reserved. Reproduction in whole or in part is prohibited without the written consent of Atos SA." >> ${HTML}
echo "      </CENTER>" >> ${HTML}
echo "    </FONT>" >> ${HTML}
echo "  </TD>" >> ${HTML}
echo "</TR>" >> ${HTML}
echo "</TABLE>" >> ${HTML}

echo "</BODY>" >> ${HTML}
echo "</HTML>" >> ${HTML}


rm ${TMP}
echo "`date` ${PGM} finished." | tee -a ${LOG}
exit 0

