diff options
-rw-r--r-- | Changes | 4 | ||||
-rw-r--r-- | lib/App/Acmeman.pm | 10 |
2 files changed, 12 insertions, 2 deletions
@@ -1,3 +1,7 @@ | |||
1 | 3.06 2020-06-15 | ||
2 | |||
3 | - Improve error reporting | ||
4 | |||
1 | 3.05 2020-06-14 | 5 | 3.05 2020-06-14 |
2 | 6 | ||
3 | - Fix manifest | 7 | - 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; | |||
24 | use App::Acmeman::Log qw(:all :sysexits); | 24 | use App::Acmeman::Log qw(:all :sysexits); |
25 | use feature 'state'; | 25 | use feature 'state'; |
26 | 26 | ||
27 | our $VERSION = '3.05'; | 27 | our $VERSION = '3.06'; |
28 | 28 | ||
29 | my $progdescr = "manages ACME certificates"; | 29 | my $progdescr = "manages ACME certificates"; |
30 | 30 | ||
@@ -557,7 +557,13 @@ sub register_domain_certificate { | |||
557 | sleep 1 | 557 | sleep 1 |
558 | } | 558 | } |
559 | if ($ret ne 'valid') { | 559 | if ($ret ne 'valid') { |
560 | error("$domain: can't renew certificate: authorization: $ret"); | 560 | my $text = "authorization $ret"; |
561 | if (my ($ch) = grep { $_->type() eq 'http-01' } $authz->challenges()) { | ||
562 | if (my $err = $ch->error()) { | ||
563 | $text .= ': ' . $err->to_string; | ||
564 | } | ||
565 | } | ||
566 | error("$domain: can't renew certificate: $text"); | ||
561 | return 0; | 567 | return 0; |
562 | } | 568 | } |
563 | } | 569 | } |