#!/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; } } # create a new order number open(NUMBER,"/users/ila/web/new/order.txt"); $num = ; close(NUMBER); $num++; # increment order number open(NUM,">/users/ila/web/new/order.txt") || die $!; print NUM "$num"; close(NUM); # 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
gift passes
order submission results
 \;
\n\n"; # form results begin here print "your cvrr gift passes order has been received
\n"; print "#$num
\ \;
\n"; # confirmation print "confirmation will be sent to $formdata{'email_primary'}
\ \;
\n"; # quantities and prices $q10 = $formdata{'q10'}; $q25 = $formdata{'q25'}; $q50 = $formdata{'q50'}; $q100 = $formdata{'q100'}; $p10 = sprintf("%.2f", $formdata{'p10'}); $p25 = sprintf("%.2f", $formdata{'p25'}); $p50 = sprintf("%.2f", $formdata{'p50'}); $p100 = sprintf("%.2f", $formdata{'p100'}); $total = sprintf("%.2f", $formdata{'total'}); print "your order consists of:
\n"; if ($q10 != 0) { print "($q10) 25 cvrr dollar packet(s) at \$9.00 each = \$$p10
\n"; } if ($q25 != 0) { print "($q25) 25 cvrr dollar packet(s) at \$21.25 each = \$$p25
\n"; } if ($q50 != 0) { print "($q50) 25 cvrr dollar packet(s) at \$40.00 each = \$$p50
\n"; } if ($q100 != 0) { print "($q100) 25 cvrr dollar packet(s) at \$75.00 each = \$$p100
\n"; } print "\ \;
your total is \$$total
\n"; # billing information @card = split(//, $formdata{'card_number'}); $partial_card_number = sprintf("**** **** **** %s%s%s%s", $card[12], $card[13], $card[14], $card[15]); print "\ \;
your order will be billed to
\n"; print "$formdata{'name_first'} $formdata{'name_last'}
\n"; print "$partial_card_number - $formdata{'card_type'}
\n"; # shipping information if ($formdata{'ship_where'} eq "pick_up"){ print "\ \;
you may pick up your gift passes at chagrin valley roller rink
\n"; print "your email confirmation must be shown to receive your gift passes
\n"; print "open hours - directions
\n"; } else { print "\ \;
your order will be mailed to:
\n"; if ($formdata{'ship_where'} eq "billing_address"){ print "$formdata{'name_first'} $formdata{'name_last'}
\n"; print "$formdata{'address_street'}
\n"; print "$formdata{'address_city'}, $formdata{'address_state'} \ \;$formdata{'address_zip'}
\n"; } else { print "$formdata{'ship_name_first'} $formdata{'ship_name_last'}
\n"; print "$formdata{'ship_address_street'}
\n"; print "$formdata{'ship_address_city'}, $formdata{'ship_address_state'} \ \;$formdata{'ship_address_zip'}
\n"; } } # thank you print "\ \;
thank you for your order
\n"; # form results end here print "
\ \;
back to cvrr.com
\n"; print "\n"; print ""; # email order confirmation $to = "$formdata{'email_primary'}"; $from = "skate\@cvrr.com"; $subject = "Your order with cvrr.com (#$num)"; if ($formdata{'ship_where'} eq "pick_up") { $shipping = " Your order will not be shipped. Pick up your order at: Chagrin Valley Roller Rink, Inc. 7151 South Main Street Chagrin Falls, OH 44022 Please bring a copy of this email as proof of purchase. Directions: http://www.cvrr.com/maps.htm Open Hours: http://www.cvrr.com/hours/index.htm"; } if ($formdata{'ship_where'} eq "new_ship_address") { $shipping = " $formdata{'ship_name_first'} $formdata{'ship_name_last'} $formdata{'ship_address_street'} $formdata{'ship_address_city'}, $formdata{'ship_address_state'} $formdata{'ship_address_zip'}"; } if ($formdata{'ship_where'} eq "billing_address") { $shipping = " $formdata{'name_first'} $formdata{'name_last'} $formdata{'address_street'} $formdata{'address_city'}, $formdata{'address_state'} $formdata{'address_zip'}"; } if ($q10 == 0) { $items10 = ""; } else { $items10 = " ($q10) 10 cvrr dollar packet(s) at \$9.00 each = \$$p10"; } if ($q25 == 0) { $items25 = ""; } else { $items25 = " ($q25) 25 cvrr dollar packet(s) at \$21.25 each = \$$p25"; } if ($q50 == 0) { $items50 = ""; } else { $items50 = " ($q50) 50 cvrr dollar packet(s) at \$40.00 each = \$$p50"; } if ($q100 == 0) { $items100 = ""; } else { $items100 = " ($q100) 100 cvrr dollar packet(s) at \$75.00 each = \$$p100"; } $content = " Thank you for ordering from www.cvrr.com. Your order number is $num Your purchase information appears below. ------------------------------------------------------- Your purchase reads as follows: E-mail Address: $formdata{'email_primary'} Billing Address: $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'} Items Purchased:$items10$items25$items50$items100 Purchase Total: $total Shipping Address:$shipping ------------------------------------------------------- Thanks again for shopping at 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 secure order $to = "forms\@cvrr.com"; $from = $formdata{'email_primary'}; $subject = "Gift Card Purchase (Secure)"; if ($formdata{'ship_where'} eq "pick_up") { $shipping = " DO NOT SHIP - please print pick-up slip email"; } if ($formdata{'ship_where'} eq "new_ship_address") { $shipping = " $formdata{'ship_name_first'} $formdata{'ship_name_last'} $formdata{'ship_address_street'} $formdata{'ship_address_city'}, $formdata{'ship_address_state'} $formdata{'ship_address_zip'} Primary Phone: $formdata{'ship_phone_primary_1'}-$formdata{'ship_phone_primary_2'}-$formdata{'ship_phone_primary_3'} Secondary Phone: $formdata{'ship_phone_secondary_1'}-$formdata{'ship_phone_secondary_2'}-$formdata{'ship_phone_secondary_3'} Primary Email: $formdata{'ship_email_primary'} Secondary Email: $formdata{'ship_email_secondary'}"; } if ($formdata{'ship_where'} eq "billing_address") { $shipping = " SHIP TO BILLING ADDRESS"; } if ($q10 == 0) { $items10 = ""; } else { $items10 = " ($q10) 10 cvrr dollar packet(s) at \$9.00 each = \$$p10"; } if ($q25 == 0) { $items25 = ""; } else { $items25 = " ($q25) 25 cvrr dollar packet(s) at \$21.25 each = \$$p25"; } if ($q50 == 0) { $items50 = ""; } else { $items50 = " ($q50) 50 cvrr dollar packet(s) at \$40.00 each = \$$p50"; } if ($q100 == 0) { $items100 = ""; } else { $items100 = " ($q100) 100 cvrr dollar packet(s) at \$75.00 each = \$$p100"; } $content = " Order number $num from $formdata{'name_first'} $formdata{'name_last'} Billing Address: $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'} Shipping Address:$shipping Credit Card Information: $formdata{'card_type'} $formdata{'card_number'} verification number $formdata{'verification_number'} expires $formdata{'card_month'}/$formdata{'card_year'} Items Purchased:$items10$items25$items50$items100 Purchase Total: $total "; 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 pickup slip if ($formdata{'ship_where'} eq "pick_up") { $to = "forms\@cvrr.com"; $from = $formdata{'email_primary'}; $subject = "Gift Pass Pick-up Slip (#$num)"; if ($q10 == 0) { $items10 = ""; } else { $items10 = " ($q10) 10 cvrr dollar packet(s) at \$9.00 each = \$$p10"; } if ($q25 == 0) { $items25 = ""; } else { $items25 = " ($q25) 25 cvrr dollar packet(s) at \$21.25 each = \$$p25"; } if ($q50 == 0) { $items50 = ""; } else { $items50 = " ($q50) 50 cvrr dollar packet(s) at \$40.00 each = \$$p50"; } if ($q100 == 0) { $items100 = ""; } else { $items100 = " ($q100) 100 cvrr dollar packet(s) at \$75.00 each = \$$p100"; } $content = " Pick-up Slip Order number $num from $formdata{'name_first'} $formdata{'name_last'} Billing Address: $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'} Items Purchased:$items10$items25$items50$items100 Purchase Total: $total "; 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); }