#!/usr/bin/ksh
################################################################

SSHUSER="s45x"
HMCMACH="dallphmc01"

echo "<P><TABLE Border=\"1\">"
ssh ${SSHUSER}@${HMCMACH} lssyscfg -r sys -F name |
while read -- LINE
do

  echo "<P>"
  echo "  <TR>"
  echo "    <TH>unit_phys_loc</TH>"
  echo "    <TH>bus_id</TH>"
  echo "    <TH>phys_loc</TH>"
  echo "    <TH>description</TH>"
  echo "    <TH>lpar_name</TH>"
  echo "    <TH>lpar_id</TH>"
  echo "  </TR>"
  echo "</P>"

  ssh ${SSHUSER}@${HMCMACH} lshwres -m "${LINE}" -r io --rsubtype slot \
    -F unit_phys_loc,bus_id,phys_loc,lpar_name,lpar_id,description |
    sort -n |
    while IFS="," read -- unit_phys_loc bus_id phys_loc lpar_name lpar_id description JUNK
    do
      echo "<P>"
      echo "  <TR>"
      echo "    <TD>${unit_phys_loc}</TD>"
      echo "    <TD>${bus_id}</TD>"
      echo "    <TD>${phys_loc}</TD>"
      echo "    <TD>${description}</TD>"
      echo "    <TD>${lpar_name}</TD>"
      echo "    <TD>${lpar_id}</TD>"
      echo "  </TR>"
      echo "</P>"
    done
done

echo "</TABLE></P>"