Accès aux headers complets depuis cleanfeed INN2 (was: Re: refuser les posts d'un utilisateur (à sa demande))

jdd <jdd@dodin.org> wrote:

INN ferait complètement l'impasse sur les headers définis par
l'utilisateur? (juste bons pour filtrer avec le client)?

Il semble que tous les entêtes ne sont pas dans $hdr, un work-around serait:

   my $headers = INN::head($hdr{'Message-ID'};) || return "missing article with Message-ID " . $hdr{'Message-ID'};

   my %headers;
   my $previous;
   foreach my $line (split(/\s*\n/, $headers)) {
      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);
         }
      }
   }

(c'est mon code de vérification de cancel-lock dans cleanfeed)

Ensuite, tu peux utiliser $headers{'X-No-Dodin'}.

Mais c'est assez inefficace!  Peut-être que Julien EliÉ a une autre
suggestion?