Luis Daniel,
Try the following approach:
package Amavis::Custom;
use strict;
use File::Temp ();
BEGIN {
import Amavis::Conf qw(:platform :confvars c cr ca $myhostname);
import Amavis::Util qw(do_log untaint min max);
}
sub dynamic_altermime_disclaimer {
my($class,$conn,$msginfo) = @_;
my($log_id) = $msginfo->log_id; # log ID string, e.g. '48262-21-2'
my($mail_id) = $msginfo->mail_id; # long-term unique id, e.g. 'yxqmZgS+M09R'
my($sender) = $msginfo->sender; # envelope sender address, e.g. '[email protected]'
my($mail_size) = $msginfo->msg_size; # mail size in bytes
my($fh, $filename) =
File::Temp::tempfile("discl_temp_${mail_id}_XXXXX", SUFFIX => '.txt',
DIR => $Amavis::Conf::helpers_home);
$fh->print(<<"EOD") or die "Error writing to $filename: $!";
This is a sample disclaimer, mail id is $mail_id,
mail size is $mail_size bytes, return path: $sender
EOD
$fh->close or die "Can't close $filename: $!";
$policy_bank{'DYNAMIC_DISCLAIMER'} = {
allow_disclaimers => 1,
altermime_args_disclaimer => ['--verbose', "--disclaimer=$filename"],
};
Amavis::load_policy_bank('DYNAMIC_DISCLAIMER');
}
sub checks {
my($self,$conn,$msginfo) = @_;
dynamic_altermime_disclaimer(@_);
}
1; # insure a defined return
Mark
------------------------------------------------------------------------------
Download Intel® 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
[email protected]
https://lists.sourceforge.net/lists/listinfo/amavis-user
AMaViS-FAQ:http://www.amavis.org/amavis-faq.php3
AMaViS-HowTos:http://www.amavis.org/howto/
