Am 03.03.2014 17:13, schrieb Kevin A. McGrail:
On 3/3/2014 10:57 AM, Dieter Braun wrote:All Plugins appear to be from 3.4.0. With 'find / -nzme "perl*"' I cannot find any file belonging to another version of perl. (To be more exact: I cannot claim this for the man pages, but that shouldn't matter here.:-) )Can you view HeaderEval.pm and confirm $self->register_eval_rule("check_equal_from_domains"); is on the list of functions?From /usr/lib/perl5/site_perl/5.8.8/Mail/SpamAssassin/Plugin/HeaderEval.pm:
---------------------------------------------------------
[...]
$self->register_eval_rule("check_equal_from_domains");
[...]
# ADDED FROM BUG 6487
sub check_equal_from_domains {
my ($self, $pms) = @_;
my $from = $pms->get('From:addr');
my $envfrom = $pms->get('EnvelopeFrom:addr');
local $1;
my $fromdomain = '';
#Revised regexp from 6487 comment 3
$fromdomain = $1 if $from =~ /\@([^@]*)\z/;
$fromdomain =~ s/^.+\.([^\.]+\.[^\.]+)$/$1/;
return 0 if $fromdomain eq '';
my $envfromdomain = '';
$envfromdomain = $1 if $envfrom =~ /\@([^@]*)\z/;
$envfromdomain =~ s/^.+\.([^\.]+\.[^\.]+)$/$1/;
return 0 if $envfromdomain eq '';
dbg("eval: From 2nd level domain: $fromdomain, EnvelopeFrom 2nd level
domain: $envfromdomain");
return 1 if lc($fromdomain) ne lc($envfromdomain); return 0; } [...] --------------------------------------------------------- Regards, Dieter
<<attachment: dieter_braun.vcf>>
