secondly I see in the SA code that in order to get one per array
element you have to use split /^/ the documentation for
get_pristine_header doesn't appear to be correct.
secondly why must I remove the blank line myself?
$header = $mail->get_pristine_header;
# remove the last new line
$header =~ s/\s$//g;
just how reliable is this going to be?
my $header = $check_mail->get_pristine_header;
$header =~ s/\s$//g;
$header .= "\cJ";
my @header = split /^/m, $header;
my $body = $check_mail->get_pristine_body;
my @body = split /^/m, $body;
push @header, "X-Accept-Flag: Sender in Whitelist\n";
my @lines;
push @lines, @header, "\n", @body;
On Jul 19, 2006, at 12:09 AM, Robert Nicholson wrote:
If i'm suppose to get back one header per element why do I get back
the following?
that is not one header per element is it?
DB<3> x @header
0 "Status: R\cJX-Status: \cJX-Keywords:\cJFrom: \"Suphannika\" <ann
[EMAIL PROTECTED]>\cJTo: \"Robert Nicholson\" <[EMAIL PROTECTED]>
\cJSubject: want to AOL?\cJDate: Sat, 1 Jul 2000 06:31:21 -0700
\cJMIME-Version: 1.0\cJContent-Type: text/html;\cJ\cIcharset=
\"iso-8859-1\"\cJContent-Transfer-Encoding: quoted-printable\cJX-
Priority: 3\cJX-MSMail-Priority: Normal\cJX-MimeOLE: Produced By
Microsoft MimeOLE V6.00.2600.0000\cJ\cJ"