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 |