Hello,

I'm using this code:
Code:
sub mailadd{
   $member_address_in = shift || $in{'address'};
   open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";
   print MAIL "From: $admin_email\n";
   print MAIL "To: $member_address_in\n";
   print MAIL "Subject: Newsletter - Confirmation\n\n";
   print MAIL <<to_the_end;
You subscribed to $list_name.
Best regards
to_the_end

  close (MAIL);

if ($sendto eq "1") {
open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";
   print MAIL "From: $admin_email\n";
   print MAIL "To: $admin_email\n";
   print MAIL "Subject: Mailing List Entry\n\n";
   print MAIL <<to_the_end;
$in{'address'} has been added to the $list_name.

to_the_end

  close (MAIL);
}
}
The problem is inside this piece of code:
Code:
if ($sendto eq "1") {
open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";
   print MAIL "From: $admin_email\n";
   print MAIL "To: $admin_email\n";
   print MAIL "Subject: Mailing List Entry\n\n";
   print MAIL <<to_the_end;
$in{'address'} has been added to the $list_name.

to_the_end

  close (MAIL);
}
It sends me an e-mail at each new follower.
I receive the mails with the following text: has been added to the newsletter.
So, $list_name is passed but the value of $in{'address'} is missing, where am I wrong ?

Do you have an idea ?
Thank you for your help.

Gino