X-Git-Url: http://git.cyclocoop.org/?p=velocampus%2Fweb%2Fwww.git;a=blobdiff_plain;f=www%2Fplugins%2Fauto%2Fcouteau_suisse%2Fcouteau_suisse%2Foutils%2Fspam_options.php;fp=www%2Fplugins%2Fauto%2Fcouteau_suisse%2Fcouteau_suisse%2Foutils%2Fspam_options.php;h=fed4112db983de0fad1e2faf73ac9cee717ebc68;hp=0000000000000000000000000000000000000000;hb=80b4d3e85f78d402ed2e73f8f5d1bf4c19962eed;hpb=aaf970bf4cdaf76689ecc10609048e18d073820c

diff --git a/www/plugins/auto/couteau_suisse/couteau_suisse/outils/spam_options.php b/www/plugins/auto/couteau_suisse/couteau_suisse/outils/spam_options.php
new file mode 100644
index 0000000..fed4112
--- /dev/null
+++ b/www/plugins/auto/couteau_suisse/couteau_suisse/outils/spam_options.php
@@ -0,0 +1,54 @@
+<?php
+
+// traitement anti-spam uniquement si $_POST est rempli et si l'espace n'est pas prive
+if ( count($_POST) 
+	// espace prive en clair dans l'url
+	&& (strpos($_SERVER['PHP_SELF'],'/ecrire') === false) 
+	// cas des actions
+	&& !isset($_POST['action'])
+	) {
+
+	// champs du formulaire a visiter
+	//	un message en forum : texte, titre, auteur
+	//	un message a un auteur : texte_message_auteur_XX, sujet_message_auteur_XX, email_message_auteur_XX
+	//	inscription : nom_inscription, mail_inscription
+	//	login : session_*
+	$spam_POST_reg = ',^(?:texte|titre|sujet|auteur|nom|e?mail|session),i';
+	// on compile $spam_POST en fonction des variables $_POST trouvees
+	$spam_POST_compile = array();
+	foreach (array_keys($_POST) as $key)
+		if (preg_match($spam_POST_reg, $key) && strpos($key, 'password')===false)
+			$spam_POST_compile[] = $key;
+
+	include_spip('cout_lancement');
+	$spam_mots = cs_lire_data_outil('spam');
+	// test IP compatible avec l'outil 'no_IP'
+	$test = $spam_mots[3]?preg_match($spam_mots[3], $ip_):false;
+	foreach ($spam_POST_compile as $var) if(!$test)
+		if(cs_test_spam($spam_mots, $_POST[$var], $test)) $_GET['var'] = $var;
+	if($test) $_GET['action'] = "cs_spam";
+	// nettoyage
+	unset($test, $spam_mots, $spam_POST_reg, $spam_POST_compile);
+
+	function action_cs_spam(){
+		include_spip('inc/minipres');
+		echo minipres(
+			_T('couteau:lutte_spam'),
+			'<pre>'.$_POST[$_GET['var']].'</pre><div>'._T('couteau:explique_spam').'</div>'
+		);
+		exit;
+	}
+}
+unset($ip_);
+
+function cs_test_spam(&$spam, &$texte, &$test) {
+	foreach($spam[0] as $m) $test |= strpos($texte, $m)!==false;
+	if(!$test && $spam[1]) $test = preg_match($spam[1], $texte);
+	if(!$test && $spam[2]) {
+		include_spip('inc/charsets');
+		$test = preg_match($spam[2], charset2unicode($texte));
+	}
+	return $test;
+}
+
+?>
\ No newline at end of file