[Mimedefang] Eml Attachments

[Nathan Findley]

On 11/18/2011 03:15 PM, Nathan Findley wrote:
>
> 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;
> }
>

This is what I ended up doing:

if (re_match($entity, '\.eml') and ($type eq "message/rfc822")) {
my $inputmsg = "$CWD/NMS";
open FH, ">$inputmsg" or return action_bounce('IO ERROR '.__PACKAGE__.' 
'.__LINE__);
$entity->print(FH);
close FH;
system("/bin/sed -i 1,2d $inputmsg");
}

I am using sed because printing the contents of the entity leaves a 
couple of lines at the top of the resulting file that will cause mail 
readers to not recognize the file as a proper eml. If there is a way to 
immediately write to disk without those two top lines, it would be nice 
to know.

Thanks,
Nate

-- 
システムマネージャー/開発責任者
Zenlok株式会社