thh/huhu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix headers with continuation immediately at start.

Browse source 
Signed-off-by: Thomas Hochstein <thh@thh.name>
This commit is contained in:
Thomas Hochstein 2026-02-01 00:42:36 +01:00
parent dd034b71b4
commit af5ed9465f
2 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
bin/poster.pl
View file

@ -200,6 +200,18 @@ while (my $ref = $dataref->fetchrow_arrayref)
$article->drop_headers(('User-Agent'));
}
# Fix headers with continuation immediately at start, i.e.
# X-MyHeader:
# Thisisaveryveryveryveryveryveryveryveryverylongheadervalue.
# will become
# X-MyHeader: Thisisaveryveryveryveryveryveryveryveryverylongheadervalue.
foreach my $header ( $article->header_names() ) {
if ($article->header($header) =~ /^\n/) {
my $fixedheader = $article->header($header);
$fixedheader =~ s/^\n\s+//;
$article->set_headers($header, $fixedheader);
}
}
#Neue Message-ID und Approved-Header erzeugen
my $mid = defined($article->header('Message-ID')) ? $article->header('Message-ID') :