Kleine Anpassung: Content-Type und Kodierung hinzufügen

[pl]

hi Jörk,

Mein Webmailer auch. Ob das andere Clients auch können will ich gerade nicht testen. Immerhin müsste man dann die Nachricht dann auch passend encoden - oder irre ich mich?

Nein, Du irrst Dich nicht 😉 Die Nachricht wäre zu encoden. Quoted Printable wird nicht auf Zeichen sondern auf die Oktetten (Bytes) angewandt, das wäre noch zu beachten. Normalerweise liefert CGI.pm auch die Oktetten es sei denn es wurde so eingestellt, daß Zeichen geliefert werden.

Also genau hingucken, wenn Du die entsprechenden Funkionen der zahllos verfügbaren Libraries anwendest.

Untenstehender Funktion ist es egal ob bytes oder Zeichen kommen:

sub quotePrint{
    my $s = shift;
    use bytes;      # Bytesemantics einschalten!
    $s =~ s/=/=3D/g;
    my @qp = map{ $_ > 127 ? sprintf("=%X", $_) : pack("C", $_)  } unpack "C*", $s;
    return join '', @qp;
}

MfG