thh/INN-config
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Activity

Add suck-postfilter.pl

Browse source 
Signed-off-by: Thomas Hochstein <thh@thh.name>
This commit is contained in:
Thomas Hochstein 2026-06-04 16:19:45 +02:00
parent 7fb4c9d347
commit 4fe932925b
2 changed files with 71 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
README.md
View file

@ -30,3 +30,18 @@ Posting filter to add Cancel-Lock and Cancel-Key
Copy to `/etc/news/filter/cleanfeed/etc/cleanfeed.local`.
------------------------------------------------------------
## Other INN-adjacent scripts
### contrib/suck-postfilter.pl
Postfilter for rpost to remove folded headers like `Injection-Info`
before posting, written for the Debian *suck* package (and an INN
with `sm`).
Copy somewhere, e.g. to `/usr/lib/suck/postfilter.pl`, and add a
matching `postfilter` option to `/etc/suck/get-news.conf`, like
postfilter: /usr/lib/suck/postfilter.pl
------------------------------------------------------------

56
contrib/suck-postfilter.pl Normal file
View file

@ -0,0 +1,56 @@
#! /usr/bin/perl -w
#
# postfilter for rpost, to be called from get-news
#
# add "postfilter: /path/to/this/script" to get-news.conf
use strict;
# set regexp for offending headers
my $headerexp = 'NNTP-Posting-Host|NNTP-Posting-Date|X-Complaints-To|Xref|X-Trace|X-Server-Date|Path|Injection-Info';
# debug switch
my $debug = 0;
# read command line arguments
my $infile = $ARGV[0]; # storage token
my $outfile = $ARGV[1];
$infile =~ s/^[^@]*//;
if (!$outfile) {
print "Usage: $0 infile outfile\n";
exit 2;
}
# open file handles
open INPUT, "/usr/lib/news/bin/sm $infile |" or return $infile;
open OUTPUT, ">${outfile}" or die "Can't create ${outfile}";
# remove offending lines
my $found = 0;
while ( $line = <INPUT> ) {
if($line =~ /^$headerexp: /) {
$found = 1;
print "!! $line" if $debug;
} elsif ($found && $line =~ /^[ \t]+/) {
# continuation line(s)
print "!> $line" if $debug;
} else {
$found = 0;
# write out to file
print OUTPUT $line;
print $line if $debug;
}
# stop parsing after end-of-header
last if ($line =~ /^$/);
}
while ( $line = <INPUT> ) {
print OUTPUT $line;
print $line if $debug;
}
# close file handles
close INPUT;
close OUTPUT;
exit;