Actually I write Perl programs since many years, but I am not
so familiar with the object oriented programming and I can not
discover the secrets of Spamassassin. Contretely: I was not able
to access the body of a mail.
I included Plugin\Test.pm into my configuration:
loadplugin Mail::SpamAssassin::Plugin::Test
full MY_TEST1 eval:check_test_plugin()
score MY_TEST1 0.1
describe MY_TEST1 Test-Plugin
This workes, each mail gets this score.
In the sub with the line "hard work goes here..." (how true!!!) there
are the scalars $self and $permsgstatus. I added some code which
saves $self into a file. The result was a hash reference. I tried
keys() and found the key "main". Sounds promising, doesn't it?
But the result was another hash reference. It's keys didn't look like
the message body. I gave it up.
I looked into some other plugins and ended with this code:
my ($self, $permsgstatus) = @_;
my $array = $permsgstatus->get_decoded_stripped_body_text_array();
my $text = join (' ', @$array);
But $text contains only "I need to make this message body somewhat
long so TextCat preloads I need to make this message body somewhat
long so TextCat preloads ......". I gave it up.
Would please somebody give me a hint how to access the body of
the mail?
Thanks, Paul Lenz
PS. Sorry for multiple postings, I only saved my message during
editing, but it seems to be sent every time :(
