sub send_confirmation_email
{
my $text = format_email_text(30,50,
                        "Player Name", $player,
                        "Parent's Name", $parent,
                        "Member ID", $memberid,
                        "Email Address", $email,
                        "Camp Date(s)", $dates,
                        "Camp Event", $event,
                        "Street",    $street,
                        "City",     $city,
                        "State",    $state,
                        "Zip Code",   $zip,
                        "Payment Method", $payment,
                        "Message", $message);
my %mail = (
		From 	=> "info\@anywhwere.com",
		To 		=> $email,
		Subject => "Registration",
		Message => ""
);
my $page;

		$mail{Message} = <<EOF;

  
This is the information you submitted.

$text



EOF

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

	return (defined ($page) ? $page : "");
}


##</code><code>##

sub format_email_text {
    my ($name, $val, $out, $nd, $vd);
    $nd = shift; $vd = shift;
    while ($name = shift) {
        $val = shift;
        $out .= sprintf('%-'.$nd.'s %-'.$vd.'s', "$name:", $val) . "\n";
    }
    return $out;
}