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}";

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 "$message\n\nSubmitter's Email Address : $your_email";

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

Thank you

webgurl

I made another error and can see this code duplicates itself.

This is how it is :

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;
}
}


Thanks!

Please view here: http://webco.net.au/test.txt