help needed with $message part of CGI script

[webgurl]

I have a file upload script that sends you an email if someone uploads to your server. I
need to track who the uploaded files belong to and so I have a created a field in my form
named your_email. I want to be able to see their email address in the message part of the
email.

Here is part of the script:

sub send_mail {
my ($from_email, $from_name, $to_email, $to_name, $subject, $message ) = @_;

if(open(MAIL, "|$CONFIG{mailprogram} -t")) {
print MAIL "From: $from_email ($from_name)\n";
print MAIL "To: $to_email ($to_name)\n";
print MAIL "Subject: $subject\n";
print MAIL "$message\n\nSubmitter's IP Address : $ENV{REMOTE_ADDR}\n";
#### print MAIL Submitter's Email Address : $your_email"; ######
close MAIL;
return(1);
} else {
return;
}
}


As I am not a coder (obviously), I tried what I thought would be the code to use without
success.

print MAIL Submitter's Email Address : $your_email";

I really would appreciate any help with this one line of code. From your help I can then
add more fields if necessary.

Thank you

[Easywebdev]

You are missing a double quote.

print MAIL Submitter's Email Address : $your_email";

print MAIL "Submitter's Email Address : $your_email";

You may have to escape that single quote as well
print MAIL "Submitter\'s Email Address : $your_email";

Hth. Eamonn.

[webgurl]

Yes that I know - it was a typo and with the other double quote, it still does not work.

Here is the script here: http://webco.net.au/test.txt

Thanks to anyone who has a look for me!

[Easywebdev]

The subroutine send_mail has TWO declerations of it. Only the last will be used and it is not using the $your_mail variable.

#################################################################### 

#################################################################### 


sub send_mail {
my ($from_email, $from_name, $to_email, $to_name, $subject, $message ) = @_;

if(open(MAIL, "|$CONFIG{mailprogram} -t")) {
print MAIL "From: $from_email ($from_name)\n";
print MAIL "To: $to_email ($to_name)\n";
print MAIL "Subject: $subject\n";
print MAIL "$message\n\nSubmitter's IP Address : $ENV{REMOTE_ADDR}\nSubmitter's Email Address : $your_email\n";
close MAIL;
return(1);
} else {
return;
}
}

sub send_mail {
	my ($from_email, $from_name, $to_email, $to_name, $subject, $message ) = @_;
	
	if(open(MAIL, "|$CONFIG{mailprogram} -t")) {
		print MAIL "From: $from_email ($from_name)\n";
		print MAIL "To: $to_email ($to_name)\n";
		print MAIL "Subject: $subject\n";
		print MAIL "$message\n\nSubmitter's IP Address : $ENV{REMOTE_ADDR}";
		close MAIL;
		return(1);
	} else {
		return;
	}
}

#################################################################### 

####################################################################

Delete the second sub send_mail block.