Improve error reporting. Version 3.06v3.06

2 files changed, 12 insertions, 2 deletions

diff --git a/Changes b/Changes
index 50315ae..0e02669 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,7 @@
+3.06 2020-06-15
+
+        - Improve error reporting
+
 3.05 2020-06-14
         
         - Fix manifest
diff --git a/lib/App/Acmeman.pm b/lib/App/Acmeman.pm
index 84e1dda..65aac4f 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.05';
+our $VERSION = '3.06';
 
 my $progdescr = "manages ACME certificates";
 
@@ -557,7 +557,13 @@ sub register_domain_certificate {
             sleep 1
         }
         if ($ret ne 'valid') {
-            error("$domain: can't renew certificate: authorization: $ret");
+            my $text = "authorization $ret";
+            if (my ($ch) = grep { $_->type() eq 'http-01' } $authz->challenges()) {
+                if (my $err = $ch->error()) {
+                    $text .= ': ' . $err->to_string;
+                }
+            }
+            error("$domain: can't renew certificate: $text");
             return 0;
         }
     }