#!/bin/sh

WWWUTIL="/var/lib/WWWutil"
WWWDBS="/var/lib/WWWutil/qdDBs"
WWWDB=$WWWDBS/WWWutil
WWWPROJECT=WWWUTIL

ISPUTIL="/var/lib/ISPutil"
ISPDBS="/var/lib/ISPutil/qdDBs"
USERDB=$ISPDBS/Clients

QBIN="/usr/local/qddb/bin"
QHTML=$QBIN/qhtml
QUERY=$QBIN/query


echo Content-type: text/html
echo

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

if [ -x $QHTML ]; then
  if [ $# = 0 ]; then
    printf "$HEADER" "$TITLE" "$TITLE"
    cat << EOM

    This is a searchable index of users.
    <P>

    <ISINDEX>

    Type a username in your browser's search dialog to
    generate a page about that user.
    <P>
EOM
    printf "$FOOTER"
  else
    user="$1"
    TITLE=$user
    printf "$HEADER" "$TITLE" "$TITLE"
    udata="`$QUERY $USERDB -sep ' ' Company.Contact.Username $user \
		-print Company.Contact.First Company.Contact.Last \
			Company.Contact.ID Company.Contact.UID`"
    $QHTML l $USERDB "$user $udata" | ./userDBinfo.awk
    echo "<P>"
    printf "$FOOTER"
  fi
fi
