#!/bin/sh

QDDBS="/var/lib/qdDBs"
UNITDB=$QDDBS/Units
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
    t="WebCiv: $REMOTE_USER: Units Controlled"
    printf "$HEADER" "$t" "$t"
    $QHTML l $UNITDB $REMOTE_USER
    echo "<P>"
    printf "$FOOTER"
  fi
fi
