Accept multiple hostnames in the ServerAlias directivev3.01

3 files changed, 6 insertions, 2 deletions

diff --git a/Changes b/Changes
index 61ba3da..06bca2b 100644
--- a/Changes
+++ b/Changes
@@ -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)