#!/usr/local/bin/perl
require 'subparseform.lib';
&Parse_Form;
print "Content-type: text/html\n\n";
$firstname = $formdata{'firstName'};
$lastname = $formdata{'lastName'};
$email = $formdata{'email'};
$major = $formdata{'major'};
$year = $formdata{'year'};
$experience = $formdata{'experience'};
$employer = $formdata{'employer'};
$presdate = $formdata{'presdate'};
$prestopic = $formdata{'prestopic'};
$color = $formdata{'color'};
$bearcatID = $formdata{'bearcatID'};
print "<html><head><title>Interesting Page</title></head>";
print "<body>";
print "<p>First Name: $firstname</p>";
open(PAGE, ">>../$bearcatID.html");
print PAGE "<HTML><HEAD><TITLE>" . $firstname . "'s Homepage</TITLE></HEAD>";
print PAGE "<body bgcolor = $color>";
print PAGE "<h3>Welcome to " . $firstname . "'s Home Page!</h3><br>";
print PAGE "Full Name: $firstname $lastname <br>";
print PAGE "E-mail: <a href = \"mailto:$email\">$email</a><br>";
print PAGE "Major: $major<br>";
print PAGE "year: $year<br>";
print PAGE "Presentation Date: $presdate<br>";
print PAGE "Presentation Topic: $prestopic<br>";
print PAGE "</body></html>";
close(PAGE);
chmod (0755, "../$bearcatID.html");
open(BLJPAGE, ">>../classlist.html");
print BLJPAGE "<a href=\"http://homepages.uc.edu/~jonesbr/" .
$bearcatID
. ".html\">";
print BLJPAGE $firstname . " " . $lastname;
print BLJPAGE "</a><br>";
close(BLJPAGE);
open(CPAGE, ">>../classdata/$bearcatID.html");
print CPAGE "<HTML><HEAD><TITLE>" . $firstname . "'s Homepage</TITLE></HEAD>";
print CPAGE "<body>";
print CPAGE "<h3>Welcome to " . $firstname . "'s Home Page!</h3><br>";
print CPAGE "Full Name: $firstname $lastname <br>";
print CPAGE "E-mail: <a href = \"mailto:$email\">$email</a><br>";
print CPAGE "Major: $major<br>";
print CPAGE "year: $year<br>";
print CPAGE "Presentation Date: $presdate<br>";
print CPAGE "Presentation Topic: $prestopic<br>";
print CPAGE "Employer: $employer Experience $experience";
print CPAGE "</body></html>";
close(CPAGE);
$contents = "$firstname has registered.";
open (MAIL, "|/usr/sbin/sendmail -t");
print MAIL "To: jonesbl\@one.net\n $email\n";
print MAIL "From: $email\n";
print MAIL "Subject: $bearcatID\n";
print MAIL "$contents\n";
close(MAIL);
print "<br>Your page is complete! ";
print "Click <a href=\"http://homepages.uc.edu/~jonesbr/" .
$bearcatID .
".html\">Here</a> to see it.";
print "</body></head>";