Viewing Thread:
"Emailing form data using PERL"

Can someone please tell me how I get my PERL script to work following the recent security changes? Here are the relevant lines of the script:

([email protected] is a Freeola address)




$mailprog = '/usr/sbin/sendmail';
$youmail = "sales\@mysite.com";

open (MAIL, "|$mailprog $youmail") || die "Can't open $mailprog!\n";
print MAIL ("Reply-To: $replyto\n");
print MAIL ("To: $youmail\n");
print MAIL ("From: sales\@mysite.com\n");
print MAIL ("Subject: $subject\n\n");



Thanks!

Have there been any changes since, folks? I just cannot get the thing to work...

$mailprog='/usr/sbin/sendmail -t -f my@freeola_email_address';
$to='[email protected]';
$from= 'my@freeola_email_address';
open(MAIL, "|$mailprog") || die "Can't open $mailprog!n";

etc etc


Anyone spot anything wrong?

Steve



Reg Stevens wrote:
> I had the same problem, following the Freeola changes.
>
> You can keep your script, it looks fine. You just need to
> change the $mailprog line to:-
>
> $mailprog = '/usr/sbin/sendmail -t -f
> [email protected]';
>
> Then it should work.

Yes, that worked.

Thanks for you help!

I had the same problem, following the Freeola changes.

You can keep your script, it looks fine. You just need to change the $mailprog line to:-

$mailprog = '/usr/sbin/sendmail -t -f [email protected]';

Then it should work.

No, that gives a 500 error.

Try this code:


$mailprog = '/usr/sbin/sendmail';
$youmail = "sales\@mysite.com";

open (MAIL, "|$mailprog -f $youmail") || die "Can't open $mailprog!\n";
print MAIL ("Reply-To: $replyto\n");
print MAIL ("To: $youmail\n");
print MAIL ("From: sales\@mysite.com\n");
print MAIL ("Subject: $subject\n\n");


Can someone please tell me how I get my PERL script to work following the recent security changes? Here are the relevant lines of the script:

([email protected] is a Freeola address)




$mailprog = '/usr/sbin/sendmail';
$youmail = "sales\@mysite.com";

open (MAIL, "|$mailprog $youmail") || die "Can't open $mailprog!\n";
print MAIL ("Reply-To: $replyto\n");
print MAIL ("To: $youmail\n");
print MAIL ("From: sales\@mysite.com\n");
print MAIL ("Subject: $subject\n\n");



Thanks!