#!/usr/local/bin/perl

use CGI qw(:cgi-bin :all);
$CGI::POST_MAX=1024 * 25; 
$query = new CGI;


print header;

$name = $query->param("uname");
$institution = $query->param("institution");
$street = $query->param("street");
$city =$query->param("city");
$state =$query->param("state");
$zip =$query->param("zip");
$phone =$query->param("phone");
$address =$query->param("address");
$fax =$query->param("fax");
$email =$query->param("email");
print "<br> NAME $name";
print "<br> PHONE $phone";
print "<br> ADDRESS $address";
print "<br> EMAIL $email";

$postersize = param("postersize");

$studententry = param("studententry");
$PresentationTitle = param("PresentationTitle");
$PresDescription = param("PresDescription");
$copresenters = param("copresenters");
$Ethernet = param("Ethernet");
$Ethernet = param("Wireless");
$sgi = param("sgi");
$Own = param("Own");
$DisplayMonitor = param("DisplayMonitor");
$OtherRequirements = param("OtherRequirements");

sub Mailing{

$mailprog = "/usr/lib/sendmail -t";
open (DUMP, '>>reg.log');
$query->save(DUMP);
open (MAIL, "|$mailprog $email, ahmposters") or die "can't open
$mailprog!\n";
print MAIL "To: $email, ahmposters\n";
print MAIL "Reply-to: mgannis\n";
print MAIL "Subject: AHM2002 Poster Reg - $firstname\n";

print MAIL "AHM2002 Poster Reg\n";
print MAIL "\n";

print MAIL "Name: $firstname\n";
print MAIL "Email Address: $email\n";
print MAIL "Phone Number: $phone\n";
print MAIL "Institution: $institution\n";
print MAIL "Street Address: $street\n";
print MAIL "City: $city\n";
print MAIL "State: $state\n";
print MAIL "Zip Code: $zip\n";
print MAIL "Fax Number: $fax\n";
print MAIL "\n";
print MAIL "Poster Size: $postersize\n";
print MAIL "\n";

print MAIL "Student Entry: $studententry\n";
print MAIL "Presentation Title: $PresentationTitle\n";
print MAIL "Presentation Desc: $PresDescription\n";
print MAIL "Co-Presenters: $copresenters\n";
print MAIL "\n";
print MAIL "10baseT Ethernet: $Ethernet\n";
print MAIL "Wireless network: $Wireless\n";
print MAIL "SGI: $sgi\n";
print MAIL "Your own desktop or laptop computer: $Own\n";
print MAIL "Display monitor: $DisplayMonitor\n";
print MAIL "\n";
print MAIL "Other Requirements: $OtherRequirements\n";

print MAIL "\n";

close(MAIL);
}

#&Mailing();
open(TEST,">>foo");
print TEST "$name\n";
print TEST "$phone\n";
print TEST "$address\n";
print TEST "$email\n";
close(TEST);

print start_html(-TITLE=>"Thank you"),
p("Thank you. You will receive a request confirmation via email. "),
a({href =>'index.html'}, "Return to the AHM2002 Home Page");

print end_html;

exit;