#!/bin/sh
# $Id: bis-status 8979 2010-04-19 18:55:14Z FrederickH $

echo "Content-type: text/html; charset=iso-8859-1"
echo ""

echo "<html>"
echo "<head>"
echo "  <title>BIS Status</title>"
echo "</head>"
echo ""

echo "<body>"

eval `echo $QUERY_STRING"&" | sed -e 's/'"'"'/%27/g' | \
      awk 'BEGIN{RS="&";FS="="}
        $1~/^[a-zA-Z][a-zA-Z0-9_]*$/ {printf "QS_%s=%c%s%c\n",$1,39,$2,39}' `

QS_sessions=${QS_sessions:-${QS_session}}
QS_sessions=${QS_sessions:-${QS_sess}}
QS_sessions=${QS_sessions:-${QS_ses}}
QS_sessions=${QS_sessions:-}

if [ -n "${QS_sessions}" ]; then
    echo "<h1>BIS session ${QS_sessions}:</h1>"
    echo ""
else
    echo "<h1>BIS sessions:</h1>"
    echo ""
fi

xbisctl --cgi sessions ${QS_sessions}

if [ -n "${QS_debug+debug}" ]; then
    echo "<h1>Server variables:</h1>"
    echo "SERVER_SOFTWARE = $SERVER_SOFTWARE<br/>"
    echo "SERVER_NAME = $SERVER_NAME<br/>"
    echo "GATEWAY_INTERFACE = $GATEWAY_INTERFACE<br/>"
    echo "SERVER_PROTOCOL = $SERVER_PROTOCOL<br/>"
    echo "SERVER_PORT = $SERVER_PORT<br/>"
    echo "REQUEST_METHOD = $REQUEST_METHOD<br/>"
    echo "HTTP_ACCEPT = $HTTP_ACCEPT<br/>"
    echo "PATH_INFO = $PATH_INFO<br/>"
    echo "PATH_TRANSLATED = $PATH_TRANSLATED<br/>"
    echo "QUERY_STRING = $QUERY_STRING<br/>"
    echo "SCRIPT_NAME = $SCRIPT_NAME<br/>"
    echo "REMOTE_HOST = $REMOTE_HOST<br/>"
    echo "REMOTE_ADDR = $REMOTE_ADDR<br/>"
    echo "REMOTE_USER = $REMOTE_USER<br/>"
    echo "AUTH_TYPE = $AUTH_TYPE<br/>"
    echo "CONTENT_TYPE = $CONTENT_TYPE<br/>"
    echo "CONTENT_LENGTH = $CONTENT_LENGTH<br/>"
fi

echo ""
echo "<p><a href=\"${SCRIPT_NAME}${QUERY_STRING:+?}$QUERY_STRING\">Update</a></p>"

echo "</body>"
