#!/usr/bin/perl
#note-the above line calls the perl compiler on web4students
#A program to evaluate and store multiple guest books
#Raymond J. Kimball
#written 7/18/02
#print "Content-type: text/html \n\n";
#print "File Found!
";
require 'cgi-lib.pl';
&ReadParse;
#assign variables
$Gender=$in{'Gender'};
$LastName = $in{'LastName'};
$FirstName = $in{'FirstName'};
$Password = $in{'Password'};
$State = $in{'State'};
$Courses = $in{'Courses'};
$Comments = $in{'Comments'};
#send back a response to the user
print "Content-type: text/html \n\n";
print " Thanks for selecting your courses";
print "";
print "Thank you $FirstName $LastName
I appreciate your visiting my pages.
";
print "I hope you found them worthwhile, and will visit ";
print "again soon.
";
print "";
#copy info to a file
open(LogFile, >>"../RKBook.txt");
print (LogFile "$Gender, $LastName, $FirstName, $Password, $State, $Courses, $Comments\n");
close(LogFile);