Webbasierende Email mit Fehler ! - Teil 2

[Michael]

Hallo !

Der letzte Hinweis von Christian Kruse war schon nicht schlecht, jedoch finde ich trotzdem den Fehler nicht bezüglich des Content-Transfer-Encoding der mir statt der Umlaute Hex-Zahlen bringt. Hier das MIME-Modul meines Scripts, vielleicht findet jemand den Fehler !

sub decode_base64 ($)
{
    local($^W) = 0; # unpack("u",...) gives bogus warning in 5.00[123]

my $str = shift;
    my $res = "";

$str =~ tr|A-Za-z0-9+=/||cd;            # remove non-base64 chars
    $str =~ s/=+$//;                        # remove padding
    $str =~ tr|A-Za-z0-9+/| -_|;            # convert to uuencoded format
    while ($str =~ /(.{1,60})/gs) {
        my $len = chr(32 + length($1)*3/4); # compute length byte
        $res .= unpack("u", $len . $1 );    # uudecode
    }
    $res;