#!/bin/bash

tsdb_home="/export/apache/virtual/cl-www/docs/tsnlp/tsdb"
tsdb="${tsdb_home}/tsdb"
top="${tsdb_home}/bin/top"
revert="${tsdb_home}/bin/revert"
queries="${tsdb_home}/log/queries"

echo Content-type: text/html
echo

title() {

cat << EOF

  <title>tsdb(1) Query Statistics</title>

  <h1>tsdb(1) Query Statistics</h1><hr>

EOF

} # title()

selection() {

  options=$(/bin/tail -25 $queries | $revert | /bin/sed 's/^/<option>/')
  top=$($top $queries | head -25 | /bin/sed -e 's/^/<option>/' -e 's/@/(/')
  echo "<form action=\"/tsnlp/tsdb/tsdb.cgi\">"
  echo "<b>Most frequent queries (frequency in parentheses):</b><br>"
  echo "<select name="selecta" size=7>"
  echo "$top</select><p>"
  echo "<b>Most recent queries:</b><br>"
  echo "<select name="selectb" size=7>"
  echo "$options</select><p>"
  echo "<input type=\"image\" name=\"copy\" src=\"/tsnlp/tsdb/copy.gif\">"
  echo "<input type=\"image\" name=\"submit\" src=\"/tsnlp/tsdb/submit.gif\">"
  echo "</form>"
  echo "<i>Please note that the current form looks much nicer in "
  echo "NCSA Mosaic than in Netscape.</i>"
} # selection()

options() {
  echo "<hr>"
  echo "<b>[<a href=\"/tsnlp/tsdb/tsdb.cgi\">new query</a>]</b>"
  echo "<b>[<a href=\"/tsnlp/tsdb/samples.html\">sample queries</a>]</b>"
  echo "<b>[<a href=\"/tsnlp/tsdb/tsdb.cgi?-relations\">tsdb(1) relations</a>]</b>"
  echo "<b>[<a href=\"/tsnlp/\">TSNLP home</a>]</b>"
  echo "<b>[<a href=\"/\">CL home</a>]</b>"
} # options()


# ------------------------------------------------------------------------------
# body of `statistics.cgi'
# ------------------------------------------------------------------------------


title
selection
options