Hi,
I retrieve the body of my message from an Oracle 8i LONGRAW column, the data being a text file previously inserted using the
<input type="file"> form element.
I'm then using a perl script to send the content via MIME::Lite:
$dbh->{LongReadLen} = 256 * 1024;
($body) = $dbh->selectrow_array("select content from $dtab where name
+= '$name'");
$body =~ s/\r/\n/g;
I then print out the body...
open (OF, ">body.txt");
print OF $body;
close (OF);
I have all the details for sending the message, but it arrives without newlines as one loong message.
$msg = MIME::Lite->new(
From => $from,
To => $to,
Subject => $subject,
Type => 'text/html',
Data => qq{ $body }
);
MIME::Lite->send('smtp', 'smtpsvr.net, Timeout=>240);
$msg->send();
I've tried most char substitions on $body such as:
s/\cM/\n/
s/\r\n/\n/
only
s/\r/\n/ has any effect and only on the data written to the filehandle. Otherwise the body content is just one long string, no carriage returns!
Strange one, perhaps the Monks can help?
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.