Perl/cgi szabványos email header

Szkriptek: Python, Perl, Bash, ...

Üdv.

Olyan kérdésem lenne, hogy hogyan lehetne szabványos email fejlécet kreálni mondjuk MIME::Lite -al.
Van-e erre valami kész megoldás esetleg.
A probléma az, hogy bizonyos levelező szerver dobja az emailt a "helytelen" fejléc miatt.
MIME::Lite -on kívül természetesen más módszer is szóba jöhet, lényeg a szabványosság.
Ezzel kapcsolatban innen kiindulva olvasgattam: http://tools.ietf.org/html/rfc5335, http://cr.yp.to/immhf.html
Az email TEXT és HTML is lehet, ennek megfelelő a Content-Type is.
(A karakterkódolás UTF-8 mindkét esetben.)

Ötleteket, javaslatokat előre is köszönöm.

  • 1448 megtekintés

( andrewjsi | 2009. 02. 05., cs – 14:38 )

Szia, egy javaslat:

Ez egy levelet küld ki, amiben van body, van PDF csatolmány. Nekünk még nem dobta vissza egy mailerdaemon sem.


use Mail::Sender;

my $mail = new Mail::Sender({
smtp => 'localhost',
#debug => 'debug.log',
headers => "X-Valtozo: Ertek",
});

die $Mail::Sender::Error unless (ref $mail);

my $mailfile = $mail->MailFile({
from => $from,
to => $to,
#replyto => $replyto,
subject => $subject,
b_type => 'text/plain',
b_charset => 'ISO-8859-2',
b_encoding => "base64",
msg => $body,
file => $attachment,
ctype => "application/pdf",
encoding => "base64",
});

die $Mail::Sender::Error unless (ref $mailfile);

undef $mailfile;
$mail->Close;
undef $mail;