Re: Empêcher que Zorro fasse des annulations depuis dodin.fr.nf

jdd <jdd@dodin.org> wrote:

innflags: "-C"

ah, j'ai confondu, bien -C pas -D.

du coup je me demande si les quotes ("") ne sont pas de trop?

Je ne pense pas, vu que cela marche: tu as transmis (propagé) ce cancel
sans l'exécuter, ce qui est ton objectif (*)


(*) c'est exactement ce que je devrais faire si je voulais laisser à mes
utilisateurs la possibilité de ne pas appliquer les cancels de consensus
du miakibot et du bleachbot, mais je ne l'ai pas encore fait car les
changements un peu partout pour ensuite correctement exécuter les
cancels légitimes (exemple: Cancel-Lock) sont à revoir!  complexe!

    ### cancel in these groups are not honored

à nouveau, on parle de les honorer, pas de les diffuser.

Tu dois les *rejeter*, chez moi ça ressemble par exemple à ça:

    # cancel messages ########################################################
    } elsif ($hdr{Control} =~ /^\s*cancel/i) {
        foreach (@Path_Entries) {
            return reject("Cancel with $_ in path", 'Rogue cancel')
                if exists $Bad_Cancel_Path{$_};
        }

        return reject('User-issued spam cancel')
            if $config{block_user_spamcancels}
                and $injection_host and $posting_host
                and $hdr{Path} =~ /!cyberspam!/;

        return reject('User-issued cancel')
            if $config{block_user_cancels}
                and not $hdr{Path} =~ /!cyberspam!/;

        return reject('Cancel in forbidden group', 'Rogue cancel')
            if $gr{no_cancel} and not $hdr{Path} =~ /!cyberspam!/;

        if ($config{block_late_cancels}
                and $hdr{Control} =~ /^cancel\s+(.+)$/) {
            return reject('Cancel for rejected article')
                if $MIDhistory->check($1);
        }

        return reject('Cancel with Supersedes header')
            if $hdr{Supersedes};

        return reject('Rogue cancel (newsgroups)', 'Rogue cancel')
            if grep(/^control(?:\.cancel)?$/, @groups);

        # from Ricardo's "FAQ" + hipcrime signatures
        return reject("Rogue cancel ($1)", 'Rogue cancel')
            if $hdr{Path} =~ /(h[i\d]pcr[i\d]me|(?:hip|hacker|crack|porn|cripple|gimp|cunt|hole|fag|aids|faq|god|hindu|dothead|jew|kike|moslem|towelhead|nazi|kraut|nerd|geek|nigger|redneck|rice|slanteye|spick|whine)cancel|cyberwhin(?:er|ing))/;

        if ($hdr{'X-Cancelled-By'} or $hdr{'X-Canceled-By'}) {
            my $xcb = lc ($hdr{'X-Cancelled-By'} || $hdr{'X-Canceled-By'});
            return reject('Bad X-Cancelled-By', 'Rogue cancel')
                if $xcb !~ /\w\@\w/;
        }

        if (defined &local_filter_cancel) {
            my @result = local_filter_cancel();
            return reject(@result) if $result[0];
        }