#!/bin/sh
#FILENAME: papiani-new-gbis2.query 02/JUN/95
                                      # Generic WWW root.

########## SET UP VARIABLES ###############################

WWW_ROOT=/netlib/parkbench/gbis
HTTP_WWW_ROOT=http://www.netlib.org/parkbench/gbis

GENESIS_DIRS=/pcsg/ftp/pub/benchmark_results/
PLOT_ROOT=/pcsg/ftp/pub/benchmark_results
FTP=ftp://cs.utk.edu/pub/benchmark_results

TAIL=/usr/ucb/tail

CGI=/usr/local/netlib/bin/cgi-bin/gbis
HTTP_CGI=http://www.netlib.org/cgi-bin/gbis

PSTOGIF=$WWW_ROOT/bin/pstogif
PSTOXBM=$WWW_ROOT/bin/pstoxbm

GNUPLOT=/local/gnu/bin/gnuplot


LD_LIBRARY_PATH=/usr/local/X11R5/lib ; export LD_LIBRARY_PATH

######## The following paths are set relative to those above

HOME=$WWW_ROOT ; export HOME

TEMP=$WWW_ROOT/tmp
HTTP_TEMP=$HTTP_WWW_ROOT/tmp

ICONS=$HTTP_WWW_ROOT/gif_icons
GBIS_TOP=$HTTP_WWW_ROOT/html

##########END VARIABLES ####################################

ERRORFILE=$TEMP/gbis.query.err
exec 2>$ERRORFILE

 

PIDFILE=$$                              #create a unique file name using PID
                                        #use as stem for other o/p files


CHANGE=$CGI/papiani-new-gbis-change.script

DEFAULT=$CGI/papiani-new-gbis-default.script


PLOTLIST=$TEMP/$PIDFILE.tmp
touch $PLOTLIST
chmod ugo=rw $PLOTLIST
PLOTLIST1=$TEMP/$PIDFILE.files
touch $PLOTLIST1
chmod ugo=rw $PLOTLIST1

exec 2>$ERRORFILE


#
#	Set path to just /bin to reduce likelyhood of hacking.
#
PATH='/bin'

#
#	Write reply header.
#
echo "Content-type: text/html"
echo ""


#
#                o sed removes any ' that would upset quoted assignment
#
#                o awk ensures that 
#                       - all variables passed have legal names
#                       - special characters are not interpreted by sh
#

QUERY_STRING=`echo $QUERY_STRING|sed 's/+/_/g'`


  eval `echo $PREFIX$QUERY_STRING | sed -e 's/'"'"'/%27/g' | sed -e s/'+'/'_'/ | \
        awk 'BEGIN{RS="&";FS="="} $1~/^[a-zA-Z][a-zA-Z0-9_]*$/ \
        {printf "if [ $QS_%s ]; then QS_%s=$QS_%s%c, %s%c; else QS_%s=%c%s%c; fi; \n",  \
        $1,$1,$1,39,$2,39,$1,39,$2,39}' `




if [ $QS_DATA_1_  ]
then
	echo $QS_DATA_1_ >>$PLOTLIST
fi

if [ $QS_DATA_2_ ]
then	
	echo $QS_DATA_2_ >>$PLOTLIST
fi
	
if [ $QS_DATA_3_ ]
then  
        echo $QS_DATA_3_ >>$PLOTLIST
fi

if [ $QS_DATA_4_ ]
then
        echo $QS_DATA_4_ >>$PLOTLIST 
fi
 
if [ $QS_DATA_5_ ]
then
        echo $QS_DATA_5_ >>$PLOTLIST  
fi

if [ $QS_DATA_6_ ]
then
        echo $QS_DATA_6_ >>$PLOTLIST  
fi


if [ $QS_DATA_7_ ]
then
        echo $QS_DATA_7_ >>$PLOTLIST  
fi

if [ $QS_DATA_8_ ]
then
        echo $QS_DATA_8_ >>$PLOTLIST  
fi

if [ $QS_DATA_9_ ]
then
        echo $QS_DATA_9_ >>$PLOTLIST  
fi

if [ $QS_DATA_10_ ]
then
        echo $QS_DATA_10_ >>$PLOTLIST  
fi

if [ $QS_DATA_11_ ]
then
        echo $QS_DATA_11_ >>$PLOTLIST  
fi

if [ $QS_DATA_12_ ]
then
        echo $QS_DATA_12_ >>$PLOTLIST  
fi

if [ $QS_DATA_13_ ]
then
        echo $QS_DATA_13_ >>$PLOTLIST  
fi

if [ $QS_DATA_14_ ]
then
        echo $QS_DATA_14_ >>$PLOTLIST  
fi

if [ $QS_DATA_15_ ]
then
        echo $QS_DATA_15_ >>$PLOTLIST  
fi

if [ $QS_DATA_16_ ]
then
        echo $QS_DATA_16_ >>$PLOTLIST  
fi

if [ $QS_DATA_17_ ]
then
        echo $QS_DATA_17_ >>$PLOTLIST  
fi

if [ $QS_DATA_18_ ]
then
        echo $QS_DATA_18_ >>$PLOTLIST  
fi

if [ $QS_DATA_19_ ]
then
        echo $QS_DATA_19_ >>$PLOTLIST  
fi

if [ $QS_DATA_20_ ]
then
        echo $QS_DATA_20_ >>$PLOTLIST  
fi

if [ $QS_DATA_21_ ]
then
        echo $QS_DATA_21_ >>$PLOTLIST  
