chagrin valley roller rink, inc.

#!/usr/bin/perl # parse form input read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($key, $value) = split (/=/, $pair); $key =~ tr/+/ /; $key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~s///g; if ($formdata{$key}) { $formdata{$key} .= ", $value"; } else { $formdata{$key} = $value; } } # begin output print "Content-type: text/html\n\n"; # print header print "\n"; print "\n"; print "chagrin valley roller rink, inc.\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n\n"; # print body print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

chagrin valley roller rink

learning to roll

lessons registration results

\n\n"; # form results begin here # lessons type, date & time if ($formdata{'type'} == 1){ print "thank you for registering for beginner roller skating lessons
\n"; print "your first lesson is on $formdata{'date'} at 12:15pm
\ \;
"; } if ($formdata{'type'} == 2){ print "thank you for registering for beginner in-line skating lessons
\n"; print "your first lesson is on $formdata{'date'} at 11:30am
\ \;
"; } if ($formdata{'type'} == 3){ print "thank you for registering for advanced skating lessons
\n"; print "your first lesson is on $formdata{'date'} at 1:00pm
\ \;
"; } # confirmation print "confirmation will be sent to $formdata{'email_primary'}
\ \;
\n"; # participants print "registered participants include:
\n"; print "$formdata{'part1_name'}
\n"; if ($formdata{'part2_name'} ne "") { print "$formdata{'part2_name'}
\n"; } if ($formdata{'part3_name'} ne "") { print "$formdata{'part3_name'}
\n"; } if ($formdata{'part4_name'} ne "") { print "$formdata{'part4_name'}
\n"; } if ($formdata{'part5_name'} ne "") { print "$formdata{'part5_name'}
\n"; } if ($formdata{'part6_name'} ne "") { print "$formdata{'part6_name'}
\n"; } # thank you print "\ \;
thank you for your registration
\n"; # form results end here print "

\ \;
back to cvrr.com

