#!/bin/csh -f
setenv HD /data/globec/htmlbin

echo Content-type: text/html
echo ""
cd /jgofsopt/$REMOTE_HOST
set path=(. /data/globec/jg/bin $path)

set tmp=$PATH_INFO
setenv OBJ $tmp:r
unsetenv PATH_INFO
if ( "$QUERY_STRING" != "" ) then
  setenv OBJ "$OBJ($QUERY_STRING)"
endif

set POSTSTR=(`$HD/bin/poststring xvar xopt yvar yopt sym`)
echo "$POSTSTR" > plotopt

switch ( "$POSTSTR[2]" )
case "none":
  setenv XOPT ""
  breaksw
case "reverse":
  setenv XOPT "-r"
  breaksw
case "log":
  setenv XOPT "-l"
  breaksw
case "rev/log":
  setenv XOPT "-r -l"
  breaksw
endsw
switch ( "$POSTSTR[4]" )
case "none":
  setenv YOPT ""
  breaksw
case "reverse":
  setenv YOPT "-r"
  breaksw
case "log":
  setenv YOPT "-l"
  breaksw
case "rev/log":
  setenv YOPT "-r -l"
  breaksw
endsw
switch ( "$POSTSTR[5]" )
case "line":
  setenv SYM ""
  breaksw
case "+":
  setenv SYM "-siz 3 -sym 4"
  breaksw
case "x":
  setenv SYM "-siz 3 -sym 6"
  breaksw
case "o":
  setenv SYM "-siz 3 -sym 2"
  breaksw
case "+(connected)":
  setenv SYM "-siz 3 +sym 4"
  breaksw
case "x(connected)":
  setenv SYM "-siz 3 +sym 6"
  breaksw
case "o(connected)":
  setenv SYM "-siz 3 +sym 2"
  breaksw
endsw

setenv TMP `date '+%H%M%S'`

ch plot.var xvmin=15 yvmin=15 xvmax=85 yvmax=85
rm -f *.gif
p "$OBJ" $XOPT $POSTSTR[1] $YOPT $POSTSTR[3] $SYM | $HD/bin/tekgif > temp$TMP.gif
echo \<p\>\<img src=\"/jgofsopt/$REMOTE_HOST/temp$TMP.gif\"\>\<p\>