[SPIP] +2.1.12

[velocampus/web/www.git] / www / plugins / auto / couteau_suisse / couteau_suisse / outils / spam.php

diff --git a/www/plugins/auto/couteau_suisse/couteau_suisse/outils/spam.php b/www/plugins/auto/couteau_suisse/couteau_suisse/outils/spam.php
new file mode 100644 (file)
index 0000000..2c99d01
--- /dev/null
+++ b/www/plugins/auto/couteau_suisse/couteau_suisse/outils/spam.php
@@ -0,0 +1,61 @@
+<?php
+
+// anti-spam un peu brutal : 
+//     1. une liste de mots interdits est consultee
+//     2. si le mot existe dans un des textes d'un formulaire, on avertit !
+
+// cette fonction appelee automatiquement a chaque affichage de la page privee du Couteau Suisse renvoie un tableau
+function spam_installe_dist() {
+       // tableau des mots interdits
+       $t = array(
+               // des liens en dur ou simili...
+               array('<a href=', '</a>', '[url=', '[/url]', '[link=', '[/link]',),
+               // des regexpr ou ips (sans delimiteurs)
+               array(), array(), array()
+       );
+       // repere les mots entiers entre parentheses, les regexpr entre slashes et les caracteres unicodes
+       $spam_mots = defined('_spam_MOTS')?spam_liste_mots(_spam_MOTS):array();
+       foreach($spam_mots as $v) {
+               if(preg_match(',^\((.+)\)$,', $v, $reg))
+                       $t[1][] = '\b'.preg_quote($reg[1], '/').'\b';
+               elseif(preg_match(',^\/(&#)?(.*?)(;?)\/$,', $v, $reg))
+                       $t[($reg[2] && $reg[3])?2:1][]=$reg[2];
+               else $t[0][] = $v;
+       }
+       $t[1] = count($t[1])?'/'.join('|',$t[1]).'/i':'';
+       $t[2] = count($t[2])?'/&#(?:'.join('|',$t[2]).');/i':'';
+       $spam_mots = defined('_spam_IPS')?spam_liste_mots(_spam_IPS):array();
+       array_walk($spam_mots, 'spam_walk');
+       $t[3] = count($spam_mots)?'/^(?:' . join('|', $spam_mots) . ')$/':'';
+       return array($t);
+}
+
+function spam_walk(&$item) {
+       $item = preg_replace(',[^\d\.\*\?\[\]\-],', '', $item);
+       if(preg_match(',^\/(.+)\/$,', $item, $reg))
+               $item = '('.$reg[1].')';
+       else $item = str_replace(array('\*','\?','\[','\]','\-'), array('\d+','\d','[',']','-'), preg_quote($item, '/'));
+}
+
+// retourne un tableau de mots ou d'expressions a partir d'un texte
+function spam_liste_mots($texte) {
+       include_spip('inc/filtres');
+       $texte = filtrer_entites(trim($texte));
+       $split = explode('"', $texte);
+       $c = count($split);
+       $split2 = array();
+       for($i=0; $i<$c; $i++) if (($s = trim($split[$i])) != ""){
+               if (($i & 1) && ($i != $c-1)) {
+                       // on touche pas au texte entre deux ""
+                       $split2[] = $s;
+               } else {
+                       // on rassemble tous les separateurs : \s\t\n
+                       $temp = preg_replace("/[\s\t\n\r]+/", "\t", $s);
+                       $temp = str_replace("+"," ", $temp);
+                       $split2 = array_merge($split2, explode("\t", $temp));
+               }
+       }
+       return array_unique($split2);
+}
+
+?>
\ No newline at end of file