fi

if [ $QS_DATA_22_ ]
then
        echo $QS_DATA_22_ >>$PLOTLIST  
fi

if [ $QS_DATA_23_ ]
then
        echo $QS_DATA_23_ >>$PLOTLIST  
fi

if [ $QS_DATA_24_ ]
then
        echo $QS_DATA_24_ >>$PLOTLIST  
fi

if [ $QS_DATA_25_ ]
then
        echo $QS_DATA_25_ >>$PLOTLIST  
fi

if [ $QS_DATA_26_ ]
then
        echo $QS_DATA_26_ >>$PLOTLIST  
fi

if [ $QS_DATA_27_ ]
then
        echo $QS_DATA_27_ >>$PLOTLIST  
fi

if [ $QS_DATA_28_ ]
then
        echo $QS_DATA_28_ >>$PLOTLIST  
fi

if [ $QS_DATA_29_ ]
then
        echo $QS_DATA_29_ >>$PLOTLIST  
fi

if [ $QS_DATA_30_ ]
then
        echo $QS_DATA_30_ >>$PLOTLIST  
fi

if [ $QS_DATA_31_ ]
then
        echo $QS_DATA_31_ >>$PLOTLIST  
fi

if [ $QS_DATA_32_ ]
then
        echo $QS_DATA_32_ >>$PLOTLIST  
fi

if [ $QS_DATA_33_ ]
then
        echo $QS_DATA_33_ >>$PLOTLIST  
fi

if [ $QS_DATA_34_ ]
then
        echo $QS_DATA_34_ >>$PLOTLIST  
fi

if [ $QS_DATA_35_ ]
then
        echo $QS_DATA_35_ >>$PLOTLIST  
fi

if [ $QS_DATA_36_ ]
then
        echo $QS_DATA_36_ >>$PLOTLIST  
fi

if [ $QS_DATA_37_ ]
then
        echo $QS_DATA_37_ >>$PLOTLIST  
fi

if [ $QS_DATA_38_ ]
then
        echo $QS_DATA_38_ >>$PLOTLIST  
fi

if [ $QS_DATA_39_ ]
then
        echo $QS_DATA_39_ >>$PLOTLIST  
fi

if [ $QS_DATA_40_ ]
then
        echo $QS_DATA_40_ >>$PLOTLIST  
fi

if [ $QS_DATA_41_ ]
then
        echo $QS_DATA_41_ >>$PLOTLIST  
fi

if [ $QS_DATA_42_ ]
then
        echo $QS_DATA_42_ >>$PLOTLIST  
fi

if [ $QS_DATA_43_ ]
then
        echo $QS_DATA_43_ >>$PLOTLIST  
fi

if [ $QS_DATA_44_ ]
then
        echo $QS_DATA_44_ >>$PLOTLIST  
fi

if [ $QS_DATA_45_ ]
then
        echo $QS_DATA_45_ >>$PLOTLIST  
fi

if [ $QS_DATA_46_ ]
then
        echo $QS_DATA_46_ >>$PLOTLIST  
fi

if [ $QS_DATA_47_ ]
then
        echo $QS_DATA_47_ >>$PLOTLIST  
fi

if [ $QS_DATA_48_ ]
then
        echo $QS_DATA_48_ >>$PLOTLIST  
fi

if [ $QS_DATA_49_ ]
then
        echo $QS_DATA_49_ >>$PLOTLIST  
fi

if [ $QS_DATA_50_ ]
then
        echo $QS_DATA_50_ >>$PLOTLIST  
fi






if [  -s $PLOTLIST ]
then

	sed "s/%2F/\//g" $PLOTLIST >> $PLOTLIST1


	rm $PLOTLIST


	if [ $QS_FORMAT ]
	then

		if [ $QS_FORMAT = 'DEFAULT' ]
		then
	
			$DEFAULT $PIDFILE

		else

			$CHANGE $PIDFILE

		fi

	else
                        $DEFAULT $PIDFILE
	fi


else




	cat << HTML

	<HTML>
	<HEAD>
	<TITLE>Southampton HPC Centre - GBIS - Error No Machine</TITLE>
	</HEAD>

	<BODY>
<!--
img src="$ICONS/HpccBig.gif"ALT="University of Southampton High Performance Computing Centre"
-->
	<HR>
	<h1>GRAPHICAL BENCHMARK INFORMATION SERVICE (GBIS)
	</h1>
	<HR>

	<BR> 
	<BR> 
  	<h2>GBIS ERROR
	</h2>
	<BR>
	<BR>
	You must select at least one machine from the list of
	available data
	<BR>
	<BR>
        <BR>
	<BR>
        <BR>
	


<A HREF="$GBIS_TOP/papiani-new-gbis-top.html">
<IMG ALT="UP" src="$ICONS/up.gif">
</A> to GBIS Home Page
<HR>      
<ADDRESS>                      
<STRONG><IMG ALIGN=TOP SRC="$ICONS/DolphinSmall.gif" ALT="">
<A HREF="http://www.soton.ac.uk/UofS.html">University of Southampton</A>
<BR><A HREF="http://hpcc.soton.ac.uk/homepage.html">High Performance Computing Centre</A></STRONG><p>
Submitted by <A HREF="http://hpcc.soton.ac.uk/Staff/ECS/mp.html">Mark Papiani</A>, <BR>
last updated 24 February 1994.
</ADDRESS>
</BODY>
</HTML>
	   
HTML


fi