Good idea. Here is the block of code:
$message =~ s/<REQUEST>/$requests/i;
$sitecfg{SUBJECT}=~s/<NAME>/$htmlparams{name}/i;
my %mail = (
To => $sitecfg{REMAIL},
From => ($sitecfg{MAILFROM} || $htmlparams{email}),
Subject => ($sitecfg{SUBJECT} || "Data Request"),
Message => $message,
);
$mail{smtp}=[qw(localhost earth.co-ra.com)];
$mail{retries}=$sitecfg{RETRIES};
sendmail(%mail);
Basically, the code reads a message from a configuration file. In the message read are a few tags, such as <REQUEST>. Before this block, the code gathers some data and puts it in the message with the search/replace command. The message text is something like:
Here is the data you requested:\015\012<REQUEST>\015\012Data collected
+ on...
As I mentioned, when the message arrives in my inbox, the CRLF appears in text as "\015\012"
|