This could be useful to OpenGuides.
-----Original Message-----
From: Simon Cozens [mailto:simon@simon-cozens.org]
Sent: 23 March 2006 23:28
To: london.pm
Subject: [upload(a)pause.perl.org: CPAN
Upload:S/SI/SIMON/SpamMonkey-0.02.tar.gz]
Since you asked so nicely. Doesn't include the Email::Received stuff, (and
therefore RBL checking) of course; look for that coming when it finally passes
SpamAssassin's tests.
It's still useful; here's a generic spam-trapped comment feature for
Maypole:
use SpamMonkey;
my $sm = SpamMonkey->new;
$sm->ready();
sub add_comment :Exported {
my ($self, $r, $thing) = @_;
my $res = $sm->test($r->params->{content});
if ($res->is_spam) {
return $self->error("I think you're a spammer, because your comment: ".
join("\n", $res->describe_hits));
}
$thing->add_to_comments({
author=> $r->params->{author},
url => $r->params->{url},
content => $r->params->{content},
posted => Time::Piece->new,
});
$r->template("view");
}
Simon
----- Forwarded message from PAUSE <upload(a)pause.perl.org> -----
From: PAUSE <upload(a)pause.perl.org>
Subject: CPAN Upload: S/SI/SIMON/SpamMonkey-0.02.tar.gz
To: Simon Cozens <simon(a)simon-cozens.org>
Reply-To: cpan-testers(a)perl.org
The uploaded file
SpamMonkey-0.02.tar.gz
has entered CPAN as
file: $CPAN/authors/id/S/SI/SIMON/SpamMonkey-0.02.tar.gz
size: 6858 bytes
md5: 2994361baa44bbadd50248d83471542a
No action is required on your part
Request entered by: SIMON (Simon Cozens)
Request entered on: Thu, 23 Mar 2006 23:22:54 GMT
Request completed: Thu, 23 Mar 2006 23:24:15 GMT
Thanks,
--
paused, v460
----- End forwarded message -----
--
He is no fool who gives what he cannot keep to gain what he cannot lose.