.<  File::Temp::tempfile("discl_temp_${mail_id}_XXXXX", SUFFIX => '.txt',
.<                       DIR => $Amavis::Conf::helpers_home);


.>  File::Temp::tempfile("discl_temp_${mail_id}_XXXXX", SUFFIX => '.txt',
.>                       DIR => $Amavis::Conf::helpers_home, UNLINK => 1);

If you want deletion of temporary files before the process terminates,
it can be done explicitly in a hook such as mail_done(), just make sure
the $filename variable is visible there.

sub mail_done {
  my($self,$conn,$msginfo) = @_;
  if (defined $filename) {
    unlink($filename) or die "Can't remove $filename: $!";
  }
}


Mark

------------------------------------------------------------------------------
Download Intel&#174; Parallel Studio Eval
Try the new software tools for yourself. Speed compiling, find bugs
proactively, and fine-tune applications for parallel performance.
See why Intel Parallel Studio got high marks during beta.
http://p.sf.net/sfu/intel-sw-dev
_______________________________________________
AMaViS-user mailing list
AMaViS-user@lists.sourceforge.net 
https://lists.sourceforge.net/lists/listinfo/amavis-user 
 AMaViS-FAQ:http://www.amavis.org/amavis-faq.php3 
 AMaViS-HowTos:http://www.amavis.org/howto/ 

Reply via email to