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

Compare commits

base: thh:af5ed9465fdd092fee788e3e33a483c689777d39
Branches Tags
thh:master
..
compare: thh:4ce8017756200fd532f868bb23251f1accbdf323
Branches Tags
thh:master

No commits in common. "af5ed9465fdd092fee788e3e33a483c689777d39" and "4ce8017756200fd532f868bb23251f1accbdf323" have entirely different histories.
af5ed9465f ... 4ce8017756

3 changed files with 19 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

1
ChangeLog
View file

@ -5,7 +5,6 @@ huhu 0.11.0 (unreleased)
* Add wrapper script for read-mail.pl * Add wrapper script for read-mail.pl
* Drop more headers. * Drop more headers.
* Only connect to newsserver if there are approved posts. * Only connect to newsserver if there are approved posts.
* Fix headers with continuation immediately at start.
huhu 0.10 (unknown) huhu 0.10 (unknown)
* huhu reports version 0.09 (from MOD/Displaylib.pm), but has code * huhu reports version 0.09 (from MOD/Displaylib.pm), but has code

13
bin/poster.pl
View file

@ -200,19 +200,6 @@ while (my $ref = $dataref->fetchrow_arrayref)
$article->drop_headers(('User-Agent')); $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 #Neue Message-ID und Approved-Header erzeugen
my $mid = defined($article->header('Message-ID')) ? $article->header('Message-ID') : my $mid = defined($article->header('Message-ID')) ? $article->header('Message-ID') :
'<' . substr (rand() . '-' . time(), 2) . '@' . $config{'mid_fqdn'} . '>'; '<' . substr (rand() . '-' . time(), 2) . '@' . $config{'mid_fqdn'} . '>';