1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
package Dumpheaders;
use strict;
use Mail::SpamAssassin;
use Mail::SpamAssassin::Plugin;
our @ISA = qw(Mail::SpamAssassin::Plugin);
sub new {
my ($class, $mailsa) = @_;
$class = ref($class) || $class;
my $self = $class->SUPER::new($mailsa);
bless ($self, $class);
return $self;
}
sub check_end {
my ($self, $opts) = @_;
my $str = $opts->{permsgstatus}->get("ALL");
$str =~ s/\n/\[\\n\]/gs;
$str =~ s/\t/\[\\t\]/gs;
$str =~ s/\n+//gs;
# ignore the M:SpamAssassin:compile() test message
return if ($str =~
/I need to make this message body somewhat long so TextCat preloads/);
print STDOUT "text: $str\n";
}
1;
|
