[siesta-commit] plugins/spamassasin .cvsignore,NONE,1.1 Makefile.PL,NONE,1.1 SpamAssassin.pm,NONE,1.1

[prev] [thread] [next] [lurker] [Date index for 2002/10/10]

Update of /cvsroot/siesta/plugins/spamassasin
In directory usw-pr-cvs1:/tmp/cvs-serv21974

Added Files:
	.cvsignore Makefile.PL SpamAssassin.pm 
Log Message:
fork own distribution

--- NEW FILE: .cvsignore ---
Makefile
blib
pm_to_blib

--- NEW FILE: Makefile.PL ---
use ExtUtils::MakeMaker;
WriteMakefile(
              NAME         => "Siesta::Plugin::SpamAssassin",
              VERSION_FROM => "SpamAssassin.pm",
              PREREQ_PM    => { Mail::SpamAssassin => 0,
				Siesta => 0,
                              },
             );

--- NEW FILE: SpamAssassin.pm ---
# $Id: SpamAssassin.pm,v 1.1 2002/10/10 12:16:45 clampr Exp $
package Siesta::Plugin::SpamAssassin;

# standard includes
use strict;
use Siesta::Plugin;
use base 'Siesta::Plugin';

use vars qw($DESCRIPTION $VERSION);
$VERSION = '0.01';

$DESCRIPTION = "Check to see if the mail is spam using the heuristics
in Mail::SpamAssassin, and bounces it if it isn't";

# specific includes
use Mail::SpamAssassin;

sub process {
    my $self = shift;
    my $mail = shift;

    my $spamtest = Mail::SpamAssassin->new();
    my $status   = $spamtest->check($mail);

    # Naughty person.
    return 1 if $status->is_spam();

    # it all seems to be ok, go about your business
    return;
}

1;

• [siesta-commit] plugins/spamassasin .cvsignore,NONE,1.1 Makefile.PL,NONE,1.1 SpamAssassin.pm,NONE,1.1 clampr 13:16 on 10 Oct 2002

Generated at 13:57 on 01 Jul 2004 by mariachi 0.52