1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
# MT::TypePadAntiSpam, (C) 2008-2012 Six Apart, Ltd.
# Based on Akismet plugin by Tim Appnel
# This program is distributed under the terms of the
# GNU General Public License, version 2.
#
# $Id$
package MT::TypePadAntiSpam;
use strict;
use base qw( MT::ErrorHandler );
use Storable;
use LWP::UserAgent;
use Carp qw( croak );
our $VERSION = '1.0';
our $API_VERSION = '1.1';
our $SERVICE_HOST = 'api.antispam.typepad.com';
sub check { shift->_typepadantispam( 'comment-check', 1, @_ ) }
sub submit_spam { shift->_typepadantispam( 'submit-spam', 0, @_ ) }
sub submit_ham { shift->_typepadantispam( 'submit-ham', 0, @_ ) }
sub verify {
my ( $class, $key, $url ) = @_;
return $class->error("API key is a required parameter.")
unless $key;
return $class->error("The URL of the site is a required parameter.")
unless $url;
my $agent = $class->_get_agent;
my $r = $agent->post( "http://$SERVICE_HOST/$API_VERSION/verify-key",
{ key => $key, blog => $url } );
# Could be more RESTful in that status code should indicate success
# or failure not a string in the content of the response.
my $res = MT::TypePadAntiSpam::Response->new;
$res->http_response($r);
$res->http_status( $r->code );
$res->status( $r->is_success && $r->content =~ /valid/i ? 1 : 0 );
$res;
}
#--- internals
my $num_dumped = 0;
sub _typepadantispam {
my ( $class, $meth, $is_true, $sig, $key ) = @_;
unless ($key) {
my $plugin = MT->component('TypePadAntiSpam');
# print STDERR "DEBUG: processing\n" if MT->config->DebugMode;
return $class->error(
$plugin->translate("API key is a required parameter.") );
}
my $agent = $class->_get_agent;
my $r = $agent->post( "http://$key.$SERVICE_HOST/$API_VERSION/$meth",
[ %ENV, %$sig ] );
my $res = MT::TypePadAntiSpam::Response->new;
$res->http_response($r);
$res->http_status( $r->code );
my $status = 0;
if ( $r->is_success ) {
$status = $is_true ? $r->content =~ /false/i : 1;
}
$res->status($status); # 1 (true) means valid api key or not spam.
$res;
}
our $AGENT;
sub _get_agent {
my $class = shift;
return $AGENT if $AGENT;
$AGENT = MT->new_ua;
$AGENT->agent( join '/', $class, $class->VERSION );
$AGENT->timeout(10);
$AGENT;
}
package MT::TypePadAntiSpam::Signature;
use base qw( Class::Accessor::Fast );
MT::TypePadAntiSpam::Signature->mk_accessors(
qw( blog user_ip user_agent referrer permalink comment_type
comment_author comment_author_email comment_author_url
comment_content article_date )
);
package MT::TypePadAntiSpam::Response;
use base qw( Class::Accessor::Fast );
MT::TypePadAntiSpam::Response->mk_accessors(
qw( status http_status http_response ));
1;
|
