Re: Ratio nombre de lignes de citation / nombre de lignes de réponse

jdd <jdd@dodin.org> wrote:

Le 16/08/2022 à 22:46, M.V. a écrit :
donc ce qui suit est à copier dans filter_nnrpd.pl ?

La config est globale, donc au début du fichier.

Le code:

     if ($config{checkincludedtext}) {
         my ($lines, $quoted, $antiquoted) = analyze($body);
         if ($lines > $config{includedcutoff}
                 && $quoted - $antiquoted > $lines *
$config{includedratio}) {
             $rval = "Article contains too much quoted text";
         }
     }

est à mettre dans la fonction filter_post

et ceci où tu veux en dehors des fonctions:

sub analyze {
     my ($lines, $quoted, $antiquoted) = (0, 0, 0);
     local $_ = shift;
 
     do {
         if ( /\G$config{quotere}/mgc ) {
             $quoted++;
         } elsif ( /\G$config{antiquotere}/mgc ) {
             $antiquoted++;
         }
     } while ( /\G(.*)\n/gc && ++$lines );
 
     return ($lines, $quoted, $antiquoted);
}