blob: 74c84a46979af3ae58a75d044706276fce8919b3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#!/usr/bin/perl -p
# fh -- filter headers
BEGIN {
sub header { $_ =~ shift .. not $next =~ /^[ \t]/ }
sub skip { $_ = '' }
}
($_, $next) = ($next, $_);
skip if header qr/^X-(?!(
Mailer
| Rspamd-\S+
):)/xi;
skip if header qr/^(
Received
| Received-SPF
| (DKIM|DomainKey)-Signature
| ARC-\S+
| IronPort-\S+
):/x;
END { print $next }
|