#!/usr/local/bin/perl
# $Header: /cys/people/brenner/http/docs/web/RCS/simple-form.cgi,v 1.4 1996/03/29 22:07:56 brenner Exp $
# Copyright (C) 1994 Steven E. Brenner
# This is a small demonstration script to demonstrate the use of 
# the cgi-lib.pl library

require "cgi-lib.pl";

$HD="/data/globec/htmlbin/";

MAIN:
{

  # Read in all the variables set by the form
  &ReadParse(*input);
  $newparams="";
  foreach (split("\0", $input{'var'})) {
     $newparams.="$_".",";
  }
  chop($newparams);
  if ($ENV{'QUERY_STRING'}) {
    $ENV{'QUERY_STRING'} .= ","."$newparams";
  } else {
    $ENV{'QUERY_STRING'} = "$newparams";
  }
  system("$HD/selopt");
}