=head1
To try this out, write these lines to /etc/mail/spamassassin/plugintest.cf:
loadplugin myTestPlugin
header MY_TEST_PLUGIN eval:check_test_plugin()
=cut
package myTestPlugin;
use Mail::SpamAssassin::Plugin;
use strict;
use bytes;
our @ISA = qw(Mail::SpamAssassin::Plugin);
sub new {
my $class = shift;
my $mailsaobject = shift;
$class = ref($class) || $class;
my $self = $class->SUPER::new($mailsaobject);
bless ($self, $class);
$self->register_eval_rule ("check_test_plugin");
print "registered myTestPlugin: $self\n";
return $self;
}
sub check_test_plugin {
my ($self, $permsgstatus) = @_;
print "myTestPlugin eval test called: $self\n";
return 1;
}
1;