Modified: freeswitch/trunk/contrib/sathieu/email2pdf/email2pdf (15773 => 15774)

--- freeswitch/trunk/contrib/sathieu/email2pdf/email2pdf	2009-12-03 15:55:34 UTC (rev 15773)
+++ freeswitch/trunk/contrib/sathieu/email2pdf/email2pdf	2009-12-03 16:39:45 UTC (rev 15774)
@@ -159,7 +159,7 @@
 			my $suffix = $mime_driver[0][0];
 			my $command = $mime_driver[0][1];
 			my ($fh_in, $filename_in) = tempfile( DIR => $output_dir, SUFFIX => $suffix );
-			system("chmod +r $filename_in");
+			system("chmod ugo+r $filename_in");
 			print { $fh_in } $raw;
 			close $fh_in or warn $! ? "Error closing sort pipe: $!" : "Exit status $? from sort";
 			$command =~ s/FILE/$filename_in/;
@@ -260,7 +260,7 @@
 # =========================================================================== #
 # setup temp dir
 $output_dir = tempdir( CLEANUP => 1 );
-system("chmod +rwx $output_dir");
+system("chmod ugo+rwx $output_dir");
 
 # load mail
 if($file_in eq "-") {