diff options
author | Eric Wong <e@80x24.org> | 2020-09-01 01:15:03 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2020-09-02 08:53:57 +0000 |
commit | 6c252b62bef579207ca417939076a9896d8a791b (patch) | |
tree | 32f3aa286595dcc56f6053d6cbf1523b4e18e94c /script/public-inbox-mda | |
parent | a48e37f10fd5de2a28d9fca95425603f4fa42e6d (diff) | |
download | public-inbox-6c252b62bef579207ca417939076a9896d8a791b.tar.gz |
"use Getopt::Long" doesn't seem too slow on a hot page cache, and it's probably used frequently enough to be in cache. We'll also start reducing the amount of markup in the .pod and favoring verbatim text in documentation for readability in source form, since the bold text seems excessive.
Diffstat (limited to 'script/public-inbox-mda')
-rwxr-xr-x | script/public-inbox-mda | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/script/public-inbox-mda b/script/public-inbox-mda index 02ca3431..3ed5abb6 100755 --- a/script/public-inbox-mda +++ b/script/public-inbox-mda @@ -3,11 +3,21 @@ # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt> # # Mail delivery agent for public-inbox, run from your MTA upon mail delivery +my $help = <<EOF; +usage: public-inbox-mda [OPTIONS] </path/to/RFC2822_message + +options: + + --no-precheck skip internal checks for spam messages + +See public-inbox-mda(1) man page for full documentation. +EOF use strict; -use warnings; -my $usage = 'public-inbox-mda [OPTIONS] < rfc2822_message'; -my $precheck = grep(/\A--no-precheck\z/, @ARGV) ? 0 : 1; -my ($ems, $emm); +use Getopt::Long qw(:config gnu_getopt no_ignore_case auto_abbrev); +my ($ems, $emm, $show_help); +my $precheck = 1; +GetOptions('precheck!' => \$precheck, 'help|h' => \$show_help) or + do { print STDERR $help; exit 1 }; my $do_exit = sub { my ($code) = shift; |