| Net::Akismet(3pm) | User Contributed Perl Documentation | Net::Akismet(3pm) |
Net::Akismet - Perl interface to Akismet - comment and trackback spam fighter
my $akismet = Net::Akismet->new(
KEY => 'secret-baba-API-key',
URL => 'http://example.blog.net/',
) or die('Key verification failure!');
my $verdict = $akismet->check(
USER_IP => '10.10.10.11',
COMMENT_USER_AGENT => 'Mozilla/5.0',
COMMENT_CONTENT => 'Run, Lola, Run, the spam will catch you!',
COMMENT_AUTHOR => 'dosser',
COMMENT_AUTHOR_EMAIL => 'dosser@subway.de',
REFERRER => 'http://lola.home/',
) or die('Is the server here?');
if ('true' eq $verdict) {
print "I found spam. I am a spam-founder!\n";
}
Net::Akismet->new(PARAM => ...);
Acceptable parameters:
your-killer-app/0.042 Perl-Net-Akismet/0.01 libwww-perl/5.8
Otherwise just Akismet Perl's user agent string will be sent.
If verification of the key was unsuccessful "new()" returns "undef".
$akismet->check(USER_IP => ..., COMMENT_CONTENT => ..., ...)
To be or not to be... "check" is meant to tell you. Give it enough details about the comment and expect 'true', 'false' or "undef" as a result. 'true' means spam, 'false' means not spam, "undef" is returned on error in submission of the comment.
Acceptable comment characteristics:
In case of failed submission returns "undef", otherwise - a perl-known truth.
In case of failed submission returns "undef", otherwise - a perl-known truth.
Although almost all comment characteristics are optional, performance can drop dramatically if you exclude certain elements. So please, supply as much comment detail as possible.
Nikolay Bachiyski <nb@nikolay.bg>
Copyright (C) 2006, 2007, 2008 by Nikolay Bachiyski
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.7 or, at your option, any later version of Perl 5 you may have available.
$Id: Akismet.pm 38 2008-06-05 17:15:12Z humperdink $
| 2022-10-13 | perl v5.36.0 |