#!/usr/bin/perl -Tw use CGI qw(:standard); use strict; use lib qw(/home/brmaster/www/); use CGI::Carp qw(fatalsToBrowser); use CGI qw(:standard escape escapeHTML); use Mail::Sendmail; my ($player, $playerphone, $memberid, $partner, $partnerphone, $email, $section, $level, $street, $city, $state, $zip, $entry, $party, $guests, $payment, $message); $player = param("player"); $playerphone = param("playerphone"); $memberid = param("memberid"); $partner = param("partner"); $partnerphone = param("partnerphone"); $email = param("email"); $section = param("section"); $level = param("level"); $street = param("street"); $city = param("city"); $state = param("state"); $zip = param("zip"); $entry = param("entry"); $party = param("party"); $guests = param("guests"); $message = param("message"); $payment = param("payment"); print header, start_html "\n"; my $choice = param ("choice"); if (($choice eq "Submit") && ($payment eq "Please bill my Bridgemill account")|| ($payment eq "Prefer to mail payment with this form")) { send_confirmation_email (); reg_form_info_page (); send_submit_email (); } elsif (($choice eq "Submit") && ($payment eq "Pay online with credit card")) { send_confirmation_email (); send_submit_email (); paypal_page (); } else { print p ("Logic error, unknown choice: $choice"); } #@ SEND_CONFIRMATION_EMAIL sub send_confirmation_email { my $text; my %mail = ( From => "support\@bridgemilltennis.com", # YOU SHOULD CHANGE THIS! To => $email, Subject => "Registration for Tennis Fest 2005 Submitted", Message => "" ); my $page; $mail{Message} = < $email, To => "support\@bridgemilltennis.com", # YOU SHOULD CHANGE THIS! Subject => "Tennis Fest 2005 Registration Submitted", Message => "" ); my $page; $mail{Message} = < BridgeMill Tennis Club - Power Camp Summer Registration

Tennis Fest 2005 Registration

Confirmation
 
Thank you for registering for the BridgeMill Tennis Fest 2005.  Your registration has been submitted.
 
Please print this page for your records.

If mailing your payment, please print this page and include it with your payment.
 
Player's Name: $player  
Player's Phone Number: $playerphone  
Member ID Number: $memberid  
Email Address: $email  
Partner's Name: $partner  
Partner's Phone Number: $partnerphone  
Section: $section  
Playing Level: $level  
Mailing Address: $street,     $city,      $state,    $zip  
Tournament Entry Fee: $entry  
Outback Steakhouse Player Party: $party  
# of Guests for Player Party: $guests  
Message: $message  
     
Mail Payment to:
BridgeMill Tennis Club
Attn: Mike Perry
1180 BridgeMill Avenue
Canton, GA 30114

Click here to return to the BridgeMill Tennis Club home page.
ENDHTML } #@ REG_FORM_INFO_PAGE #@PAYPAL_PAGE sub paypal_page { print < BridgeMill Tennis Club - Power Camp Summer Registration

Tennis Fest 2005 Registration

Confirmation
 
Thank you for registering for the BridgeMill Tennis Fest 2005.  Your registration has been submitted.
 
Please select your item(s) below and proceed to checkout.  Your registration will be submitted via email.
 

        

Tournament Entry Fee -  Per player: \$29
Outback Steakhouse Party -  1 player: \$8
Outback Steakhouse Party -  2 players: \$16
Guests for Outback Player Party - Per guest:
Enter the # of guests that will be attending:		 \$19
 
   

ENDHTML } #@ PAYPAL_PAGE