Do not understand this message.

[hcb310]

Hello:

I'm running a script and the script runs successfully but it comes with a strange message. This is the message:

Click here to return to the BridgeMill Tennis Club home pFri Apr 29 06:41:15 2005 festregister1.cgi: Use of uninitialized value in concatenation (.) or string at /home/brmaster/www/cgi-bin/festregister1.cgi line 113. age.

The line should read: Click here to return to the BridgeMil Tennis Club home page.

I scrolled down my script to line 113 and I can't for the life of me figure it out. The funny thing is that I'm not trying to doing concatentation in this script.

Can someone take a look at my script and help me out?

Thank you in advance. Here's the script (this is not the whole script - it is too long):

#!/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 a
+ccount")|| ($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 c
+ard"))
{
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 SHOU
+LD CHANGE THIS!
To => $email,
Subject => "Registration for Tennis Fest 2005 Submitted",
Message => ""
);
my $page;

$mail{Message} = <<EOF;
Thank you for registering for the BridgeMill Tennis Fest 2005.

This is the information you submitted.

Player's Name: $player
Player's Phone Number: $playerphone
Member ID: $memberid
Email Address: $email
Partner's Name: $partner
Partner's Phone: $partnerphone
Section: $section
Playing Level: $level
Mailing Address: $street, $city, $state, $zip
Tournament Entry Fee: $entry
Outback Steakhouse Player Party: $party
Number of Guests for Outback Steakhouse Player Party: $guests
Payment: $payment


Message: $message


EOF

sendmail (%mail)
or $page .= p (escapeHTML ("Oops, failure sending mail to $mai
+l{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 CHA
+NGE THIS!
Subject => "Tennis Fest 2005 Registration Submitted",
Message => ""
);
my $page;


//this is line 113
$mail{Message} = <<EOF;


The following player, $player, has submitted the BridgeMill Tennis Fes
+t 2005 registration form.

Player's Name: $player
Player's Phone Number: $playerphone
Member ID: $memberid
Email Address: $email
Partner's Name: $partner
Partner's Phone: $partnerphone
Section: $section
Playing Level: $level
Mailing Address: $street, $city, $state, $zip
Tournament Entry Fee: $entry
Outback Steakhouse Player Party: $party
Number of Guests for Outback Steakhouse Player Party: $guests
Payment: $payment


Message: $message

EOF

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

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

[Nedals]

To => "support\@bridgemilltennis.com", # YOU SHOULD CHA
+NGE THIS!

Looks like you downloaded this script from some where.
line: 113... This should be on one line.