#!/bin/sh


WWWLOGDIR="/usr/local/roxen/logs/public"
WWWLOGNAME="Log"

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

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

GREP=/usr/bin/grep

echo Content-type: text/html
echo

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

hostname=`hostname`

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

    This is a form for searching the Webserver access log.
    <P>

    <ISINDEX>

    Type the word to search for in your browser's search dialog to
    view all Webserver log records containing that word.
    <P>
EOM
    printf "$FOOTER"
  else
    str="$*"
    printf "$HEADER" "$TITLE: $str" "$TITLE: $str"
    echo "<PRE>"
    $GREP "$str" $WWWLOGDIR/$WWWLOGNAME
    echo "</PRE>"
    echo "<P>"
    printf "$FOOTER"
  fi
fi
