elsif (($name{'bogusfield'}) && ($name{'bogusfield'}) ne ' ') {
	  print <h3>"Thank you. Your request has been submitted."</h3>;
	  exit ();
      }
##</code><code>##

sub parse_form {

   if ($ENV{'REQUEST_METHOD'} eq 'GET') {
      # Split the name-value pairs
      @pairs = split(/&/, $ENV{'QUERY_STRING'});
   }
   elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
      # Get the input
      read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
 
      # Split the name-value pairs
      @pairs = split(/&/, $buffer);
   }
   else {
      &error('request_method');
   }

   foreach $pair (@pairs) {
      ($name, $value) = split(/=/, $pair);
 
      $name =~ tr/+/ /;
      $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

      $value =~ tr/+/ /;
      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

      # If they try to include server side includes, erase them, so they
      # aren't a security risk if the html gets returned.  Another 
      # security hole plugged up.

      $value =~ s/<!--(.|\n)*-->//g;

      # Create two associative arrays here.  One is a configuration array
      # which includes all fields that this form recognizes.  The other
      # is for fields which the form does not recognize and will report 
      # back to the user in the html return page and the e-mail message.
      # Also determine required fields.

         

      if ($name eq 'recipient' ||
	    $name eq 'subject' ||
	    $name eq 'email' ||
	    $name eq 'realname' ||
	    $name eq 'redirect' ||
	    $name eq 'bgcolor' ||
	    $name eq 'background' ||
	    $name eq 'link_color' ||
	    $name eq 'vlink_color' ||
            $name eq 'text_color' ||
   	    $name eq 'alink_color' ||
	    $name eq 'title' ||
	    $name eq 'sort' ||
	    $name eq 'print_config' ||
	    $name eq 'return_link_title' ||
	    $name eq 'return_link_url' && ($value)) {
         
	    $CONFIG{$name} = $value;
      }

      elsif (($name{'bogusfield}) && ($name{'bogusfield'}) ne ' ') {
	  print <h3>"Thank you. Your request has been submitted."</h3>;
	  exit ();
      }      
  
      elsif ($name eq 'required') {
         @required = split(/,/,$value);
      }
      elsif ($name eq 'env_report') {
         @env_report = split(/,/,$value);
      }

      else {
         if ($FORM{$name} && ($value)) {
	    $FORM{$name} = "$FORM{$name}, $value";
	   }
         elsif ($value) {
            $FORM{$name} = $value;
         }
      }
   }
}