RE: MIME Attachment Extractor

[Punto]

I have 1 question: if the e-mail has only 1 part (the body of the msg), the .doc file is created, @parts is empty, and the file never gets deleted on the "for $part (@parts)" loop. Is there a way to get the name of the file when there are no attachments?

[Punto]

I got it! :)
Instead of using:

$content .= $body->as_string if defined $body;

I do:

if (defined $body) {
   $content .= $body->as_string;
   $filename = $body->path;
   unlink($filename);
};

and it works fine.. Thanks..

[httptech]

Yes, the bodies are always saved with the prefix "msg-" (unless you override it). So you can just unlink anything that starts with that prefix to clean out the message bodies.

[Punto]

What if while I'm deleting, another program is creating a file, and it's not done with it yet? The module Mime::Parse may lock the file, but then the sub open the file..