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

Le 16/08/2022 à 22:46, M.V. a écrit :
donc ce qui suit est à copier dans filter_nnrpd.pl ?
au début, à la fin ou peu importe?
merci
jdd

 my %config = (checkincludedtext => 1,
               includedcutoff => 40,
               includedratio => 0.6,
               quotere => '^[>:]',
               antiquotere => '^[<]',  # so as not to reject dict(1)
output
              );
 

     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";
         }
     }
 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);
}
=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=

--
mon serveur dodin.fr.nf