THIS IS A TEST INSTANCE. ALL YOUR CHANGES WILL BE LOST!!!!
...
No Format |
---|
package Dumptext; use strict; use Mail::SpamAssassin; use Mail::SpamAssassin::Plugin; our @ISA = qw(Mail::SpamAssassin::Plugin); sub new { my ($class, $mailsa) = @_; # the usual perlobj boilerplate to create a subclass object $class = ref($class) || $class; my $self = $class->SUPER::new($mailsa); bless ($self, $class); $self->register_eval_rule ("dumptext"); return $self; } sub dumptext { my ($self, $permsgstatus) = @_; my $array = $permsgstatus->get_decoded_stripped_body_text_array(); my $str = join (' ', @$array); $str =~ s/\s+/ /gs; print STDERR "text: $str\n"; 0; } 1; |
...