Re: viré de eternal-september.org ?

Marc SCHAEFER <schaefer@alphanet.ch> wrote:

Donc, quand un Cancel-Lock est placé en entête de continuation, il ne
peut être annulé par un Cancel-Key correct. Et ce sont bien des espaces
0x20.

Le bug est dans cleanfeed.local, fonction verify_cancel():

   my $headers = INN::head($target) || return "$descr of non-existing ID $target";

   my %headers;
   for my $line(split(/\s*\n/, $headers))    {
      if ($line =~ m/^([[:alnum:]-]+):\s+(.*)/) {
         # assuming low/upcase normalisation by INN
         $headers{$1} = $2;
      }
   }

Ceci ne traite pas les lignes de continuation.

Ce code si:

my %headers;
my $previous;
for my $line(split(/\s*\n/, $art)) {
   if ($line =~ m/^([[:alnum:]-]+):\s+(.*)/) {
      # assuming low/upcase normalisation by INN
      $headers{$1} = $2;
      $previous = $1;
   }
   elsif ($line =~ m/^\s+(.*)/) {
      if (defined($previous)) {
         $headers{$previous} .= " " . $1;
      }
      else {
         INN::syslog('notice', 'garbled line: ' . $line);
      }
   }
}