[Rt-commit] r12553 - in rt/branches/3.8-TESTING: .

[alexmv at bestpractical.com]

Author: alexmv
Date: Tue May 20 12:58:35 2008
New Revision: 12553

Modified:
   rt/branches/3.8-TESTING/   (props changed)
   rt/branches/3.8-TESTING/lib/RT/EmailParser.pm

Log:
 r31985 at kohr-ah:  chmrr | 2008-05-20 12:58:18 -0400
  * Use $RT::VarPath as the root for tempdirs, in case /tmp isn't writable


Modified: rt/branches/3.8-TESTING/lib/RT/EmailParser.pm
==============================================================================
--- rt/branches/3.8-TESTING/lib/RT/EmailParser.pm	(original)
+++ rt/branches/3.8-TESTING/lib/RT/EmailParser.pm	Tue May 20 12:58:35 2008
@@ -472,9 +472,10 @@
     my $self   = shift;
     my $parser = shift;
     
-    # Set up output directory for files:
-
-    my $tmpdir = File::Temp::tempdir( TMPDIR => 1, CLEANUP => 1 );
+    # Set up output directory for files; we use $RT::VarPath instead
+    # of File::Spec->tmpdir (e.g., /tmp) beacuse it isn't always
+    # writable.
+    my $tmpdir = File::Temp::tempdir( DIR => $RT::VarPath, CLEANUP => 1 );
     push ( @{ $self->{'AttachmentDirs'} }, $tmpdir );
     $parser->output_dir($tmpdir);
     $parser->filer->ignore_filename(1);