Hello Benoît
Thanks for your answer.
Are you sure that you forgot notthing from your code??
Because i try and it don't work :-(
I need at first only to log.
The parts I used below:
if ($Features{"SpamAssassin"}) {
spam_assassin_init()->compile_now(1) if defined(spam_assassin_init());
}
require ("/etc/mail/mimedefang-config");
++require Storable;
....
++sub store_vars {
++ my($vars) = @_;
++ Storable::store($vars, 'vars.db'); }
++sub load_vars {
++ my $vars = {};
++ if(-f 'vars.db') {
++ $vars = Storable::retrieve('vars.db');
++ }
++ return $vars;
++}
...
sub filter_recipient{
($recipient, $sender, $ip, $name, $firstRecip, $helo, $rcpt_mailer,
$rcpt_host, $rcpt_addr)= @_;
read_commands_file();
++ my $vars=&load_vars();
++if(!defined($vars->{imp_rcpt_count})) {$vars->{imp_rcpt_count}=1; }
++ md_syslog 'info', "COUNT RECIPIENT: ".$vars->{imp_rcpt_count};
Thanks
RP
_______________________________________________
NOTE: If there is a disclaimer or other legal boilerplate in the above
message, it is NULL AND VOID. You may ignore it.
Visit http://www.mimedefang.org and http://www.roaringpenguin.com
MIMEDefang mailing list [email protected]
http://lists.roaringpenguin.com/mailman/listinfo/mimedefang
