contrib/Haraka.pm
package Mail::SpamAssassin::Plugin::Haraka;
my $VERSION = 0.1;
use warnings;
use strict;
use Mail::SpamAssassin::Plugin;
use vars qw(@ISA);
@ISA = qw(Mail::SpamAssassin::Plugin);
sub dbg {
Mail::SpamAssassin::Plugin::dbg ("Haraka: @_");
}
sub new {
my ($class, $mailsa) = @_;
$class = ref($class) || $class;
my $self = $class->SUPER::new($mailsa);
bless ($self, $class);
$self->register_eval_rule("get_haraka_uuid");
}
sub get_haraka_uuid {
my ($self, $pms) = @_;
# Add last external IP
my $le = $pms->get_tag('LASTEXTERNALIP');
if(defined($le) && $le) {
$pms->set_spamd_result_item( sub { return "last-external=$le"; } );
}
my $header = $pms->get("X-Haraka-UUID");
if(defined($header) && $header) {
$pms->set_spamd_result_item( sub { return "haraka-uuid=$header"; } );
}
return 0;
}