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

echo Content-type: text/html
echo ""
cd /jgofsopt/$REMOTE_HOST
set path=(. /data/globec/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 proj cent_lat cent_lon shift_lat mag grid sym siz`)
echo "$POSTSTR" > mapopt

cat << XXSTUFF > map.var
projection=$POSTSTR[1]
cent_lat=$POSTSTR[2]
cent_lon=$POSTSTR[3]
shift_lat=$POSTSTR[4]
mag=$POSTSTR[5]
XXSTUFF

switch ( "$POSTSTR[7]" )
case "line":
  setenv SYM ""
  breaksw
case "+":
  setenv SYM "-sym 4"
  breaksw
case "x":
  setenv SYM "-sym 6"
  breaksw
case "o":
  setenv SYM "-sym 2"
  breaksw
case "+(connected)":
  setenv SYM "+sym 4"
  breaksw
case "x(connected)":
  setenv SYM "+sym 6"
  breaksw
case "o(connected)":
  setenv SYM "+sym 2"
  breaksw
endsw

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

ch plot.var xmin=-1.4 ymin=-1 xmax=1.4 ymax=1 xvmin=0 yvmin=0 xvmax=100 yvmax=100
rm -f *.gif
pl "map(grid($POSTSTR[6]))" lon lat > tmp.tek
pl "/coast" lon lat >> tmp.tek
setenv LONVAR `listvar "$OBJ" | grep ' *lon'`
pl "map($OBJ)" $LONVAR lat $SYM -siz $POSTSTR[8] >> tmp.tek

$HD/bin/tekgif tmp.tek > temp$TMP.gif
echo \<p\>\<img src=\"/tmp/$REMOTE_HOST/temp$TMP.gif\"\>\<p\>