#!/bin/csh -f

setenv HD /data/globec

echo "Content-type: text/html"
echo ""

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

echo "$PATH_INFO" > pathinfosave
echo "$QUERY_STRING" > querysave

source fullplotopt

#set

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

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

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

cat <<XXSTUFFXX
<h1>Fully specified plot -  $FULLOBJ</h1>

<form action="/jg/bin/dofullplot$OBJ?$QS" method="POST">
If the options below are satisfactory, then just click on <input
type="submit" value="Make Plot">. If you need help on any of the
items, click on the checkbox in front of the line and then click
<input type="submit" value="here">.<p>

<select name="Eraseoption">
XXSTUFFXX
$HD/htmlbin/bin/nawkscr $Eraseoption << XXSTUFFXX
Erase
Add_to_plot
XXSTUFFXX
cat << XXSTUFFXX
</select><p>

<input name="Helparea" type="checkbox">
<b>Graph area</b> (lower-left and upper right corners): 
<input name="View" type="text" value="$View"><p>

<input name="Helpwindow" type="checkbox">
<b>User units</b> (lower-left and upper right corners): 
<input name="Window" type="text" value="$Window"><p>

<input name="Helpxaxis" type="checkbox">
<b>x axis</b> tic label numbering fmt: 
<input name="Xaxis" type="text" value="$Xaxis"><p>

<input name="Helpyaxis" type="checkbox">
<b>y axis</b> tic label numbering fmt: 
<input name="Yaxis" type="text" value="$Yaxis"><p>

Type of plot:<select name="Plottype">
XXSTUFFXX
$HD/htmlbin/bin/nawkscr $Plottype << XXSTUFFXX
Lines
Dashed_lines
Symbol_+
Symbol_x
Symbol_o
Symbol_+_connected
Symbol_x_connected
Symbol_o_connected
XXSTUFFXX
cat << XXSTUFFXX
</select><p>

x variable:<select name="Xvar" size="4">
XXSTUFFXX
$HD/htmlbin/bin/nawkscr $Xvar < variables
cat << XXSTUFFXX
</select>

<select name="Xvaropt">
XXSTUFFXX
$HD/htmlbin/bin/nawkscr $Xvaropt << XXSTUFFXX
Normal
Log
XXSTUFFXX
cat << XXSTUFFXX
</select><p>


y variable:<select name="Yvar" size="4">
XXSTUFFXX
$HD/htmlbin/bin/nawkscr $Yvar < variables
cat << XXSTUFFXX
</select>

<select name="Yvaropt">
XXSTUFFXX
$HD/htmlbin/bin/nawkscr $Yvaropt << XXSTUFFXX
Normal
Log
XXSTUFFXX
cat << XXSTUFFXX
</select><p>

<input name="Helpbreak" type="checkbox">Options for <b>breaking lines</b>:
<select name="Breakopt" size="4">
XXSTUFFXX
$HD/htmlbin/bin/nawkscr $Breakopt << XXSTUFFXX
normal_breaks
no_breaks
XXSTUFFXX
$HD/htmlbin/bin/nawkscr $Breakopt < variables
cat << XXSTUFFXX
</select><p>

<input name="Helptext" type="checkbox">
<b>Text</b> label orientation size location: 
<input name="Text" type="text" value="`echo $Text | sed 's/+/ /g'`"><p>
</form>

<hr>

<form action="/jg/full-show" method="POST">
<input type="submit" value="Show me the plotting script">
</form>
Execute plotting script (paste in from your system)<p>
<form action="/jg/full-script$OBJ?$QS" method="POST">
<input name="script" type="text" size="40,12">
<input name="saveexec" type="submit" value="Save and Exec">
</form>
<form action="/jg/full-oldscript$OBJ?$QS" method="POST">
<input name="execold" type="submit" value="Exec saved script">
</form>
XXSTUFFXX