Re: CRM114 plugin

[Justin Mason <jm...@jmason.org>]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1


Eugene Morozov writes:
>I've created a beta version of crm114 plugin for
>SpamAssassin. I didn't implemented config options
>(is it possible without hacking SA Conf.pm?), so crm114
>command is hardcoded in the module code.

Looks cool.

The config can be parsed by registering a callback for "parse_config";
any unrecognised config lines are passed through that so that
plugins can use them.

- --j.

> Here's my
>sample configuration:
>
>loadplugin crm114 /home/jmv/projects/spamassassin/crm114.pm
>ifplugin crm114
>  # This is probably lame, but I've just started using
>  # crm114 and doesn't fully understand yet how it
>  # works and what its pR really mean
>  body CRM114_SPAM_00       eval:check_crm('-10.00', '-0.01')
>  body CRM114_SPAM_10       eval:check_crm('-50.00', '-10.00')
>  body CRM114_SPAM_50       eval:check_crm('-100.00', '-50.00')
>  body CRM114_SPAM_99       eval:check_crm('undef', '-100.00')
>
>  body CRM114_HAM_00        eval:check_crm('0.00', '10.00')
>  body CRM114_HAM_10        eval:check_crm('10.00', '50.00')
>  body CRM114_HAM_50        eval:check_crm('50.00', '100.00')
>  body CRM114_HAM_99        eval:check_crm('100.00', 'undef')
>
>  score CRM114_SPAM_00      1
>  score CRM114_SPAM_10      1.5  
>  score CRM114_SPAM_50      3
>  score CRM114_SPAM_99      4
>
>  score CRM114_HAM_00       -1
>  score CRM114_HAM_10       -1.5
>  score CRM114_HAM_50       -3
>  score CRM114_HAM_99       -4
>
>  tflags CRM114_SPAM_00     learn
>  tflags CRM114_SPAM_10     learn
>  tflags CRM114_SPAM_50     learn
>  tflags CRM114_SPAM_99     learn
>  tflags CRM_114_HAM_00     nice learn
>  tflags CRM_114_HAM_10     nice learn
>  tflags CRM_114_HAM_50     nice learn
>  tflags CRM_114_HAM_99     nice learn
>
>  describe CRM114_SPAM_00      CRM114 pR from -0.01 to -10.00
>  describe CRM114_SPAM_10      CRM114 pR from -10.00 to -50.00
>  describe CRM114_SPAM_50      CRM114 pR from -50.00 to -100.00
>  describe CRM114_SPAM_99      CRM114 pR from -100.00 to -999.99
>
>  describe CRM114_HAM_00       CRM114 pR from 0.00 to 10.00
>  describe CRM114_HAM_10       CRM114 pR from 10.00 to 50.00
>  describe CRM114_HAM_50       CRM114 pR from 50.00 to 100.00
>  describe CRM114_HAM_99       CRM114 pR from 100.00 to 999.99
>endif
>
>Module code is in the attachment. Comments are welcome.
>Eugene
>
>-- 
>Email: jmv /at/ online.ru
>
>--=-=-=
>Content-Type: text/x-perl
>Content-Disposition: inline; filename=crm114.pm
>
>package crm114;
>
>use strict;
>use IPC::Open3;
>use Mail::SpamAssassin::Plugin;
>use vars qw(@ISA);
>@ISA = qw(Mail::SpamAssassin::Plugin);
>
>sub new {
>  my $class = shift;
>  my $mailsaobject = shift;
>
>  # the usual perlobj boilerplate to create a subclass object
>  $class = ref($class) || $class;
>  my $self = $class->SUPER::new($mailsaobject);
>  bless ($self, $class);
>
>  $self->{crm_command} = "/usr/bin/crm114 -u /home/jmv/crm114 mailfilter.crm";
>
>  # then register an eval rule
>  $self->register_eval_rule ("check_crm");
>
>  # and return the new plugin object
>  return $self;
>}
>
>sub check_crm {
>  my ($self, $status, $fulltext, $min, $max) = @_;
>
>  my $msg = $status->get_message()->get_pristine();
>
>  if (!exists($self->{crm114_score})) {
>    my $pid;
>    eval {
>      open3(\*CRM_OUT, \*CRM_IN, \*CRM_ERR, $self->{crm_command});
>    };
>    if ($@) { printf "\@: %s\n", $@; }
>
>    print CRM_OUT $msg;
>    close(CRM_OUT);
>
>    while(<CRM_IN>) {
>      if (/^open3: (.*)/) {
>        die $1;
>      }
>
>      if (/^X-CRM114-Status: \w+\s+\( pR: ([-\d.]+) \)/) {
>        $self->{crm114_score} = $1;
>      }
>    }
>
>    close(CRM_OUT);
>    close(CRM_IN);
>
>    if (!exists($self->{crm114_score})) {
>      die "CRM114 didn't return spamicity value.";
>    }
>
>    dbg(sprintf ("CRM114 score: %3.4f", $self->{crm114_score}));
>  }
>
>  if (($min eq "undef" || $self->{crm114_score} > $min)
>      && ($max eq "undef" || $self->{crm114_score} <= $max))
>  {
>    return 1
>  }
>
>  return 0;
>}
>
>sub dbg { Mail::SpamAssassin::dbg (@_); }
>
>1;
>
>--=-=-=--
>
>
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.4 (GNU/Linux)
Comment: Exmh CVS

iD8DBQFAPmTxQTcbUG5Y7woRAqYFAKCZnQ+KKNpInNxVILHh2mu1DT0fUACeNYK+
qN59A4caOY6ew6AVt65l7+Y=
=nJnj
-----END PGP SIGNATURE-----