api: cert order: print details for failed challenge if available

[pmg-api.git] / src / PMG / API2 / Certificates.pm

diff --git a/src/PMG/API2/Certificates.pm b/src/PMG/API2/Certificates.pm
index 2f810d5dbffa090cc0336d3bfd043212d8c1e232..5d4036d8e2b2ad066f34da45ac2137ea7c7fe24c 100644 (file)
--- a/src/PMG/API2/Certificates.pm
+++ b/src/PMG/API2/Certificates.pm
@@ -387,7 +387,11 @@ my $order_certificate = sub {
                        print "Status is 'valid', domain '$domain' OK!\n";
                        last;
                    }
-                   die "validating challenge '$auth_url' failed - status: $auth->{status}\n";
+                   my $error = "validating challenge '$auth_url' failed - status: $auth->{status}";
+                   for (@{$auth->{challenges}}) {
+                       $error .= ", $_->{error}->{detail}" if $_->{error}->{detail};
+                   }
+                   die "$error\n";
                }
            };
            my $err = $@;