Unreaded variable value - Help to find the mistake

[Gino]

Hello,

I'm using this 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:

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

[FishMonger]

Where are you assigning $in{'address'}?

You need to add some debugging statements starting from that point (where you assigned the value) to see what's wrong.

[Gino]

Originally Posted by FishMonger

Where are you assigning $in{'address'}?

You need to add some debugging statements starting from that point (where you assigned the value) to see what's wrong.

I found a workaround and I use now

$member_address_in has been added to the $list_name

instead of

$in{'address'} has been added to the $list_name

Thanks anyway for your help

Best regards