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

cat << XXSTUFFXX
Note - if this page is incomplete, try clicking <a href="/jg/cleanplot$PATH_INFO?$QUERY_STRING">here</a>.
XXSTUFFXX

setenv HD jgofsdir

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

set tmp=$PATH_INFO
setenv OBJ $tmp:r
setenv FULLOBJ $OBJ
setenv UQOBJ $OBJ
setenv QS ""
unsetenv PATH_INFO
if ( "$QUERY_STRING" != "" ) then
  setenv QS "`$HD/htmlbin/bin/htmlesc '$QUERY_STRING'`"
  setenv FULLOBJ "$OBJ($QS)"
  setenv UQOBJ "$OBJ($QUERY_STRING)"
endif

set CUROPT=(`cat plotopt`)

echo "<h1>$FULLOBJ -- XY plot options</h1>"

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

echo "If the options below are satisfactory, then just click on <form action="\""/jg/plotxy$OBJ?$QS"\"" method="\""POST"\"">"
echo "<input type="\""submit"\""value="\""Make Plot"\""><p>"

echo "X variable ($CUROPT[1]): <select name="\""xvar"\"" size="\""4"\"">"
$HD/htmlbin/bin/nawkscr $CUROPT[1] < variables
echo "</select><p>"

echo "X options ($CUROPT[2]):  <select name="\""xopt"\"">"
$HD/htmlbin/bin/nawkscr $CUROPT[2] << XXSTUFFXX
none
reverse
log
rev/log
XXSTUFFXX
echo "</select><p>"

echo "Y variable ($CUROPT[3]): <select name="\""yvar"\"" size="\""4"\"">"
$HD/htmlbin/bin/nawkscr $CUROPT[3] < variables
echo "</select><p>"

echo "Y options ($CUROPT[4]):  <select name="\""yopt"\"">"
$HD/htmlbin/bin/nawkscr $CUROPT[4]  << XXSTUFFXX
none
reverse
log
rev/log
XXSTUFFXX
echo "</select><p>"

echo "Symbols ($CUROPT[5]): <select name="\""sym"\"">"
$HD/htmlbin/bin/nawkscr $CUROPT[5] << XXSTUFFXX
line
+
o
x
+(connected)
o(connected)
x(connected)
XXSTUFFXX
echo "</select><p>"

echo "</form>"