Mailing List Archive

Author: jm
Date: Thu Dec 7 07:08:59 2006
New Revision: 483476

URL: http://svn.apache.org/viewvc?view=rev&rev=483476
Log:
test plugin which outputs 'body' text to stdout; load using e.g. 'spamassassin --cf="loadplugin Dumptext masses/plugins/Dumptext.pm" -Lt < sample-spam.txt', or similar in mass-check

Added:
spamassassin/trunk/masses/plugins/Dumptext.pm

Added: spamassassin/trunk/masses/plugins/Dumptext.pm
URL: http://svn.apache.org/viewvc/spamassassin/trunk/masses/plugins/Dumptext.pm?view=auto&rev=483476
==============================================================================
--- spamassassin/trunk/masses/plugins/Dumptext.pm (added)
+++ spamassassin/trunk/masses/plugins/Dumptext.pm Thu Dec 7 07:08:59 2006
@@ -0,0 +1,23 @@
+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 (' ', @$array);
+ $str =~ s/\s+/ /gs;
+ print STDOUT "text: $str\n";
+}
+
+1;