#!/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

TAIL=/usr/bin/tail
SED=/usr/bin/sed

echo Content-type: text/html
echo

HEADER="`$QUERY $WWWDB -sep ' ' Name $WWWPROJECT -print Header`"
FOOTER="`$QUERY $WWWDB -sep ' ' Name $WWWPROJECT -print Footer`"
TITLE="View Webserver \"$WWWLOGNAME\" log"

hostname=`hostname`

if [ -z "$1" ]; then
  targhost=$hostname
else
  targhost="$1"
fi
if [ -x $TAIL ]; then
  if [ $# = 0 ]; then
    printf "$HEADER" "$TITLE" "$TITLE"
    cat <<-EOM

    This is a form for viewing the $WWWLOGNAME log of a host on the local
    network. 
    <P>

    <ISINDEX>

    Type the hostname in your browser's search dialog to
    view the $WWWLOGNAME log of that host.
    <P>
EOM
    printf "$FOOTER"
  else
    printf "$HEADER" "$TITLE at $targhost" "$TITLE at $targhost"
    echo "<PRE>"
    if [ "$targhost" = "$hostname" ]; then
      $TAIL -250 $WWWLOGDIR/$WWWLOGNAME
    else
      rsh "$targhost" $TAIL -250 $WWWLOGDIR/$WWWLOGNAME
    fi
    echo "</PRE>"
    echo "<P>"
    printf "$FOOTER"
  fi
fi
