Server IP : 85.214.239.14 / Your IP : 18.119.123.10 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /usr/share/perl5/Mail/SpamAssassin/Plugin/ |
Upload File : |
# <@LICENSE> # Licensed to the Apache Software Foundation (ASF) under one or more # contributor license agreements. See the NOTICE file distributed with # this work for additional information regarding copyright ownership. # The ASF licenses this file to you under the Apache License, Version 2.0 # (the "License"); you may not use this file except in compliance with # the License. You may obtain a copy of the License at: # # http://www.apache.org/licenses/LICENSE-2.0 # # Unless required by applicable law or agreed to in writing, software # distributed under the License is distributed on an "AS IS" BASIS, # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. # See the License for the specific language governing permissions and # limitations under the License. # </@LICENSE> =head1 NAME Mail::SpamAssassin::Plugin::AWL - Normalize scores via auto-welcomelist =head1 SYNOPSIS To try this out, add this or uncomment this line in init.pre: loadplugin Mail::SpamAssassin::Plugin::AWL Use the supplied 60_awl.cf file (ie you don't have to do anything) or add these lines to a .cf file: header AWL eval:check_from_in_auto_welcomelist() describe AWL From: address is in the auto welcome-list tflags AWL userconf noautolearn priority AWL 1000 =head1 DESCRIPTION This plugin module provides support for the auto-welcomelist. It keeps track of the average SpamAssassin score for senders. Senders are tracked using a combination of their From: address and their IP address. It then uses that average score to reduce the variability in scoring from message to message and modifies the final score by pushing the result towards the historical average. This improves the accuracy of filtering for most email. =head1 TEMPLATE TAGS This plugin module adds the following C<tags> that can be used as placeholders in certain options. See C<Mail::SpamAssassin::Conf> for more information on TEMPLATE TAGS. _AWL_ AWL modifier _AWLMEAN_ Mean score on which AWL modification is based _AWLCOUNT_ Number of messages on which AWL modification is based _AWLPRESCORE_ Score before AWL =cut package Mail::SpamAssassin::Plugin::AWL; use strict; use warnings; # use bytes; use re 'taint'; use Mail::SpamAssassin::Plugin; use Mail::SpamAssassin::AutoWelcomelist; use Mail::SpamAssassin::Util qw(untaint_var); use Mail::SpamAssassin::Logger; our @ISA = qw(Mail::SpamAssassin::Plugin); # constructor: register the eval rule sub new { my $class = shift; my $mailsaobject = shift; # some boilerplate... $class = ref($class) || $class; my $self = $class->SUPER::new($mailsaobject); bless ($self, $class); # the important bit! $self->register_eval_rule("check_from_in_auto_welcomelist", $Mail::SpamAssassin::Conf::TYPE_HEAD_EVALS); $self->register_eval_rule("check_from_in_auto_whitelist", $Mail::SpamAssassin::Conf::TYPE_HEAD_EVALS); # removed in 4.1 $self->set_config($mailsaobject->{conf}); return $self; } sub set_config { my($self, $conf) = @_; my @cmds; =head1 USER PREFERENCES The following options can be used in both site-wide (C<local.cf>) and user-specific (C<user_prefs>) configuration files to customize how SpamAssassin handles incoming email messages. =over 4 =item use_auto_welcomelist ( 0 | 1 ) (default: 1) Previously use_auto_whitelist which will work interchangeably until 4.1. Whether to use auto-welcomelists. Auto-welcomelists track the long-term average score for each sender and then shift the score of new messages toward that long-term average. This can increase or decrease the score for messages, depending on the long-term behavior of the particular correspondent. For more information about the auto-welcomelist system, please look at the C<Automatic Welcomelist System> section of the README file. The auto-welcomelist is not intended as a general-purpose replacement for static welcomelist entries added to your config files. Note that certain tests are ignored when determining the final message score: - rules with tflags set to 'noautolearn' =cut push (@cmds, { setting => 'use_auto_welcomelist', aliases => ['use_auto_whitelist'], # backward compatible - to be removed for 4.1 default => 1, type => $Mail::SpamAssassin::Conf::CONF_TYPE_BOOL }); =item auto_welcomelist_factor n (default: 0.5, range [0..1]) Previously auto_whitelist_factor which will work interchangeably until 4.1. How much towards the long-term mean for the sender to regress a message. Basically, the algorithm is to track the long-term mean score of messages for the sender (C<mean>), and then once we have otherwise fully calculated the score for this message (C<score>), we calculate the final score for the message as: C<finalscore> = C<score> + (C<mean> - C<score>) * C<factor> So if C<factor> = 0.5, then we'll move to half way between the calculated score and the mean. If C<factor> = 0.3, then we'll move about 1/3 of the way from the score toward the mean. C<factor> = 1 means just use the long-term mean; C<factor> = 0 mean just use the calculated score. =cut push (@cmds, { setting => 'auto_welcomelist_factor', aliases => ['auto_whitelist_factor'], # backward compatible - to be removed for 4.1 default => 0.5, type => $Mail::SpamAssassin::Conf::CONF_TYPE_NUMERIC }); =item auto_welcomelist_ipv4_mask_len n (default: 16, range [0..32]) Previously auto_whitelist_ipv4_mask_len which will work interchangeably until 4.1. The AWL database keeps only the specified number of most-significant bits of an IPv4 address in its fields, so that different individual IP addresses within a subnet belonging to the same owner are managed under a single database record. As we have no information available on the allocated address ranges of senders, this CIDR mask length is only an approximation. The default is 16 bits, corresponding to a former class B. Increase the number if a finer granularity is desired, e.g. to 24 (class C) or 32. A value 0 is allowed but is not particularly useful, as it would treat the whole internet as a single organization. The number need not be a multiple of 8, any split is allowed. =cut push (@cmds, { setting => 'auto_welcomelist_ipv4_mask_len', aliases => ['auto_whitelist_ipv4_mask_len'], # removed in 4.1 default => 16, type => $Mail::SpamAssassin::Conf::CONF_TYPE_NUMERIC, code => sub { my ($self, $key, $value, $line) = @_; if (!defined $value || $value eq '') { return $Mail::SpamAssassin::Conf::MISSING_REQUIRED_VALUE; } elsif ($value !~ /^\d+$/ || $value < 0 || $value > 32) { return $Mail::SpamAssassin::Conf::INVALID_VALUE; } $self->{auto_welcomelist_ipv4_mask_len} = $value; } }); =item auto_welcomelist_ipv6_mask_len n (default: 48, range [0..128]) Previously auto_whitelist_ipv6_mask_len which will work interchangeably until 4.1. The AWL database keeps only the specified number of most-significant bits of an IPv6 address in its fields, so that different individual IP addresses within a subnet belonging to the same owner are managed under a single database record. As we have no information available on the allocated address ranges of senders, this CIDR mask length is only an approximation. The default is 48 bits, corresponding to an address range commonly allocated to individual (smaller) organizations. Increase the number for a finer granularity, e.g. to 64 or 96 or 128, or decrease for wider ranges, e.g. 32. A value 0 is allowed but is not particularly useful, as it would treat the whole internet as a single organization. The number need not be a multiple of 4, any split is allowed. =cut push (@cmds, { setting => 'auto_welcomelist_ipv6_mask_len', aliases => ['auto_whitelist_ipv6_mask_len'], # removed in 4.1 default => 48, type => $Mail::SpamAssassin::Conf::CONF_TYPE_NUMERIC, code => sub { my ($self, $key, $value, $line) = @_; if (!defined $value || $value eq '') { return $Mail::SpamAssassin::Conf::MISSING_REQUIRED_VALUE; } elsif ($value !~ /^\d+$/ || $value < 0 || $value > 128) { return $Mail::SpamAssassin::Conf::INVALID_VALUE; } $self->{auto_welcomelist_ipv6_mask_len} = $value; } }); =item user_awl_sql_override_username Used by the SQLBasedAddrList storage implementation. If this option is set the SQLBasedAddrList module will override the set username with the value given. This can be useful for implementing global or group based auto-welcomelist databases. =cut push (@cmds, { setting => 'user_awl_sql_override_username', default => '', type => $Mail::SpamAssassin::Conf::CONF_TYPE_STRING }); =item auto_welcomelist_distinguish_signed Previously auto_whitelist_distinguish_signed which will work interchangeably until 4.1. Used by the SQLBasedAddrList storage implementation. If this option is set the SQLBasedAddrList module will keep separate database entries for DKIM-validated e-mail addresses and for non-validated ones. A pre-requisite when setting this option is that a field awl.signedby exists in a SQL table, otherwise SQL operations will fail (which is why we need this option at all - for compatibility with pre-3.3.0 database schema). A plugin DKIM should also be enabled, as otherwise there is no benefit from turning on this option. =cut push (@cmds, { setting => 'auto_welcomelist_distinguish_signed', aliases => ['auto_whitelist_distinguish_signed'], # removed in 4.1 default => 0, type => $Mail::SpamAssassin::Conf::CONF_TYPE_BOOL }); =back =head1 ADMINISTRATOR SETTINGS These settings differ from the ones above, in that they are considered 'more privileged' -- even more than the ones in the B<PRIVILEGED SETTINGS> section. No matter what C<allow_user_rules> is set to, these can never be set from a user's C<user_prefs> file. =over 4 =item auto_welcomelist_factory module (default: Mail::SpamAssassin::DBBasedAddrList) Previously auto_whitelist_factory which will work interchangeably until 4.1. Select alternative welcomelist factory module. =cut push (@cmds, { setting => 'auto_welcomelist_factory', aliases => ['auto_whitelist_factory'], # removed in 4.1 is_admin => 1, default => 'Mail::SpamAssassin::DBBasedAddrList', type => $Mail::SpamAssassin::Conf::CONF_TYPE_STRING }); =item auto_welcomelist_path /path/filename (default: ~/.spamassassin/auto-welcomelist) Previously auto_whitelist_path which will work interchangeably until 4.1. This is the automatic-welcomelist directory and filename. By default, each user has their own welcomelist database in their C<~/.spamassassin> directory with mode 0700. For system-wide SpamAssassin use, you may want to share this across all users, although that is not recommended. =cut push (@cmds, { setting => 'auto_welcomelist_path', aliases => ['auto_whitelist_path'], # removed in 4.1 is_admin => 1, default => '__userstate__/auto-welcomelist', type => $Mail::SpamAssassin::Conf::CONF_TYPE_STRING, code => sub { my ($self, $key, $value, $line) = @_; unless (defined $value && $value !~ /^$/) { return $Mail::SpamAssassin::Conf::MISSING_REQUIRED_VALUE; } if (-d $value) { return $Mail::SpamAssassin::Conf::INVALID_VALUE; } $self->{auto_welcomelist_path} = $value; } }); =item auto_welcomelist_db_modules Module ... (default: see below) Previously auto_whitelist_db_modules which will work interchangeably until 4.1. What database modules should be used for the auto-welcomelist storage database file. The first named module that can be loaded from the perl include path will be used. The format is: PreferredModuleName SecondBest ThirdBest ... ie. a space-separated list of perl module names. The default is: DB_File GDBM_File SDBM_File NDBM_File is no longer supported, since it appears to have bugs that preclude its use for the AWL (see SpamAssassin bug 4353). =cut push (@cmds, { setting => 'auto_welcomelist_db_modules', aliases => ['auto_whitelist_db_modules'], # removed in 4.1 is_admin => 1, default => 'DB_File GDBM_File SDBM_File', type => $Mail::SpamAssassin::Conf::CONF_TYPE_STRING }); =item auto_welcomelist_file_mode (default: 0700) Previously auto_whitelist_file_mode which will work interchangeably until 4.1. The file mode bits used for the automatic-welcomelist directory or file. Make sure you specify this using the 'x' mode bits set, as it may also be used to create directories. However, if a file is created, the resulting file will not have any execute bits set (the umask is set to 0111). =cut push (@cmds, { setting => 'auto_welcomelist_file_mode', aliases => ['auto_whitelist_file_mode'], # removed in 4.1 is_admin => 1, default => '0700', type => $Mail::SpamAssassin::Conf::CONF_TYPE_NUMERIC, code => sub { my ($self, $key, $value, $line) = @_; if ($value !~ /^0?[0-7]{3}$/) { return $Mail::SpamAssassin::Conf::INVALID_VALUE; } $self->{auto_welcomelist_file_mode} = untaint_var($value); } }); =item user_awl_dsn DBI:databasetype:databasename:hostname:port Used by the SQLBasedAddrList storage implementation. This will set the DSN used to connect. Example: C<DBI:mysql:spamassassin:localhost> =cut push (@cmds, { setting => 'user_awl_dsn', is_admin => 1, type => $Mail::SpamAssassin::Conf::CONF_TYPE_STRING }); =item user_awl_sql_username username Used by the SQLBasedAddrList storage implementation. The authorized username to connect to the above DSN. =cut push (@cmds, { setting => 'user_awl_sql_username', is_admin => 1, type => $Mail::SpamAssassin::Conf::CONF_TYPE_STRING }); =item user_awl_sql_password password Used by the SQLBasedAddrList storage implementation. The password for the database username, for the above DSN. =cut push (@cmds, { setting => 'user_awl_sql_password', is_admin => 1, type => $Mail::SpamAssassin::Conf::CONF_TYPE_STRING }); =item user_awl_sql_table tablename Used by the SQLBasedAddrList storage implementation. The table user auto-welcomelists are stored in, for the above DSN. =cut push (@cmds, { setting => 'user_awl_sql_table', is_admin => 1, default => 'awl', type => $Mail::SpamAssassin::Conf::CONF_TYPE_STRING }); $conf->{parser}->register_commands(\@cmds); } sub check_from_in_auto_welcomelist { my ($self, $pms) = @_; return 0 unless ($pms->{conf}->{use_auto_welcomelist}); my $timer = $self->{main}->time_method("total_awl"); my $from = lc $pms->get('From:addr'); # dbg("auto-welcomelist: From: $from"); return 0 unless $from =~ /\S/; # find the earliest usable "originating IP". ignore private nets my $origip; foreach my $rly (reverse (@{$pms->{relays_trusted}}, @{$pms->{relays_untrusted}})) { next if ($rly->{ip_private}); if ($rly->{ip}) { $origip = $rly->{ip}; last; } } my $scores = $pms->{conf}->{scores}; my $tflags = $pms->{conf}->{tflags}; my $points = 0; my $signedby = $pms->get_tag('DKIMDOMAIN'); undef $signedby if defined $signedby && $signedby eq ''; foreach my $test (@{$pms->{test_names_hit}}) { # ignore tests with 0 score in this scoreset, # or if the test is marked as "noautolearn" next if !$scores->{$test}; next if exists $tflags->{$test} && $tflags->{$test} =~ /\bnoautolearn\b/; return 0 if exists $tflags->{$test} && $tflags->{$test} =~ /\bnoawl\b/; $points += $scores->{$test}; } my $awlpoints = (sprintf "%0.3f", $points) + 0; # Create the AWL object my $welcomelist; eval { $welcomelist = Mail::SpamAssassin::AutoWelcomelist->new($pms->{main}); my $meanscore; { # check my $timer = $self->{main}->time_method("check_awl"); $meanscore = $welcomelist->check_address($from, $origip, $signedby); } my $delta = 0; dbg("auto-welcomelist: AWL active, pre-score: %s, autolearn score: %s, ". "mean: %s, IP: %s, address: %s %s", $pms->{score}, $awlpoints, !defined $meanscore ? 'undef' : sprintf("%.3f",$meanscore), $origip || 'undef', $from, $signedby ? "signed by $signedby" : '(not signed)'); if (defined $meanscore) { $delta = $meanscore - $awlpoints; $delta *= $pms->{main}->{conf}->{auto_welcomelist_factor}; $pms->set_tag('AWL', sprintf("%2.1f",$delta)); if (defined $meanscore) { $pms->set_tag('AWLMEAN', sprintf("%2.1f", $meanscore)); } $pms->set_tag('AWLCOUNT', sprintf("%2.1f", $welcomelist->count())); $pms->set_tag('AWLPRESCORE', sprintf("%2.1f", $pms->{score})); } # Update the AWL *before* adding the new score, otherwise # early high-scoring messages are reinforced compared to # later ones. http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=159704 if (!$pms->{disable_auto_learning}) { my $timer = $self->{main}->time_method("update_awl"); $welcomelist->add_score($awlpoints); } # now redundant, got_hit() takes care of it # for my $set (0..3) { # current AWL score changes with each hit # $pms->{conf}->{scoreset}->[$set]->{"AWL"} = sprintf("%0.3f", $delta); # } if ($delta != 0) { $pms->got_hit("AWL", "AWL: ", ruletype => 'eval', score => sprintf("%0.3f", $delta)); } $welcomelist->finish(); 1; } or do { my $eval_stat = $@ ne '' ? $@ : "errno=$!"; chomp $eval_stat; warn("auto-welcomelist: open of auto-welcomelist file failed: $eval_stat\n"); # try an unlock, in case we got that far eval { $welcomelist->finish(); } if $welcomelist; return 0; }; dbg("auto-welcomelist: post auto-welcomelist score: %.3f", $pms->{score}); # test hit is above return 0; } *check_from_in_auto_whitelist = \&check_from_in_auto_welcomelist; # removed in 4.1 sub blocklist_address { my ($self, $args) = @_; return 0 unless ($self->{main}->{conf}->{use_auto_welcomelist}); unless ($args->{address}) { print "SpamAssassin auto-welcomelist: failed to add address to blocklist\n" if ($args->{cli_p}); dbg("auto-welcomelist: failed to add address to blocklist"); return; } my $welcomelist; my $status; eval { $welcomelist = Mail::SpamAssassin::AutoWelcomelist->new($self->{main}); if ($welcomelist->add_known_bad_address($args->{address}, $args->{signedby})) { print "SpamAssassin auto-welcomelist: adding address to blocklist: " . $args->{address} . "\n" if ($args->{cli_p}); dbg("auto-welcomelist: adding address to blocklist: " . $args->{address}); $status = 0; } else { print "SpamAssassin auto-welcomelist: error adding address to blocklist\n" if ($args->{cli_p}); dbg("auto-welcomelist: error adding address to blocklist"); $status = 1; } $welcomelist->finish(); 1; } or do { my $eval_stat = $@ ne '' ? $@ : "errno=$!"; chomp $eval_stat; warn("auto-welcomelist: open of auto-welcomelist file failed: $eval_stat\n"); eval { $welcomelist->finish(); }; return 0; }; return $status; } *blacklist_address = \&blocklist_address; # removed in 4.1 sub welcomelist_address { my ($self, $args) = @_; return 0 unless ($self->{main}->{conf}->{use_auto_welcomelist}); unless ($args->{address}) { print "SpamAssassin auto-welcomelist: failed to add address to welcomelist\n" if ($args->{cli_p}); dbg("auto-welcomelist: failed to add address to welcomelist"); return 0; } my $welcomelist; my $status; eval { $welcomelist = Mail::SpamAssassin::AutoWelcomelist->new($self->{main}); if ($welcomelist->add_known_good_address($args->{address}, $args->{signedby})) { print "SpamAssassin auto-welcomelist: adding address to welcomelist: " . $args->{address} . "\n" if ($args->{cli_p}); dbg("auto-welcomelist: adding address to welcomelist: " . $args->{address}); $status = 1; } else { print "SpamAssassin auto-welcomelist: error adding address to welcomelist\n" if ($args->{cli_p}); dbg("auto-welcomelist: error adding address to welcomelist"); $status = 0; } $welcomelist->finish(); 1; } or do { my $eval_stat = $@ ne '' ? $@ : "errno=$!"; chomp $eval_stat; warn("auto-welcomelist: open of auto-welcomelist file failed: $eval_stat\n"); eval { $welcomelist->finish(); }; return 0; }; return $status; } *whitelist_address = \&welcomelist_address; # removed in 4.1 sub remove_address { my ($self, $args) = @_; return 0 unless ($self->{main}->{conf}->{use_auto_welcomelist}); unless ($args->{address}) { print "SpamAssassin auto-welcomelist: failed to remove address\n" if ($args->{cli_p}); dbg("auto-welcomelist: failed to remove address"); return 0; } my $welcomelist; my $status; eval { $welcomelist = Mail::SpamAssassin::AutoWelcomelist->new($self->{main}); if ($welcomelist->remove_address($args->{address}, $args->{signedby})) { print "SpamAssassin auto-welcomelist: removing address: " . $args->{address} . "\n" if ($args->{cli_p}); dbg("auto-welcomelist: removing address: " . $args->{address}); $status = 1; } else { print "SpamAssassin auto-welcomelist: error removing address\n" if ($args->{cli_p}); dbg("auto-welcomelist: error removing address"); $status = 0; } $welcomelist->finish(); 1; } or do { my $eval_stat = $@ ne '' ? $@ : "errno=$!"; chomp $eval_stat; warn("auto-welcomelist: open of auto-welcomelist file failed: $eval_stat\n"); eval { $welcomelist->finish(); }; return 0; }; return $status; } 1; =back =cut