[Mimedefang] Eml Attachments

[Nathan Findley]

Hi all,

How would I save an eml attachment on an incoming mail?  Does this look
reasonable on a basic level?

sub filter_multipart ($$$$) {
    my($entity, $fname, $ext, $type) = @_;

    open FH, ">/tmp/copy.eml" or die $!;
    if (re_match($entity, '\.eml') and ($type eq "message/rfc822")) {
      $entity->print_body(FH);
    }
    close FH;
}


Thanks,
Nate