function spamshield_cf_content_blacklist_chk($haystack = NULL, $get_list_arr = FALSE)
{
/***
* Contact Form Content Blacklist Check
* Use for the message content of any contact form
***/
$blacklisted_content = spamshield_rubik_mod(spamshield_get_cf_content_blacklist(), 'de', TRUE);
if (!empty($get_list_arr)) {
return $blacklisted_content;
}
/* Goes after array */
$blacklist_status = FALSE;
if (empty($haystack)) {
return FALSE;
}
$blacklisted_content_rgx = spamshield_get_regex_phrase($blacklisted_content, '', 'red_str');
$blacklisted_content_rgx = str_replace(array('email', 'disclaimer', '2007', '\\s+the\\s+', '\\s+an\\s+', '\\s+a\\s+', ','), array('e?mail', '(disclaimer|p\\.?s\\.?)', '20[0-9]{2}', '\\s+(the\\s+)?', '\\s+(an?\\s+)?', '\\s+(an?\\s+)?', ',?'), $blacklisted_content_rgx);
if (preg_match($blacklisted_content_rgx, $haystack)) {
$blacklist_status = TRUE;
}
return $blacklist_status;
}
function spamshield_anchortxt_blacklist_chk($haystack = NULL, $get_list_arr = FALSE, $haystack_type = 'author', $url = NULL)
{
/***
* Author Keyword Blacklist Check
* Use for testing Comment Author, New User Registrations, and anywhere else you need to test an author name.
* This list assembled based on statistical analysis of common anchor text spam keyphrases.
* Script creates all the necessary alphanumeric and linguistic variations to effectively test.
* $haystack_type can be 'author' (default) or 'content'
***/
$wpss_cl_active = spamshield_is_plugin_active('commentluv/commentluv.php');
/* Check if active for compatibility with CommentLuv */
$spamshield_options = get_option('spamshield_options');
if (!empty($spamshield_options['allow_comment_author_keywords'])) {
$wpss_cak_active = 1;
} else {
$wpss_cak_active = 0;
}
/* Check if Comment Author Name Keywords are allowed - equivalent to CommentLuve being active */
$blacklisted_keyphrases = spamshield_rubik_mod(spamshield_get_anchortxt_blacklist(), 'de', TRUE);
$blacklisted_keyphrases_lite = spamshield_rubik_mod(spamshield_get_anchortxt_blacklist_lite(), 'de', TRUE);
if ($haystack_type == 'author' && (!empty($wpss_cl_active) || !empty($wpss_cak_active) || empty($url))) {
$blacklisted_keyphrases = $blacklisted_keyphrases_lite;
}
if (!empty($get_list_arr)) {
if ($haystack_type == 'content') {
return $blacklisted_keyphrases_lite;
} else {
return $blacklisted_keyphrases;
}
}
/* Goes after array */
$blacklist_status = FALSE;
if (empty($haystack)) {
return FALSE;
}
if ($haystack_type == 'author') {
/* Check 1: Testing for URLs in author name */
if (preg_match("~^https?~i", $haystack)) {
return TRUE;
}
/* Check 2: Testing for max # words in author name, more than 7 is fail */
$author_words = spamshield_count_words($haystack);
$word_max = 7;
/* Default */
if (!empty($wpss_cl_active) || !empty($wpss_cak_active)) {
$word_max = 10;
}
/* CL or CAK active */
if ($author_words > $word_max) {
return TRUE;
}
/* Check 3: Testing for Odd Characters in author name */
$odd_char_regex = "~[\\@\\*]+~";
/* Default */
if (!empty($wpss_cl_active) || !empty($wpss_cak_active)) {
$odd_char_regex = "~(\\@{2,}|\\*)+~";
}
/* CL or CAK active */
if (preg_match($odd_char_regex, $haystack)) {
return TRUE;
}
/***
* Check 4: Testing for *author name* surrounded by asterisks
* Check 5: Testing for numbers and cash references ('1000','$5000', etc) in author name
***/
if (empty($wpss_cl_active) && empty($wpss_cak_active) && preg_match("~(^|[\\s\\.])(\$([0-9]+)([0-9,\\.]+)?|([0-9]+)([0-9,\\.]{3,})|([0-9]{3,}))(\$|[\\s])~", $haystack)) {
return TRUE;
}
/* Final Check: The Blacklist */
foreach ($blacklisted_keyphrases as $i => $blacklisted_keyphrase) {
$blacklisted_keyphrase_rgx = spamshield_regexify($blacklisted_keyphrase);
$regex_check_phrase = spamshield_get_regex_phrase($blacklisted_keyphrase_rgx, '', 'authorkw');
if (preg_match($regex_check_phrase, $haystack)) {
return TRUE;
}
}
} elseif ($haystack_type == 'content') {
/***
* Parse content for links with Anchor Text
* Test 1: Coming Soon
* For possible use later - from old filter: ((payday|students?|title|onli?ne|short([\s\.\-_]*)term)([\s\.\-_]*)loan|cash([\s\.\-_]*)advance)
* Final Check: The Blacklist
***/
$anchor_text_phrases = spamshield_parse_links($haystack, 'anchor_text');
foreach ($anchor_text_phrases as $a => $anchor_text_phrase) {
foreach ($blacklisted_keyphrases_lite as $i => $blacklisted_keyphrase) {
$blacklisted_keyphrase_rgx = spamshield_regexify($blacklisted_keyphrase);
$regex_check_phrase = spamshield_get_regex_phrase($blacklisted_keyphrase_rgx, '', 'authorkw');
if (preg_match($regex_check_phrase, $anchor_text_phrase)) {
return TRUE;
}
}
}
}
return $blacklist_status;
}