#!/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, $parent, $memberid, $phone, $email, $dates, $event, $street, $city, $state, $zip, $payment, $message);

$player = param("player");
$parent = param("parent");
$memberid = param("memberid");
$phone = param("phone");
$email = param("email");
$dates = param("dates");
$event = param("event");
$street = param("street");
$city = param("city");
$state = param("state");
$zip = param("zip");
$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 %mail = (
		From 	=> "support\@bridgemilltennis.com",        # YOU SHOULD CHANGE THIS!
		To 		=> $email,
		Subject => "Registration for Power Tennis Summer Camp Submitted",
		Message => ""
);
my $page;

		$mail{Message} = <<EOF;
Thank you for registering for the BridgeMill Power Tennis Summer Camp.
  
This is the information you submitted.

Player's Name:  $player
Parent's Name: $parent
Telephone: $phone
Email Address: $email
Camp Date(s): $dates
Event: $event
Street:  $street
City: $city
State:  $state
Zip Code:  $zip
Method of Payment:  $payment

Message:  $message


EOF

	sendmail (%mail)
		or $page .= p (escapeHTML ("Oops, failure sending mail to $mail{To}"));

	return (defined ($page) ? $page : "");
}
#@ SEND_CONFIRMATION_EMAIL



#@ SEND_SUBMIT_EMAIL
sub send_submit_email
{
my %mail = (
		From 	=> $email,
		To 	=> "support\@bridgemilltennis.com",	# YOU SHOULD CHANGE THIS!
		Subject => "Power Tennis Summer Camp Registration Submitted",
		Message => ""
);
my $page;

		$mail{Message} = <<EOF;

The following player, $player, has submitted the Power Tennis Summer Camp registration form.

Player's Name:  $player
Parent's Name: $parent
Telephone: $phone
Email Address: $email
Camp Date(s): $dates
Event: $event
Street:  $street
City: $city
State:  $state
Zip Code:  $zip
Method of Payment:  $payment

Message:  $message

EOF

	sendmail (%mail)
		or $page .= p (escapeHTML ("Oops, failure sending mail to $mail{To}"));

	return (defined ($page) ? $page : "");
}
#@ SEND_SUBMIT_EMAIL