diff options
author | John Ankarström <john@ankarstrom.se> | 2021-05-26 01:33:06 +0200 |
---|---|---|
committer | John Ankarström <john@ankarstrom.se> | 2021-05-26 01:34:47 +0200 |
commit | ca98b2ba8799b40ca0fe5b38b34c817a0215b119 (patch) | |
tree | e4ee153b32bd245939b9488a9aad8bcc87282ebb /src/fh | |
parent | 61205f34eccdaf65d639cf15f7599ebe4830d5f9 (diff) | |
download | mum-ca98b2ba8799b40ca0fe5b38b34c817a0215b119.tar.gz |
Improve 'm-pop' script
Username and password have been moved to environment variables.
Command-line interface has improved.
Diffstat (limited to 'src/fh')
-rwxr-xr-x | src/fh | 23 |
1 files changed, 0 insertions, 23 deletions
@@ -1,23 +0,0 @@ -#!/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 } |