masses/plugins/Dumptext.pm

package Dumptext;
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 $array = $opts->{permsgstatus}->get_decoded_stripped_body_text_array();
  my $str = join ('[p]', @$array);
  $str =~ s/\n+//gs;
  $str =~ s/\s+/ /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;