From 9e5f72b7ea70b6e6a22edfb02a3d2f60182bd79c Mon Sep 17 00:00:00 2001 From: Thomas Hochstein Date: Sat, 31 Jan 2026 22:29:25 +0100 Subject: [PATCH] Drop more headers. Signed-off-by: Thomas Hochstein --- ChangeLog | 1 + bin/poster.pl | 41 ++++++++++++++++++++++++----------------- 2 files changed, 25 insertions(+), 17 deletions(-) diff --git a/ChangeLog b/ChangeLog index 1d4aa10..a813cd9 100644 --- a/ChangeLog +++ b/ChangeLog @@ -3,6 +3,7 @@ huhu 0.11.0 (unreleased) * Update to current Debian version. * Add shell to new huhu mod users. * Add wrapper script for read-mail.pl +* Drop more headers. huhu 0.10 (unknown) * huhu reports version 0.09 (from MOD/Displaylib.pm), but has code diff --git a/bin/poster.pl b/bin/poster.pl index 53e29b3..6088024 100755 --- a/bin/poster.pl +++ b/bin/poster.pl @@ -88,6 +88,7 @@ sub connect_nntp($) $nntp->authinfo($cfg_nntp_user, $cfg_nntp_pass); $nntp->starttls if $nntp->can_ssl(); + return $nntp; } @@ -142,30 +143,36 @@ while (my $ref = $dataref->fetchrow_arrayref) 'Date', 'Delivery-date', 'Delivered-To', - 'Errors-To', # Mailman + 'Errors-To', # Mailman 'Envelope-to', - 'Injection-Info', # defined by INN 2.6.x and Schnuerpel 2010 - 'Lines', # defined by INN 2.5.x or older - 'NNTP-Posting-Date', # defined by INN 2.5.x or older - 'NNTP-Posting-Host', # defined by INN 2.5.x or older + 'Injection-Info', # defined by INN 2.6.x and Schnuerpel 2010 + 'Lines', # defined by INN 2.5.x or older + 'Message-ID-Hash', + 'X-Message-ID-Hash', + 'NNTP-Posting-Date', # defined by INN 2.5.x or older + 'NNTP-Posting-Host', # defined by INN 2.5.x or older 'Path', - 'Precedence', # Mailman + 'Precedence', # Mailman 'Received', + 'Received-Spf', 'Status', 'Return-Path', 'To', 'X-Antivirus', 'X-Antivirus-Status', 'X-Attachment-Test', - 'X-Beenthere', # Mailman - 'X-Complaints-To', # defined by INN 2.5.x or older + 'X-Beenthere', # Mailman + 'X-Complaints-To', # defined by INN 2.5.x or older 'X-Lang-Test', - 'X-Mailman-Version', # Mailman - 'X-MSMail-Priority', # Outlook - 'X-NNTP-Posting-Host', # set by Schnuerpel 2009 or older + 'X-Mailfrom', + 'X-Mailman-Version', # Mailman + 'X-Mailman-Rule-Misses', ## Mailman 3 + 'X-MSMail-Priority', # Outlook + 'X-NNTP-Posting-Host', # set by Schnuerpel 2009 or older + 'X-NNTP-Posting-Date', 'X-Originating-IP', - 'X-Priority', # Outlook - 'X-Provags-ID', # GMX/1&1 + 'X-Priority', # Outlook + 'X-Provags-ID', # GMX/1&1 'X-Spamassassin-Test', 'X-Spam-Checker-Version', 'X-Spam-Level', @@ -173,11 +180,11 @@ while (my $ref = $dataref->fetchrow_arrayref) 'X-Spam-Score', 'X-Spam-Status', 'X-Subject-Test', - 'X-Trace', # defined by INN 2.5.x or older - 'X-User-ID', # set by Schnuerpel 2009 or older + 'X-Trace', # defined by INN 2.5.x or older + 'X-User-ID', # set by Schnuerpel 2009 or older 'X-Virus-Scanned', - 'X-Y-Gmx-Trusted', # GMX/1&1 - 'X-Zedat-Hint', # Uni Berlin/Individual? + 'X-Y-Gmx-Trusted', # GMX/1&1 + 'X-Zedat-Hint', # FU Berlin (moderators.dana.de) ); #albasani-workaround fuer @invalid