"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Mail/SpamAssassin/Plugin/ReplaceTags.pm" between
Mail-SpamAssassin-3.4.4.tar.bz2 and Mail-SpamAssassin-3.4.5.tar.bz2

About: SpamAssassin is a mail filter that uses a wide range of heuristic tests on mail headers and body text to identify "spam" (also known as unsolicited commercial email) incl. Bayesian (statistical) spam filter and several internet-based realtime blacklists.

ReplaceTags.pm  (Mail-SpamAssassin-3.4.4.tar.bz2):ReplaceTags.pm  (Mail-SpamAssassin-3.4.5.tar.bz2)
skipping to change at line 27 skipping to change at line 27
=head1 NAME =head1 NAME
Mail::SpamAssassin::Plugin::ReplaceTags - tags for SpamAssassin rules Mail::SpamAssassin::Plugin::ReplaceTags - tags for SpamAssassin rules
The plugin allows rules to contain regular expression tags to be used in The plugin allows rules to contain regular expression tags to be used in
regular expression rules. The tags make it much easier to maintain regular expression rules. The tags make it much easier to maintain
complicated rules. complicated rules.
Warning: This plugin relies on data structures specific to this version of Warning: This plugin relies on data structures specific to this version of
SpamAssasin; it is not guaranteed to work with other versions of SpamAssassin. SpamAssassin; it is not guaranteed to work with other versions of SpamAssassin.
=head1 SYNOPSIS =head1 SYNOPSIS
loadplugin Mail::SpamAssassin::Plugin::ReplaceTags loadplugin Mail::SpamAssassin::Plugin::ReplaceTags
replace_start < replace_start <
replace_end > replace_end >
replace_tag A [a@] replace_tag A [a@]
replace_tag G [gk] replace_tag G [gk]
skipping to change at line 103 skipping to change at line 103
my $start = $conf->{replace_start}; my $start = $conf->{replace_start};
my $end = $conf->{replace_end}; my $end = $conf->{replace_end};
foreach my $rule (keys %{$conf->{replace_rules}}) { foreach my $rule (keys %{$conf->{replace_rules}}) {
# process rules only once, mark to replace_rules_done, # process rules only once, mark to replace_rules_done,
# do NOT delete $conf->{replace_rules}, it's used by BodyRuleExtractor # do NOT delete $conf->{replace_rules}, it's used by BodyRuleExtractor
next if exists $self->{replace_rules_done}->{$rule}; next if exists $self->{replace_rules_done}->{$rule};
$self->{replace_rules_done}->{$rule} = 1; $self->{replace_rules_done}->{$rule} = 1;
if (!exists $conf->{test_qrs}->{$rule}) { if (!exists $conf->{test_qrs}->{$rule}) {
dbg("replacetags: replace requested for non-existing rule: $rule\n"); dbg("replacetags: replace requested for non-existing or incompatible rule: $rule\n");
next; next;
} }
my $re = qr_to_string($conf->{test_qrs}->{$rule}); my $re = qr_to_string($conf->{test_qrs}->{$rule});
next unless defined $re; next unless defined $re;
my $origre = $re; my $origre = $re;
my $passes = 0; my $passes = 0;
my $doagain; my $doagain;
 End of changes. 2 change blocks. 
2 lines changed or deleted 2 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)