diff options
-rw-r--r-- | Changes | 3 | ||||
-rw-r--r-- | lib/App/Acmeman.pm | 2 | ||||
-rw-r--r-- | lib/App/Acmeman/Source/Apache.pm | 3 |
3 files changed, 6 insertions, 2 deletions
@@ -1,3 +1,6 @@ +3.01 2019-10-20 + - Accept multiple hostnames in the ServerAlias directive + 3.00 2019-10-19 - Switch to ACMEv2 diff --git a/lib/App/Acmeman.pm b/lib/App/Acmeman.pm index b54f7a4..afc64e9 100644 --- a/lib/App/Acmeman.pm +++ b/lib/App/Acmeman.pm @@ -24,7 +24,7 @@ use Text::ParseWords; use App::Acmeman::Log qw(:all :sysexits); use feature 'state'; -our $VERSION = '3.00'; +our $VERSION = '3.01'; my $progdescr = "manages ACME certificates"; diff --git a/lib/App/Acmeman/Source/Apache.pm b/lib/App/Acmeman/Source/Apache.pm index 77d7e23..1c0e677 100644 --- a/lib/App/Acmeman/Source/Apache.pm +++ b/lib/App/Acmeman/Source/Apache.pm @@ -12,6 +12,7 @@ use parent 'App::Acmeman::Source'; use Getopt::Long qw(GetOptionsFromArray :config gnu_getopt no_ignore_case); use Apache::Defaults; use Apache::Config::Preproc; +use Text::ParseWords; sub new { my $class = shift; @@ -96,7 +97,7 @@ sub examine_http_config { foreach my $sect ($app->section(-name => "virtualhost")) { my ($server_name) = (map { $self->dequote($_->value) } $sect->directive('servername')); - my @server_aliases = map { $self->dequote($_->value) } + my @server_aliases = map { quotewords('\s+', 0, $self->dequote($_->value)) } $sect->directive('serveralias'); my @d = map { if ($_->value =~ m{^(?ix) |