#!/bin/csh -f
echo "Content-type: text/html"
echo ""

setenv HD /data/globec

if ( ! -e /data/temp/$REMOTE_HOST ) then
 mkdir /data/temp/$REMOTE_HOST
 cp $HD/htmlsrc/setup/* /data/temp/$REMOTE_HOST
 endif
cd /data/temp/$REMOTE_HOST

set tmp=$PATH_INFO
setenv OBJ $tmp:r
setenv FULLOBJ $OBJ
setenv QS ""
unsetenv PATH_INFO

if ( "$QUERY_STRING" != "" ) then
  setenv QS "`$HD/htmlbin/bin/htmlesc '$QUERY_STRING'`"
  setenv FULLOBJ "$OBJ($QS)"
endif

echo "<h1>$OBJ -- Selection options</h1>"
echo "<h2>Current options - $QS</h2>"

$HD/bin/listvar "$OBJ" > variables

echo "<form action="\""/jg/selopt1${tmp}?${QS}"\"" method="\""POST"\""><h3>Cancel all selections:</h3> Click <input type="\""submit"\""value="\""Here"\""></form><p>"

echo "<h3>Add new selection:</h3><form action="\""/jg/selopt2${tmp}?${QS}"\"" method="\""POST"\""><p>"
echo "Variable: <select name="\""var"\"">"
$HD/htmlbin/bin/nawkscr < variables
echo "</select>"
echo "Operator: <select name="\""op"\"">"
$HD/htmlbin/bin/nawkscr << XXSTUFFXX
=
&lt;
&gt;
&lt;&gt;
&lt;=
&gt;=
XXSTUFFXX
echo "</select>"
echo "Value: <input name="\""val"\"" type="\""text"\"" size="\""5"\"">"
echo "<input type="\""submit"\""value="\""Add selection"\""></form><p>"

echo "<h3>Add new Projection:</h3><form action="\""/jg/selopt3${tmp}?${QS}"\"" method="\""POST"\""><p>"
echo "Variable: <select name="\""var"\"">"
$HD/htmlbin/bin/nawkscr < variables
echo "</select>"
echo "<input type="\""submit"\""value="\""Add projection"\""></form><p>"

echo "<h3>Type selection/projection criterion:</h3><form action="\""/jg/selopt4${tmp}?${QS}"\"" method="\""POST"\""><p>"
echo "<input name="\""sel"\"" type="\""text"\"">"
echo "<input type="\""submit"\""value="\""Replace criterion"\""></form><p>"

echo "<h3>Operations:</h3>"
setenv PATH_INFO $tmp
$HD/htmlbin/otheropt -f