#!/bin/sh

ISPUTIL="/var/lib/ISPutil"
ISPDBS="/var/lib/ISPutil/qdDBs"
USERDB=$ISPDBS/Clients
WWWUTIL="/var/lib/WWWutil"
WWWDBS="/var/lib/WWWutil/qdDBs"
WWWDB=$WWWDBS/WWWutil
QBIN="/usr/local/qddb/bin"


QHTML=$QBIN/qhtml
QUERY=$QBIN/query


if [ "$WWWPROJECT" = "" ]; then
   WWWPROJECT="WWWutil"
fi

  HEADER="`$QUERY $WWWDB -sep ' ' Name $WWWPROJECT -print Header`"
  FOOTER="`$QUERY $WWWDB -sep ' ' Name $WWWPROJECT -print Footer`"


echo Content-type: text/html
echo

if [ -z $REMOTE_USER ]; then
  t="Function requires logged-in user"
  printf "$HEADER" "$t" "$t"
  echo "This routine only works if you are first logged"
  echo "in on the server, because otherwise I have no idea"
  echo "which user to display!"
else
  if [ -x $QHTML ]; then
#    UHEADER="`$QUERY $USERDB -sep ' ' \
#		Company.Contact.Username $REMOTE_USER \
#		-print Company.Contact.WebProject.Header`"
#    if [ "$UHEADER" != "" ]; then
#      HEADER=$UHEADER
#    fi
#    UFOOTER="`$QUERY $USERDB -sep ' ' \
#		Company.Contact.Username $REMOTE_USER \
#		-print Company.Contact.WebProject.Footer`"
#    if [ "$UFOOTER" != "" ]; then
#      FOOTER=$UFOOTER
#    fi
    user="$REMOTE_USER"
    printf "$HEADER" $REMOTE_USER $REMOTE_USER
    udata="`$QUERY $USERDB -sep ' ' Company.Contact.Username $REMOTE_USER \
		-print Company.Contact.First Company.Contact.Last \
			Company.Contact.ID Company.Contact.UID`"
    $QHTML l $USERDB "${REMOTE_USER} $udata" | ./userDBinfo.awk
    echo "<P>"
    printf "$FOOTER"
  fi
fi
