#!/usr/bin/perl
$SIG{'PIPE'} = 'IGNORE';
$SENDMAIL = '/usr/sbin/sendmail';
$toaddr = 'patti@mit.edu';
#$toaddr = 'hrose@ckdhr.com';
#$toaddr = 'KSINCUSA@aol.com';
$subject = 'MIT Masters Registration';
#%arealabels=(flow=>"Flow Meters",'pressure'=>"Pressure Regulators",
# 'ratio'=>"Ratio Regulators",'gassol'=>"Gas Solonoid Valves",
# 'airsol'=>"Air Solonoid Valves",
# 'pressureswitch'=>"Pressure Switches",'flame'=>"Flame Management",
# 'pulse'=>"Pulse Control",'gastrains'=>"Gas Trains Pre Assembled",
# 'control'=>"Control Panels",'pilotburn'=>"Pilot Burners",
# 'directfire'=>"Direct Fired Burners",
# 'radiant'=>"Radiant Tube Burners",
# 'modulargas'=>"Modular Gas Trains");
@thelanes=(lane1,lane2,lane3,lane4,lane5,lane6,varies,dontswim);
%lanelabels=(lane1=>"Lane 1",lane2=>"Lane 2",lane3=>"Lane 3",lane4=>"Lane 4",lane5=>"Lane 5",lane6=>"Lane 6",varies=>"It Varies",dontswim=>"I don't swim with MIT Masters");
#%industrylabels = (one=>"Select One",ag=>"Agriculture",
# aut=>"Automotive",cer=>Ceramic,
# food=>"Food Processing",heat=>"Heat Treatment",
# nonfe=>"Non Ferrous",steel=>"Steel");
#BEGIN {
# unshift(@INC,'/u2/www/users/rtsi/CGI.pm-2.31');
#}
use CGI qw(:standard);
print header;
if (param(senddata)) {
# mail the data
# normally we'd use Mail::Send, but it's not installed
open(SENDMAIL,"|$SENDMAIL -t") || die "can't sendmail";
print SENDMAIL ("To: $toaddr\n",
"Subject: $subject\n",
"\n",
"Name: ",param(name),"\n",
"Address: ",param(address),"\n",
"City/State/ZIP: ", param(city), ", ", param(state), " ",
param(zip),"\n",
"Home Phone: ",param(homephone),"\n",
"Work Phone: ",param(workphone),"\n",
"E-Mail Address: ",param(emailaddr),"\n",
"Lane: ",$lanelabels{param(lanenumber)},"\n",
"Add to Mailing List? ",param(addme),"\n"
);
close SENDMAIL;
print "";
print "Thanks!";
print '';
print "Thanks!
";
print "
";
print "Your information has been forwarded.";
print ("Your information was:
",
strong("Name: "),param(name),"
",
strong("Address: "),param(address),"
",
strong("City, State, ZIP: "),
param(city), ", ", param(state), " ", param(zip),"
",
strong("Home Phone: "),param(homephone),"
",
strong("Work Phone: "),param(workphone),"
",
strong("Lane: "),$lanelabels{param(lanenumber)},"
",
strong("Add Me to Mailing List? "),param(addme),"
",
);
print "
";
print 'MIT Masters Swimming Homepage';
print "
";
} else {
print "";
print "MIT Masters Swimming Registration";
print '';
print "Current MIT Masters Swimmers, send in your information!
";
print "
";
print startform();
print "";
print strong("Name: ");
print textfield (-name=>name,-size=>40,-maxlength=>80);
print "
";
print strong("Address: ");
print textfield (-name=>address,-size=>30,-maxlength=>80);
print "
";
print strong("City: ");
print textfield (-name=>city,-size=>15,-maxlength=>30);
print strong("State: ");
print textfield (-name=>state,-size=>10,-maxlength=>20);
print strong("Zip: ");
print textfield (-name=>zip,-size=>7,-maxlength=>15);
print "
";
print strong("Home Phone: ");
print textfield (-name=>homephone, -size=>15, -maxlength=>20);
print "
";
print strong("Work Phone: ");
print textfield (-name=>workphone, -size=>15, -maxlength=>20);
print "
";
print strong("Email address: ");
print textfield (-name=>emailaddr, -size=>25, -maxlengthf=>45);
print "
";
print ("What lane do you typically swim in?
",
popup_menu (-name=>lanenumber, -values=>\@thelanes,
-default=>dontswim,-labels=>\%lanelabels));
print "
";
print "Check Here if you want to be added to the MIT Masters e-mail mailing list (very low traffic):
";
print radio_group(-name=>addme,-values=>['Yes','No']);
print "
";
print submit(-name=>senddata,-value=>"Send Your Information");
print endform();
print "
";
}