Mail::Sender - Umlaute und Kopfzeilen (gelöst) - #165817 (Fragen zu Perl-Modulen)

MarkusH

2013-02-15 12:51

User since
2012-04-08
161 Artikel
BenutzerIn
[default_avatar]

2013-02-14T16:56:53 GwenDragon
X-Mailer:
Code (perl): (dl )
1
2
$Mail::Sender::NO_X_MAILER = 1;
$Mail::Sender::SITE_HEADERS = 'Blah Mailer/0.8.15';

Ich hab die Doku mehrmals nach "X-Mailer" durchsucht, bin aber offenbar immer an der Variable vorbeigesprungen. Danke!

2013-02-14T16:56:53 GwenDragon
Was die Umlaute anbelangt:
Code (perl): (dl )
1
2
3
4
use MIME::QuotedPrint qw(encode_qp);
use Encode qw(encode);

$subject = encode_qp(encode("UTF-8", $subject));

Für die Zeichenfolge "Neue Dateien für PLM-Produkte verfügbar" enthält

Code (perl): (dl )

$subject = "Neue Dateien f=C3=83=C2=BCrPLM-Produkte verf=C3=83=C2=BCgbar="

Eine richtige Anzeige erhalte ich aber nur mit

Code (perl): (dl )

$subject = "=?utf-8?Q?Neue Dateien f=C3=BCr PLM-Produkte verf=C3=BCgbar?="

Da sich der Betreff nicht ändert, habe ich das jetzt so eingebaut.

$q =~ /(bb|[^b]{2})/