Script, das mbox durcharbeitet und MIME-Attachments bestimmten Typs kuerzt

Servus!

Ich überlege an einem Script (oder hoffe vielmehr, dass es
schon jemand hat), das folgendes tut:

Es nimmt eine mbox her und geht die Mails der Reihe nach
durch. Bei MIME-Attachments bestimmten Typs (z.B. Image und
application/octet-stream) werden aus der Base64-Kodierung
die zweite bis vorletzte Zeile gelöscht, der Rest aber nicht
angepasst.

Mir ist bewusst, dass das natürlich danach nicht mehr lesbar
ist, aber die Header sollen nicht angefasst werden. Es geht
darum, das Mailarchiv für den Spamfilter deutlich zu
verkleinern; dieser ignoriert diese Attachments, nicht aber
deren Header.

pi
--=20
Attachment? Nein: http://piology.org/ILOVEYOU-Signature-FAQ.html

Re: Script, das mbox durcharbeitet und MIME-Attachments bestimmten Typs kuerzt

Post removed (X-No-Archive: yes)

Re: Script, das mbox durcharbeitet und MIME-Attachments bestimmten Typs kuerzt

Michael Holzt wrote:

>use MIME::Parser;
>
>my $parser =3D new MIME::Parser;
>my $entity =3D $parser->parse_open('1.msg');
>
>for ($part=3D0; $part<$entity->parts; $part++)
>{
> if ( $entity->parts($part)->mime_type eq 'image/png' )
> {
> my $out =3D $entity->parts($part)->open("w");
> $out->close;
> }
>}
>
>print $entity->as_string;

ARGL. Irgendwas ist kaputt:

Character in 'c' format wrapped in pack at
/usr/local/lib/perl5/site_perl/5.8.8/MIME/Field/ParamVal.pm
line 213, line 51.
Character in 'c' format wrapped in pack at
/usr/local/lib/perl5/site_perl/5.8.8/MIME/Field/ParamVal.pm
line 213.
Can't call method "close" on an undefined value at
../mboxrm.pl line 12.


--=20
Attachment? Nein: http://piology.org/ILOVEYOU-Signature-FAQ.html