Skip to content

Commit

Permalink
Adding v0.5 from SVN.
Browse files Browse the repository at this point in the history
  • Loading branch information
Jukka Svahn committed Feb 2, 2012
1 parent c2204b7 commit 75f1cdd
Show file tree
Hide file tree
Showing 2 changed files with 109 additions and 22 deletions.
122 changes: 102 additions & 20 deletions code.php
View file
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
<?php ##################
#
# rah_comment_spam-plugin for Textpattern
# version 0.4
# version 0.5
# by Jukka Svahn
# http://rahforum.biz
#
Expand All @@ -27,7 +27,7 @@ function rah_comment_spam() {

@$rs = rah_comment_spam_fetch();

if(!isset($rs['version'])) {
if(!isset($rs['type_interval'])) {
rah_comment_spam_install();
$rs = rah_comment_spam_fetch();
}
Expand Down Expand Up @@ -74,6 +74,10 @@ function rah_comment_spam() {
$rs
) ||

rah_comment_spam_type_speed(
$rs
) ||

rah_comment_spam_dns($form['email'],$rs)

) {
Expand All @@ -95,22 +99,42 @@ function rah_comment_spam() {
*/

function rah_comment_spam_form() {
$field =
fetch(
'value',
'rah_comment_spam',
'name',
'field'
);

@$rs = rah_comment_spam_fetch();

if(!isset($rs['type_interval']))
return;

$out = array();

if($rs['use_type_detect'] == 'yes') {

if(
ps('rah_comment_spam_nonce') || ps('rah_comment_spam_time')
) {
$nonce = htmlspecialchars(ps('rah_comment_spam_nonce'));
$time = htmlspecialchars(ps('rah_comment_spam_time'));
} else {
@$time = strtotime('now');
$nonce = md5($rs['nonce'].$time);
}


$out[] =
'<input type="hidden" name="rah_comment_spam_nonce" value="'.$nonce.'" />'.
'<input type="hidden" name="rah_comment_spam_time" value="'.$time.'" />'
;
}

if(!empty($field))
return
n.
if(!empty($rs['field']))
$out[] =
'<div style="display:none;">'.
'<input type="text" value="'.htmlspecialchars(ps($field)).'" name="'.htmlspecialchars($field).'" />'.
'<input type="text" value="'.htmlspecialchars(ps($rs['field'])).'" name="'.htmlspecialchars($rs['field']).'" />'.
'</div>'
.n
;

return
n.implode('',$out).n;
}

/**
Expand Down Expand Up @@ -198,6 +222,31 @@ function rah_comment_spam_limitcomments($rs) {
return 1;
}

/**
Check typing speed. Only bots write extra fast... and terminators,
and Chuck Norris. He doesn't type, he... just makes text appear.
*/

function rah_comment_spam_type_speed($rs) {

extract($rs);

if($use_type_detect == 'no' || !is_numeric($type_interval))
return;

$time = ps('rah_comment_spam_time');

if(!is_numeric($time))
return 1;

@$now = strtotime('now')-$type_interval;
$md5 = md5($nonce.$time);

if($md5 != ps('rah_comment_spam_nonce') || $time >= $now)
return 1;

}

/**
Check DNS
*/
Expand Down Expand Up @@ -326,6 +375,10 @@ function rah_comment_spam_edit($message='') {
$check = explode(',',$check);

global $event;

if(empty($nonce) || $use_type_detect == 'no')
$nonce =
md5(uniqid(rand(),true));

echo n.
' <form method="post" action="index.php" id="rah_comment_spam_container">'.n.
Expand Down Expand Up @@ -404,7 +457,7 @@ function rah_comment_spam_edit($message='') {
' <p>'.n.
' <label>'.n.
' Max amount of spam words until comment becomes a spam (zero is instant):<br />'.n.
' <input type="text" class="edit" name="maxspamwords" size="4" value="'.$maxspamwords.'" />'.n.
' <input type="text" class="edit" name="maxspamwords" value="'.$maxspamwords.'" />'.n.
' </label>'.n.
' </p>'.n.
' <p>Search spam words from:</p>'.n.
Expand Down Expand Up @@ -476,7 +529,7 @@ function rah_comment_spam_edit($message='') {
' <p>'.n.
' <label>'.n.
' Name of the field (if empty not used):'.n.
' <input class="edit" type="text" name="field" size="80" value="'.$field.'" />'.n.
' <input class="edit" type="text" name="field" value="'.$field.'" />'.n.
' </label>'.n.
' </p>'.n.
' </div>'.n.
Expand All @@ -493,16 +546,43 @@ function rah_comment_spam_edit($message='') {
' <p>'.n.
' <label>'.n.
' Use DNS validation?<br />'.n.
' <select id="emaildns" name="emaildns">'.n.
' <select name="emaildns">'.n.
' <option value="no"'.(($emaildns == 'no') ? ' selected="selected"' : '').'>No</option>'.n.
' <option value="yes"'.(($emaildns == 'yes') ? ' selected="selected"' : '').'>Yes</option>'.n.
' </select>'.n.
' </label>'.n.
' </p>'.n.
' </div>'.n.
' <p title="Click to expand" class="rah_comment_spam_heading">'.n.
' + <span>Require comment form interaction</span>'.n.
' </p>'.n.
' <div class="rah_comment_spam_more">'.n.
' <p>'.n.
' Makes sure that the user spent set amount of time writing the comment. Instant posters will be treated as spammers.'.n.
' Usually it\'s recommended to keep this feature disabled. It can accidently block fast typers, if the required "typing" '.n.
' time is set to too high, but it can also succesfully block spammer bots which might instantpost, unlike normal users. '.n.
' The time is counted from intial article page request to the comment submitting. Be aware, the feature is only intended against mindless bots.'.n.
' </p>'.n.
' <p>'.n.
' <label>'.n.
' Use the feature validation, and block those that try to post without spending set period of time to writing the comment?<br />'.n.
' <select name="use_type_detect">'.n.
' <option value="no"'.(($use_type_detect == 'no') ? ' selected="selected"' : '').'>No</option>'.n.
' <option value="yes"'.(($use_type_detect == 'yes') ? ' selected="selected"' : '').'>Yes</option>'.n.
' </select>'.n.
' </label>'.n.
' </p>'.n.
' <p>'.n.
' <label>'.n.
' The time required in seconds:'.n.
' <input class="edit" type="text" name="type_interval" value="'.$type_interval.'" />'.n.
' </label>'.n.
' </p>'.n.
' </div>'.n.
' <p><input type="submit" value="Save settings" class="publish" /></p>'.n.
' <input type="hidden" name="event" value="'.$event.'" />'.n.
' <input type="hidden" name="step" value="rah_comment_spam_save" />'.n.
' <input type="hidden" name="nonce" value="'.$nonce.'" />'.n.
' </form>'.n;
}

Expand Down Expand Up @@ -555,7 +635,9 @@ function rah_comment_spam_vars() {
'commentuse' => 'yes',
'commenttime' => '300',
'emaildns' => 'no',
'version' => '0.4'
'use_type_detect' => 'no',
'nonce' => '',
'type_interval' => '5'
)
;
}
Expand All @@ -565,7 +647,7 @@ function rah_comment_spam_vars() {
*/

function rah_comment_spam_save() {

foreach(rah_comment_spam_vars() as $key => $value) {
$val = ps($key);
if(is_array($val))
Expand All @@ -577,7 +659,7 @@ function rah_comment_spam_save() {
"name='".doSlash($key)."'"
);
}

rah_comment_spam_edit('Spam preferences saved.');
}

Expand Down
9 changes: 7 additions & 2 deletions help.txt
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2,8 +2,8 @@ h1. rah_comment_spam

p. Rah_comment_spam ships with customizable anti-spam tools. Set minimum and maximum message lenght, filter spam words, validate email addresses, limit posting activity and set hidden spam traps. Toggle spam prevention method between block, moderate or mark as spam. All from simple interface, no head first dive to code.

* Version: 0.4
* Updated: 2010/08/02 03:00 PM UTC
* Version: 0.5
* Updated: 2010/09/15 4:20 AM UTC

h3. Table of Contents

Expand Down Expand Up @@ -43,6 +43,11 @@ h3(#installation-and-usage). Installation and usage

h3(#changelog). Changelog

p. *Version 0.5*

* Added option to check the time the user used to write the comment and block instant posters. "As discussed here":http://forum.textpattern.com/viewtopic.php?id=34535.
* Removed unused HTML field ids and sizes from the backend pane.

p. *Version 0.4*

* Added: now also filters @https://@, @ftp://@ and @ftps://@ protocols, not just links starting with @http://@.
Expand Down

0 comments on commit 75f1cdd

Please sign in to comment.