3 * Laconica, the distributed open-source microblogging tool
5 * Plugin to check submitted notices with blogspam.net
9 * LICENCE: This program is free software: you can redistribute it and/or modify
10 * it under the terms of the GNU Affero General Public License as published by
11 * the Free Software Foundation, either version 3 of the License, or
12 * (at your option) any later version.
14 * This program is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 * GNU Affero General Public License for more details.
19 * You should have received a copy of the GNU Affero General Public License
20 * along with this program. If not, see <http://www.gnu.org/licenses/>.
24 * @author Evan Prodromou <evan@controlyourself.ca>
25 * @copyright 2009 Control Yourself, Inc.
26 * @license http://www.fsf.org/licensing/licenses/agpl-3.0.html GNU Affero General Public License version 3.0
27 * @link http://laconi.ca/
30 if (!defined('LACONICA')) {
34 define('BLOGSPAMNETPLUGIN_VERSION', '0.1');
37 * Plugin to check submitted notices with blogspam.net
39 * When new notices are saved, we check their text with blogspam.net (or
40 * a compatible service).
42 * Blogspam.net is supposed to catch blog comment spam, and I found that
43 * some of its tests (min/max size, bayesian match) gave a lot of false positives.
44 * So, I've turned those tests off by default. This may not get as many
45 * hits, but it's better than nothing.
49 * @author Evan Prodromou <evan@controlyourself.ca>
50 * @license http://www.fsf.org/licensing/licenses/agpl-3.0.html GNU Affero General Public License version 3.0
51 * @link http://laconi.ca/
56 class BlogspamNetPlugin extends Plugin
58 var $baseUrl = 'http://test.blogspam.net:8888/';
60 function __construct($url=null)
62 parent::__construct();
64 $this->baseUrl = $url;
68 function onStartNoticeSave($notice)
70 $args = $this->testArgs($notice);
71 common_debug("Blogspamnet args = " . print_r($args, TRUE));
72 $request = xmlrpc_encode_request('testComment', array($args));
73 $context = stream_context_create(array('http' => array('method' => "POST",
75 "Content-Type: text/xml\r\n".
76 "User-Agent: " . $this->userAgent(),
77 'content' => $request)));
78 $file = file_get_contents($this->baseUrl, false, $context);
79 $response = xmlrpc_decode($file);
80 if (xmlrpc_is_fault($response)) {
81 throw new ServerException("$response[faultString] ($response[faultCode])", 500);
83 common_debug("Blogspamnet results = " . $response);
84 if (preg_match('/^ERROR(:(.*))?$/', $response, $match)) {
85 throw new ServerException(sprintf(_("Error from %s: %s"), $this->baseUrl, $match[2]), 500);
86 } else if (preg_match('/^SPAM(:(.*))?$/', $response, $match)) {
87 throw new ClientException(sprintf(_("Spam checker results: %s"), $match[2]), 400);
88 } else if (preg_match('/^OK$/', $response)) {
91 throw new ServerException(sprintf(_("Unexpected response from %s: %s"), $this->baseUrl, $response), 500);
97 function testArgs($notice)
100 $args['comment'] = $notice->content;
101 $args['ip'] = $this->getClientIP();
103 if (isset($_SERVER) && array_key_exists('HTTP_USER_AGENT', $_SERVER)) {
104 $args['agent'] = $_SERVER['HTTP_USER_AGENT'];
107 $profile = $notice->getProfile();
109 if ($profile && $profile->homepage) {
110 $args['link'] = $profile->homepage;
113 if ($profile && $profile->fullname) {
114 $args['name'] = $profile->fullname;
116 $args['name'] = $profile->nickname;
119 $args['site'] = common_root_url();
120 $args['version'] = $this->userAgent();
122 $args['options'] = "max-size=140,min-size=0,min-words=0,exclude=bayasian";
127 function getClientIP()
129 if (isset($_SERVER) && array_key_exists('REQUEST_METHOD', $_SERVER)) {
130 // Note: order matters here; use proxy-forwarded stuff first
131 foreach (array('HTTP_X_FORWARDED_FOR', 'CLIENT-IP', 'REMOTE_ADDR') as $k) {
132 if (isset($_SERVER[$k])) {
142 return 'BlogspamNetPlugin/'.BLOGSPAMNETPLUGIN_VERSION . ' Laconica/' . LACONICA_VERSION;