Бухта свободного общения

www

С 1 сентября у нас в России вступил закон об ограничении доступа и т.д. и т.п.

Начальник нахлобучил. Типа форум - дыра. Пришлось на коленке быстренько наваять.
Опубликую, пожалуй. Может кому тоже сгодится.

Модуль ограничения доступа к информации.

<?php 

//******************************
//Функция проверки текста на запрещенные слова
function spamlist($spam_filename, $spam_strokatest){
	$strokatest = strtolower($spam_strokatest);
	$res = "";
	if (file_exists($spam_filename)){
		if (($spam_fp = fopen($spam_filename, "r")) == NULL){
			$res = ""; //Ошибка открытия файла
		}
		else{
			while (!feof($spam_fp)){
				$spam_s_aa = fgets($spam_fp, 255); 
				$spam_s_aa=str_replace("\n",'',$spam_s_aa);
				$spam_s_aa=str_replace("\t",'',$spam_s_aa);
				$spam_s_aa=str_replace("\r",'',$spam_s_aa);
				$spam_s_aa=strtolower(trim($spam_s_aa));
				if ($spam_s_aa!=""){
					if (stristr($strokatest, $spam_s_aa)!=false){
						$u_spam_s_aa=strtoupper($spam_s_aa);
						$strokatest=str_replace("$spam_s_aa","<b>$u_spam_s_aa</b>",$strokatest);
						$res=$strokatest;
					}
				}
			}
			fclose($spam_fp);
		}
	}
	return $res;
}




//
//	B E G I N
//

$file_nm = "matlist.txt";
$tekst = "<br>Текст содержит запрещенные слова.";

echo("$tekst");

$is_banned = spamlist($file_nm, $tekst);
if ( $is_banned != "" ) {
	echo("true");
}
else {
	echo("false");
}


 ?>

www

Встраивание в скрипт WR-forum.
Создается файл matlist.txt, в каждой строке которого запрещенные фразы без пробелов.

$is_banstr = spamlist("matlist.txt", "$msg");
if ( $is_banstr!="" ) {
	exit("$back Текст содержит ненормативную лексику:<br />$is_banstr</body></html>");
}

psvlab

спасибо, но при большом словаре и длинном тексте сообщения будет тупить жутко

Бухта свободного общения

• PHP, HTML, Java, Delphi, Visual Basic... Готовые программы и Исходники. •

PHP - Модуль ограничения доступа к информации.