diff options
Diffstat (limited to 'lib/App/Acmeman.pm')
-rw-r--r-- | lib/App/Acmeman.pm | 44 |
1 files changed, 24 insertions, 20 deletions
diff --git a/lib/App/Acmeman.pm b/lib/App/Acmeman.pm index 8f253b2..99d018a 100644 --- a/lib/App/Acmeman.pm +++ b/lib/App/Acmeman.pm @@ -16,7 +16,7 @@ use Socket qw(inet_ntoa); use Sys::Hostname; use Pod::Usage; use Pod::Man; -use Getopt::Long qw(:config gnu_getopt no_ignore_case auto_version); +use Getopt::Long qw(:config gnu_getopt no_ignore_case); use POSIX qw(strftime time floor); use App::Acmeman::Config; use App::Acmeman::Domain qw(:files); @@ -25,7 +25,7 @@ use Text::ParseWords; use App::Acmeman::Log qw(:all :sysexits); use feature 'state'; -our $VERSION = '2.00'; +our $VERSION = '2.01'; my $progdescr = "manages ACME certificates"; @@ -46,24 +46,28 @@ sub new { _domains => [] }, $class; GetOptions( - "h" => sub { - pod2usage(-message => "$self->{_progname}: $progdescr", - -exitstatus => EX_OK); - }, - "help" => sub { - pod2usage(-exitstatus => EX_OK, -verbose => 2); - }, - "usage" => sub { - pod2usage(-exitstatus => EX_OK, -verbose => 0); - }, - "debug|d+" => \$self->{_option}{debug}, - "dry-run|n" => \$self->{_option}{dry_run}, - "stage|s" => sub { $self->{_acme_host} = 'staging' }, - "force|F" => \$self->{_option}{force}, - "time-delta|D=n" => \$self->{_option}{time_delta}, - "setup|S" => sub { $self->{_command} = 'setup' }, - "alt-names|a" => \$self->{_option}{check_alt_names}, - "config-file|f=s" => \$self->{_option}{config_file}, + 'h' => sub { + pod2usage(-message => "$self->{_progname}: $progdescr", + -exitstatus => EX_OK); + }, + 'help' => sub { + pod2usage(-exitstatus => EX_OK, -verbose => 2); + }, + 'usage' => sub { + pod2usage(-exitstatus => EX_OK, -verbose => 0); + }, + 'debug|d+' => \$self->{_option}{debug}, + 'dry-run|n' => \$self->{_option}{dry_run}, + 'stage|s' => sub { $self->{_acme_host} = 'staging' }, + 'force|F' => \$self->{_option}{force}, + 'time-delta|D=n' => \$self->{_option}{time_delta}, + 'setup|S' => sub { $self->{_command} = 'setup' }, + 'alt-names|a' => \$self->{_option}{check_alt_names}, + 'config-file|f=s' => \$self->{_option}{config_file}, + 'version' => sub { + print "$0 version $VERSION\n"; + exit(EX_OK) + } ) or exit(EX_USAGE); ++$self->{_option}{debug} if $self->dry_run_option; debug_level($self->{_option}{debug}); |