Listing 1.  Code for handlesurvey.cgi


#! /usr/local/bin/perl
require("cgi-lib.pl");

&ReadParse(*input);

if ($input{'SUBMITWRONG'} eq 'Information is Incorrect') {
   print "Location: http://fly.hiwaay.net/~rcfinch/survey.html\n\n";
}
else {

   open(MAIL, "| mail rcfinch") || die "Can't open mail program\n";

   print MAIL "<TR>\n<TD>\n";
   print MAIL "NAME: $input{'FIRSTNAME'} $input{'LASTNAME'} <BR>\n";
   print MAIL "GENDER: $input{'GENDER'} <BR>\n";
   print MAIL "LOCATION: $input{'CITY'}, $input{'STATE'}, $input{'COUNTRY'} <BR>\n";
   print MAIL "EMAIL ADDRESS: $input{'EMAIL'} <BR>\n";
   print MAIL "SEND INFO: $input{'SENDINFO'} <BR>\n";
   print MAIL "COMPUTER SYSTEM: $input{'SYSTEM'} <BR>\n";
   print MAIL "INTERESTS: $input{'INTERESTS'} <BR>\n";
   print MAIL "COMMENTS: $input{'COMMENTS'} <BR>\n";
   print MAIL "</TD>\n</TR>\n";

   close MAIL;

   print "Location: http://fly.hiwaay.net/~rcfinch/survey/surveythankyou.html\n\n";

}