#!/usr/local/bin/perl
require "cgi-lib.pl";
&ReadParse;
print "Content-type: text/html\n\n";
print "
";
if ($in{"house"}&&$in{"name"}&&$in{"email"})
{
open (OUT, ">>profiles.txt");
print OUT $in{"name"},",",$in{"email"},",",$in{"bday"},",",$in{"house"},"\n";
close OUT;
print "Database Update Successful\n
Your profile update form has been entered into the database.";
print "
Please allow 3-4 days for the changes to be implemented.
";
print "";
}
else
{
print "Database Update Unsuccessful\nThere was an error in your profile update form.";
print "
You didn't specify your name, e-mail address and/or your house. Try again.
";
print "