http://www.perlmonks.org?node_id=723023

powerhouse has asked for the wisdom of the Perl Monks concerning the following question:

We moved our servers to rackspace, and those servers have plesk, which only uses qmail.

qmail appears to force bare LF checks, and we keep getting this error:

message transmission error (451 See http://pobox.com/~djb/docs/smtplf.html)

Here is the code, in part, we use to generate the email being sent: 
my $_random_boundary = "NextPart_";
my @nums = ( 0 .. 9 );
my @chars = ( "A" .. "Z", "a" .. "z", 0 .. 9, qw() );

$_random_boundary .= join("", @nums[ map { rand @nums } ( 1 .. 3 ) ]);
$_random_boundary .= "_" . join("", @nums[ map { rand @nums } ( 1 .. 4
+ ) ]);
$_random_boundary .= "_" . join("", @chars[ map { rand @chars } ( 1 ..
+ 8 ) ]);
$_random_boundary .= '.' . join("", @chars[ map { rand @chars } ( 1 ..
+ 8 ) ]);

my $__content_type = qq~multipart/alternative;
boundary="----=$_random_boundary"~;
my %mail =
(
    "To"             => "$__to",
    "Subject"         => "$__subject",
    "Content-Type"     => $__content_type,
);
my $_mail_Message = q~
This is a multi-part message in MIME format.


------=~ . $_random_boundary . q~
Content-Type: text/plain;
    charset="US-ASCII"
Content-Transfer-Encoding: 7bit


~ . $__text_message . q~


------=~ . $_random_boundary . q~
Content-Type: text/html;
    charset="US-ASCII"
Content-Transfer-Encoding: quoted-printable


<html>
<body>


~ . $__html_message . q~


</body>
</html>


------=~ . $_random_boundary . q~--
~;

[download]
That is some of the code, the main parts that the email uses...

My question is this... Is there a subroutine I can pass $_mail_Message to that will get rid of the bare LF and convert the bare LF into CR LF?

thx,
Richard

Back to Seekers of Perl Wisdom