\n"; print "\n"; print ""; # email order confirmation $to = "$formdata{'email_primary'}"; $from = $formdata{'skate\@cvrr.com'}; if ($formdata{'type'} == 1){ $subject = "thank you for registering for beginner roller skating lessons with cvrr.com"; $lesson = "beginner roller"; $firstime = "12:15pm - 1:00pm"; } if ($formdata{'type'} == 2){ $subject = "thank you for registering for beginner in-line skating lessons with cvrr.com"; $lesson = "beginner in-line"; $firstime = "11:30am - 12:15pm"; } if ($formdata{'type'} == 3){ $subject = "thank you for registering for advanced skating lessons with cvrr.com"; $lesson = "advanced"; $firstime = "1:00pm - 1:30pm"; } if ($formdata{'part6_name'} eq "") { if ($formdata{'part5_name'} eq "") { if ($formdata{'part4_name'} eq "") { if ($formdata{'part3_name'} eq "") { if ($formdata{'part2_name'} eq "") { $participants = "$formdata{'part1_name'}"; } else { $participants = "$formdata{'part1_name'}\n$formdata{'part2_name'}"; } } else { $participants = "$formdata{'part1_name'}\n$formdata{'part2_name'}\n$formdata{'part3_name'}"; } } else { $participants = "$formdata{'part1_name'}\n$formdata{'part2_name'}\n$formdata{'part3_name'}\n$formdata{'part4_name'}"; } } else { $participants = "$formdata{'part1_name'}\n$formdata{'part2_name'}\n$formdata{'part3_name'}\n$formdata{'part4_name'}\n$formdata{'part5_name'}"; } } else { $participants = "$formdata{'part1_name'}\n$formdata{'part2_name'}\n$formdata{'part3_name'}\n$formdata{'part4_name'}\n$formdata{'part5_name'}\n$formdata{'part6_name'}"; } $content = " Thank you for registering for $lesson skating lessons with www.cvrr.com. Your first lesson is on $formdata{'date'} from $firstime. You have schedule for a five consecutive week group. You will be notified of any schedule changes immediately. ------------------------------------------------------- Participants include: $participants Parent, Guardian, or Adult Participant: $formdata{'name_first'} $formdata{'name_last'} $formdata{'address_street'} $formdata{'address_city'}, $formdata{'address_state'} $formdata{'address_zip'} Telephone: $formdata{'phone_primary_1'}-$formdata{'phone_primary_2'}-$formdata{'phone_primary_3'} E-mail: $formdata{'email_primary'} ------------------------------------------------------- Thanks again for skating through www.cvrr.com! "; open(MAIL, "|/usr/lib/sendmail -t") || exit; print MAIL "To: $to\nFrom: $from\n"; print MAIL "Subject: $subject\n"; print MAIL "$content\n"; close(MAIL); # email registration $to = "forms\@cvrr.com"; $from = $formdata{'email_primary'}; if ($formdata{'type'} == 1){ $subject = "Beginner roller lessons registration from $formdata{'name_first'} $formdata{'name_last'}"; $lesson = "Roller Beginner"; $firstime = "12:15pm - 1:00pm"; } if ($formdata{'type'} == 2){ $subject = "Beginner in-line lessons registration from $formdata{'name_first'} $formdata{'name_last'}"; $lesson = "In-line Beginner"; $firstime = "11:30am - 12:15pm"; } if ($formdata{'type'} == 3){ $subject = "Advanced lessons registration from $formdata{'name_first'} $formdata{'name_last'}"; $lesson = "Advanced"; $firstime = "1:00pm - 1:30pm"; } if ($formdata{'part6_name'} eq "") { if ($formdata{'part5_name'} eq "") { if ($formdata{'part4_name'} eq "") { if ($formdata{'part3_name'} eq "") { if ($formdata{'part2_name'} eq "") { $participants = "$formdata{'part1_name'} - $formdata{'part1_age'}"; } else { $participants = "$formdata{'part1_name'} - $formdata{'part1_age'}\n$formdata{'part2_name'} - $formdata{'part2_age'}"; } } else { $participants = "$formdata{'part1_name'} - $formdata{'part1_age'}\n$formdata{'part2_name'} - $formdata{'part2_age'}\n$formdata{'part3_name'} - $formdata{'part3_age'}"; } } else { $participants = "$formdata{'part1_name'} - $formdata{'part1_age'}\n$formdata{'part2_name'} - $formdata{'part2_age'}\n$formdata{'part3_name'} - $formdata{'part3_age'}\n$formdata{'part4_name'} - $formdata{'part4_age'}"; } } else { $participants = "$formdata{'part1_name'} - $formdata{'part1_age'}\n$formdata{'part2_name'} - $formdata{'part2_age'}\n$formdata{'part3_name'} - $formdata{'part3_age'}\n$formdata{'part4_name'} - $formdata{'part4_age'}\n$formdata{'part5_name'} - $formdata{'part5_age'}"; } } else { $participants = "$formdata{'part1_name'} - $formdata{'part1_age'}\n$formdata{'part2_name'} - $formdata{'part2_age'}\n$formdata{'part3_name'} - $formdata{'part3_age'}\n$formdata{'part4_name'} - $formdata{'part4_age'}\n$formdata{'part5_name'} - $formdata{'part5_age'}\n$formdata{'part6_name'} - $formdata{'part6_age'}"; } $content = " $lesson Registration - $formdata{'date'} Participants Include: $participants Parent, Guardian or Adult Participant Information: $formdata{'name_first'} $formdata{'name_last'} $formdata{'address_street'} $formdata{'address_city'}, $formdata{'address_state'} $formdata{'address_zip'} Primary Phone: $formdata{'phone_primary_1'}-$formdata{'phone_primary_2'}-$formdata{'phone_primary_3'} Secondary Phone: $formdata{'phone_secondary_1'}-$formdata{'phone_secondary_2'}-$formdata{'phone_secondary_3'} Primary Email: $formdata{'email_primary'} Secondary Email: $formdata{'email_secondary'} "; open(MAIL, "|/usr/lib/sendmail -t") || exit; print MAIL "To: $to\nFrom: $from\n"; print MAIL "Subject: $subject\n"; print MAIL "$content\n"; close(MAIL);