Changeset 31548 in spip-zone

Timestamp:

Sep 13, 2009, 5:31:28 PM (11 years ago)

Author:

marcimat@…

Message:

Nouvelle fonction dans l'api : analyser_spams($texte) qui retourne un tableau de description du texte, enfin surtout de ses liens... Pourra être complété au besoin, ou transformé en classe PHP ?

Nouveau principe : un lien dont le texte fait moins de 3 caractères est passé en proposé par défaut aussi.

Location:

_plugins_/nospam

Files:

• inc/nospam.php (modified) (1 diff)
• nospam_pipelines.php (modified) (4 diffs)
• plugin.xml (modified) (1 diff)

_plugins_/nospam/inc/nospam.php

@@ -54 +54 @@
 }
 
+
+/**
+ * Compte le nombre de caracteres d'une chaine,
+ * mais en supprimant tous les liens 
+ * (qu'ils soient ou non ecrits en raccourcis SPIP)
+ * ainsi que tous les espaces en trop
+ *
+ * @param string $texte texte d'entree
+ * @return int compte du texte nettoye
+ */
+function compter_caracteres_utiles($texte, $propre=true) {
+        if ($propre) $texte = propre($texte);
+        // regarder si il y a du contenu en dehors des liens !
+        $texte = PtoBR($texte);
+        $texte = preg_replace(',<a.*</a>,Uims','',$texte);
+        $texte = trim(preg_replace(',[\W]+,uims',' ',$texte));
+        return strlen($texte);
+}
+
+
+/**
+ * Retourne un tableau d'analyse du texte transmis
+ * Cette analyse concerne principalement des statistiques sur les liens
+ *
+ * @param string $texte texte d'entree
+ * @return array rapport d'analyse
+ */
+function analyser_spams($texte) {
+        $infos = array(
+                'caracteres_utiles' => 0, // nombre de caracteres sans les liens
+                'nombre_liens' => 0, // nombre de liens
+                'caracteres_texte_lien_min' => 0, // nombre de caracteres du plus petit titre de lien
+        );
+
+        if (!$texte) return $infos;
+        
+        $texte = propre($texte);
+
+        // caracteres_utiles
+        $infos['caracteres_utiles'] = compter_caracteres_utiles($texte, false);
+
+        // nombre de liens
+        $liens = extraire_balises($texte,'a');
+        $infos['nombre_liens'] = count($liens);
+
+        // taille du titre de lien minimum
+        if (count($liens)) {
+                // supprimer_tags() s'applique a tout le tableau,
+                // mais attention a verifier dans le temps que ca continue a fonctionner
+                # $titres_liens = array_map('supprimer_tags', $liens);
+                $titres_liens = supprimer_tags($liens);
+                $titres_liens = array_map('strlen', $titres_liens);
+                $infos['caracteres_texte_lien_min'] = min($titres_liens);
+                spip_log($infos,'liens');
+        }
+        return $infos;
+}
+
+
+
 ?>

_plugins_/nospam/nospam_pipelines.php

@@ -74 +74 @@
                 if (!isset($flux['data']['texte'])
                         AND $GLOBALS['meta']['forums_texte'] == 'oui'){
+                        include_spip("inc/nospam");
                         // regarder si il y a du contenu en dehors des liens !
-                        $texte = PtoBR(propre(_request('texte')));
-                        $texte = preg_replace(',<a.*</a>,Uims','',$texte);
-                        $texte = trim(preg_replace(',[\W]+,uims',' ',$texte));
-                        if (strlen($texte) < 10){
+                        $caracteres = compter_caracteres_utiles(_request('texte'));
+                        if ($caracteres < 10){
                                 $flux['data']['texte'] = _T('forum_attention_dix_caracteres');
                                 unset($flux['data']['previsu']);
@@ -102 +101 @@
                 include_spip('inc/autoriser');
           if ($flux['data']['statut'] == 'publie'
-                  AND (!isset($GLOBALS['visiteur_session']['id_auteur']) OR !autoriser('modererforum'))){
+          AND (!isset($GLOBALS['visiteur_session']['id_auteur']) OR !autoriser('modererforum'))){
 
                         $email = strlen($flux['data']['email_auteur']) ? " OR email_auteur=".sql_quote($flux['data']['email_auteur']):"";
@@ -125 +124 @@
 
                         $seuils = $spammeur_connu?$seuils['spammeur']:$seuils[0];
-                        foreach($flux['data'] as $champ=>$valeur){
-                                $valeur = propre($valeur); // on passe propre a chaque fois, ce qui recupere aussi les adresse de site non linkees
-                                if (($liens = count(extraire_balises($valeur,'a')))>0){
+                        include_spip("inc/nospam"); // pour analyser_spams()
+                        foreach($flux['data'] as $champ=>$valeur) {
+                                $infos = analyser_spams($valeur);
+                                if ($infos['nombre_liens'] > 0) {
+                                        // si un lien a un titre de moins de 3 caracteres, c'est louche...
+                                        if ($infos['caracteres_texte_lien_min'] < 3) {
+                                                $flux['data']['statut'] = 'prop'; // en dur en attendant une idee plus generique
+                                        }
+                                        
                                         if (isset($seuils[$champ]))
                                                 $seuil = $seuils[$champ];
@@ -134 +139 @@
 
                                         foreach($seuil as $s=>$stat)
-                                                if ($liens>=$s)
+                                                if ($infos['nombre_liens'] >= $s)
                                                         $flux['data']['statut'] = $stat;
                                 }

_plugins_/nospam/plugin.xml

@@ -4 +4 @@
 <icon>img_pack/nospam.png</icon>
 <licence>(c) 2008 GPL</licence>
-<version>0.5</version>
+<version>0.6</version>
 <etat>stable</etat>
 <description>Halte au spam ! Filtrez les spams dans les messages, sans nuisance pour les utilisateurs honn&ecirc;tes.</description>