From 8a79d5712a1ce1ff123fd92797b06a3c412f0995 Mon Sep 17 00:00:00 2001
From: saxmatt <saxmatt@1a063a9b-81f0-0310-95a4-ce76da25c4cd>
Date: Thu, 25 Mar 2004 10:11:58 +0000
Subject: [PATCH] If more than X links in a comment, moderate that sucker.

git-svn-id: http://svn.automattic.com/wordpress/trunk@1011 1a063a9b-81f0-0310-95a4-ce76da25c4cd
---
 wp-admin/options-discussion.php | 14 +++++++++-----
 wp-admin/upgrade-functions.php  |  5 +++++
 wp-includes/functions.php       |  5 +++++
 3 files changed, 19 insertions(+), 5 deletions(-)

diff --git a/wp-admin/options-discussion.php b/wp-admin/options-discussion.php
index acf8222702..f60ad87e6e 100644
--- a/wp-admin/options-discussion.php
+++ b/wp-admin/options-discussion.php
@@ -68,8 +68,8 @@ if ($user_level <= 3) {
 	<h2>Discussion Options</h2> 
 	<form name="form1" method="post" action="options.php"> 
 		<input type="hidden" name="action" value="update" /> 
-		<input type="hidden" name="page_options" value="'default_pingback_flag','default_ping_status','default_comment_status','comments_notify','moderation_notify','comment_moderation','require_name_email','moderation_keys'" /> 
-		<p>Usual settings for an article: <em>(These settings may be overidden for individual articles.)</em></p> 
+		<input type="hidden" name="page_options" value="'default_pingback_flag','default_ping_status','default_comment_status','comments_notify','moderation_notify','comment_moderation','require_name_email','comment_max_links','moderation_keys'" /> 
+		<h3>Usual settings for an article: <em>(These settings may be overidden for individual articles.)</em></h3> 
 		<ul> 
 			<li> 
 				<label for="default_pingback_flag"> 
@@ -87,7 +87,7 @@ if ($user_level <= 3) {
 				Allow people to post comments on the article</label> 
 			</li> 
 		</ul> 
-		<p>Email me whenever:</p> 
+		<h3>Email me whenever:</h3> 
 		<ul> 
 			<li> 
 				<label for="comments_notify"> 
@@ -100,7 +100,7 @@ if ($user_level <= 3) {
 				A comment is approved or declined </label> 
 			</li> 
 		</ul> 
-		<p>Before a comment appears:</p> 
+		<h3>Before a comment appears:</h3> 
 		<ul> 
 			<li> 
 				<label for="comment_moderation"> 
@@ -113,7 +113,11 @@ if ($user_level <= 3) {
 				User must fill out name and email </label> 
 			</li> 
 		</ul> 
-		<p>When a comment contains any of these words in its content, name, URI,  email, or IP, hold it in the moderation queue: (Seperate multiple words with new lines.) <a href="http://wiki.wordpress.org/index.php/SpamWords">Common spam words</a>.</p> 
+		<h3>Comment Moderation:</h3>
+		<p>Hold a comment in the queue if it contains more than 
+			<input name="comment_max_links" type="text" id="comment_max_links" size="3" value="<?php echo get_settings('comment_max_links'); ?>" /> 
+		links. (A common characteristic of comment spam is a large number of hyperlinks.)</p>
+		<p>When a comment contains any of these words in its content, name, URI,  email, or IP, hold it in the moderation queue: (Seperate multiple words with new lines.) <a href="http://wiki.wordpress.org/index.php/SpamWords">Common spam words</a>.</p>
 		<p> 
 			<textarea name="moderation_keys" cols="60" rows="4" id="moderation_keys" style="width: 98%;"><?php echo get_settings('moderation_keys'); ?></textarea> 
 		</p> 
diff --git a/wp-admin/upgrade-functions.php b/wp-admin/upgrade-functions.php
index 1cf2b49824..5a7a71c529 100644
--- a/wp-admin/upgrade-functions.php
+++ b/wp-admin/upgrade-functions.php
@@ -794,6 +794,11 @@ function upgrade_110() {
 		$wpdb->query("INSERT INTO $tableoptions (option_name, option_type, option_value, option_admin_level) VALUES ('active_plugins', 3, '', 8)");
 	}
 
+	// Option for max # of links per comment
+	if(!$wpdb->get_var("SELECT option_id FROM $tableoptions WHERE option_name = 'comment_max_links'")) {
+		$wpdb->query("INSERT INTO $tableoptions (option_name, option_type, option_value, option_admin_level) VALUES ('comment_max_links', 3, '5', 8)");
+	}
+
 }
 
 ?>
\ No newline at end of file
diff --git a/wp-includes/functions.php b/wp-includes/functions.php
index 0b2587dc88..2e6bd3a408 100644
--- a/wp-includes/functions.php
+++ b/wp-includes/functions.php
@@ -1577,6 +1577,11 @@ function check_comment($author, $email, $url, $comment, $user_ip) {
 		if ( preg_match($pattern, $comment) ) return false;
 		if ( preg_match($pattern, $user_ip) ) return false;
 	}
+
+	preg_match_all('|([\n ])([a-z]+?)://([^, <>{}\n\r]+)|i', $comment, $all_links);
+	$number = count($all_links[0]);
+	if ($number >= get_settings('comment_max_links')) return false;
+
 return true;
 }