fix revocation of old certificate on renewal

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

diff --git a/src/PMG/API2/Certificates.pm b/src/PMG/API2/Certificates.pm
index b50addd17674cf2f1b8525f7d27444c4688485c9..1a6c434206ffb8bc8b33d6dcd953762b7c1910de 100644 (file)
--- a/src/PMG/API2/Certificates.pm
+++ b/src/PMG/API2/Certificates.pm
@@ -610,7 +610,11 @@ __PACKAGE__->register_method ({
 
            if (defined($old_cert)) {
                print "Revoking old certificate\n";
-               eval { $acme->revoke_certificate($old_cert, undef) };
+               eval {
+                   $old_cert = pem_certificate($old_cert)
+                       or die "no certificate section found in '$cert_path'\n";
+                   $acme->revoke_certificate($old_cert, undef);
+               };
                warn "Revoke request to CA failed: $@" if $@;
            }
        };