my $parser = MIME::Parser->new();
- # Setup output directory for files. from RT::EmailParser::_SetupMIMEParser
- if ( my $AttachmentDir =
- eval { File::Temp::tempdir( TMPDIR => 1, CLEANUP => 1 ) } )
- {
-
- # Set up output directory for files:
- $parser->output_dir("$AttachmentDir");
- }
- else {
- $RT::Logger->error("Couldn't write attachments to temp dir on disk. using more memory and processor.");
# On some situations TMPDIR is non-writable. sad but true.
$parser->output_to_core(1);
$parser->tmp_to_core(1);
- }
#If someone includes a message, don't extract it
$parser->extract_nested_messages(1);
}
# }}}
+
1;