Support for alternative certificates.

do-know · Dec 31, 2020 · 4927039 · 4927039
1 parent 89aeb62
commit 4927039
Show file tree

Hide file tree

Showing 4 changed files with 23 additions and 16 deletions.
diff --git a/Changes b/Changes
@@ -1,5 +1,8 @@
 Revision history for Crypt-LE
 
+0.37    21 November 2020
+        - Alternative certificates support.
+
 0.36    27 June 2020
         - Updates to reflect support for other ACME-compatible CAs/servers.
         - Disabling Let's Encrypt specific shortcut when custom servers are used.

diff --git a/Makefile.PL b/Makefile.PL
@@ -3,33 +3,34 @@ require 5.006;
 use ExtUtils::MakeMaker;
 WriteMakefile
 (
+  'NAME' => 'Crypt::LE',
+  'VERSION_FROM' => 'lib/Crypt/LE.pm',
   'EXE_FILES' => [
                    'script/le.pl'
                  ],
-  'VERSION_FROM' => 'lib/Crypt/LE.pm',
   'PREREQ_PM' => {
+                   'Time::Piece' => '1.27',
+                   'HTTP::Tiny' => '0.042',
+                   'Log::Log4perl' => '1.27',
+                   'Scalar::Util' => 0,
                    'MIME::Base64' => '3.11',
                    'Time::Seconds' => 0,
+                   'JSON::MaybeXS' => '1.003005',
+                   'File::Temp' => 0,
+                   'Getopt::Long' => '2.33',
                    'Net::SSLeay' => '1.55',
-                   'Log::Log4perl' => '1.27',
                    'Crypt::OpenSSL::Bignum' => '0.06',
+                   'Storable' => '2.51',
+                   'Encode' => 0,
                    'Digest::SHA' => 0,
-                   'File::Temp' => 0,
-                   'Test::More' => 0,
+                   'Crypt::OpenSSL::RSA' => '0.28',
+                   'IO::File' => '1.13',
                    'Module::Load' => '0.28',
-                   'JSON::MaybeXS' => '1.003005',
-                   'Time::Piece' => '1.27',
                    'IO::Socket::SSL' => '1.42',
-                   'Encode' => 0,
-                   'Scalar::Util' => 0,
-                   'Crypt::OpenSSL::RSA' => '0.28',
-                   'Getopt::Long' => '2.33',
-                   'HTTP::Tiny' => '0.042',
                    'Convert::ASN1' => '0.2',
-                   'IO::File' => '1.13'
+                   'Test::More' => 0
                  },
-  'INSTALLDIRS' => 'site',
   'PL_FILES' => {},
-  'NAME' => 'Crypt::LE'
+  'INSTALLDIRS' => 'site'
 )
 ;
diff --git a/script/le.pl b/script/le.pl
@@ -854,7 +854,7 @@ sub usage_and_exit {
 -update-contacts <emails>    : Update contact details.
 -export-pfx <password>       : Export PFX (Windows binaries only).
 -tag-pfx <tag>               : Tag PFX with a specific name.
--alternative <Num>           : Save an alternative ceritifcate (if available).
+-alternative <num>           : Save an alternative ceritifcate (if available).
 -config <file>               : Configuration file for the client.
 -log-config <file>           : Configuration file for logging.
 -generate-missing            : Generate missing files (key, csr and csr-key).

diff --git a/t/01-setup.t b/t/01-setup.t
@@ -7,7 +7,7 @@ use File::Temp ();
 use MIME::Base64 'encode_base64';
 use Crypt::LE ':errors', ':keys';
 $|=1;
-plan tests => 62;
+plan tests => 65;
 
 my $le = Crypt::LE->new(autodir => 0);
 sub line { my $l = shift; $l=~s/[\r\n]//sg if $l; $l }
@@ -83,6 +83,9 @@ can_ok($le, 'csr_key');
 can_ok($le, 'set_account_email');
 can_ok($le, 'set_domains');
 can_ok($le, 'export_pfx');
+can_ok($le, 'request_alternatives');
+can_ok($le, 'alternative_certificate');
+can_ok($le, 'alternative_certificates');
 
 ok($le->set_domains() == INVALID_DATA, 'Setting domain names with no value');
 ok($le->set_domains('http://some.domain') == INVALID_DATA, 'Setting domain names with unsupported entity type (URI)');