Path: ...!2.eu.feeder.erje.net!feeder.erje.net!proxad.net!feeder1-2.proxad.net!usenet-fr.net!news.gegeweb.eu!gegeweb.org!news.alphanet.ch!alphanet.ch!.POSTED.catalyst.alphanet.ch!not-for-mail
From: Marc SCHAEFER <schaefer@alphanet.ch>
Newsgroups: fr.comp.usenet.serveurs
Subject: Re: =?ISO-8859-1?Q?vir=E9?= de eternal-september.org ?
Date: Mon, 16 May 2022 17:11:31 -0000 (UTC)
Organization: Posted through ALPHANET
Message-ID: <t5u0k3$5op$1@shakotay.alphanet.ch>
References: <t5orgk$oqk$1@dont-email.me>   <t5soe0$j6g$1@shakotay.alphanet.ch> <9cs38h9g7vo0j8df60k05pvpv9se7en6tl@consensus-omnium> <t5svmg$4oh$1@rasp.pasdenom.info> <t5t56p$9h9$1@shakotay.alphanet.ch> <t5t6kd$fkt$2@shakotay.alphanet.ch> <t5t780$j1k$1@shakotay.alphanet.ch> <t5tbfj$8rh$1@shakotay.alphanet.ch> <t5tc6c$ban$1@shakotay.alphanet.ch> <t5tnr8$rls$1@shakotay.alphanet.ch> <t5tp27$417$1@shakotay.alphanet.ch> <t5tp5o$436$1@shakotay.alphanet.ch> <t5tqgq$9rd$1@shakotay.alphanet.ch>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
Injection-Date: Mon, 16 May 2022 17:11:31 -0000 (UTC)
Injection-Info: shakotay.alphanet.ch; posting-account="schaefer"; posting-host="catalyst.alphanet.ch:192.168.99.121";
	logging-data="5913"; mail-complaints-to="usenet@alphanet.ch"
User-Agent: tin/2.4.3-20181224 ("Glen Mhor") (UNIX) (Linux/4.19.0-20-amd64 (x86_64))
Cancel-Lock: sha256:Sv2fy1dDqLYuLbeL5V0GHfMC9uUPt1m0XuQ2VTOmmJA=
Bytes: 2542
Lines: 33

In fr.comp.usenet.serveurs M.V. <mv@gmail.com.invalid> wrote:
> Il y a maintenant un problème : plus moyen de faire un cancel ou un
> supersedes avec des messages "normaux" (une seule ligne pour le champ
> cancel-lock)

C'est corrigé, il faut mettre $headers dans le for et non pas $art (qui
correspond à ma variable de mon script de test et n'est pas défini -- et
à voir pas de "use warnings;" dans cleanfeed).

Ca donne:

shakotay:~# diff /etc/news/cleanfeed/cleanfeed.local.before-debug-cancel-lock /etc/news/cleanfeed/cleanfeed.local
284c284,285
<    for my $line(split(/\s*\n/, $headers))    {
---
>    my $previous;
>    foreach my $line (split(/\s*\n/, $headers)) {
287a289,297
>          $previous = $1;
>       }
>       elsif ($line =~ m/^\s+(.*)/) {
>          if (defined($previous)) {
>             $headers{$previous} .= " " . $1;
>          }
>          else {
>             INN::syslog('notice', 'garbled line: ' . $line);
>          }
291d300
< 
297c306,307
<    } else {
---
>    }
>    else {