[siesta-commit] plugins/checkuser .cvsignore,NONE,1.1 CheckUser.pm,NONE,1.1 Makefile.PL,NONE,1.1

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

Update of /cvsroot/siesta/plugins/checkuser
In directory usw-pr-cvs1:/tmp/cvs-serv24787

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

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

--- NEW FILE: CheckUser.pm ---
# $Id: CheckUser.pm,v 1.1 2002/10/10 12:24:42 clampr Exp $
package Siesta::Plugin::CheckUser;

# standard includes
use strict;
use Siesta::Plugin;
use base 'Siesta::Plugin';
use vars qw($DESCRIPTION $VERSION);
$VERSION = 0.01;

# specific includes
use Mail::CheckUser qw(check_email);

$DESCRIPTION = "Check to see if the mail was sent by a valid email
address using the heuristics in Mail::CheckUser.  Drops the mail if it
isn't.";

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

    # is it a valid email address?
    return if check_email( $mail->from );

    # no, silently eat the message
    return 1;
}

1;

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

• [siesta-commit] plugins/checkuser .cvsignore,NONE,1.1 CheckUser.pm,NONE,1.1 Makefile.PL,NONE,1.1 clampr 13:24 on 10 Oct 2002

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