Attachments abtrennen

[Andre Tann]

Moin,

Am 18.11.2016 um 14:52 schrieb sebastian at debianfan.de:
> Bitte :-)

Hier ist das Skript, was ich mir mal zurechtgelegt habe:

    #!/usr/bin/perl -w
    use strict;
    use MIME::Parser;
    use constant MAX_ATT_SIZE => 510*1024;
    my $parser = new MIME::Parser;
    $parser->output_to_core(1);
    $parser->ignore_errors(1);
    my $msg = eval { $parser->parse(\*STDIN) };
    if($@) { $parser->filer->purge(); die $@; }
    $msg->head->delete('Lines');
    my @keep = grep { $_->effective_type() =~ "^text/"
                        && length($_->as_string) < MAX_ATT_SIZE
                      } $msg->parts();
    $msg->parts(\@keep);
    $msg->sync_headers(Length=>'COMPUTE');
    $msg->print();
    $parser->filer->purge();

Hier wird ab einer bestimmten Größe (4. Zeile) das Attachment
abgeschnitten. Sollte aber nicht schwierig sein, das Attachment irgendwo
zu speichern, anstatt es zu verwerfen.


-- 
Andre Tann