my $email = populateEmail("test");
print $email;

open(SENDMAIL, "|/usr/lib/sendmail -oi -t -i") or print "cannot open
SENDMAIL: $!";
print SENDMAIL <<"EOF";
From: <[EMAIL PROTECTED]>
To:${email}
Subject: [SUSTAINING TICKET] Case
Content-type: text/html
        testing..
EOF
        close(SENDMAIL);


When i a using the above code it results in "No recipient address
found in header" and when i replace ${email} with "[EMAIL PROTECTED]"
ie

To : [EMAIL PROTECTED] it works fine.

populateEmail function's code is available below:

populateEmail {
      if(lc($_[0]) eq "test") {
             return ("[EMAIL PROTECTED]");
      }
}

Can anyone spot the bug?


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to