Fix script for prod

[acme] / Acme.pm

diff --git a/Acme.pm b/Acme.pm
index e4637d790ee19b87ed1f1c9748852d4d3d782cd0..e9280109ddcd536e49a93ee793de96290132f5a5 100644 (file)
--- a/Acme.pm
+++ b/Acme.pm
@@ -49,9 +49,6 @@ use Net::Domain::TLD;
 use POSIX qw(EXIT_FAILURE);
 use Tie::IxHash;
 
 use POSIX qw(EXIT_FAILURE);
 use Tie::IxHash;
 

-# Debug
-use Data::Dumper;
-

 # Documentation links
 #XXX: see https://letsencrypt.github.io/acme-spec/ (probably based on https://ietf-wg-acme.github.io/acme/)
 #XXX: see jwk rfc http://www.rfc-editor.org/rfc/rfc7517.txt
 # Documentation links
 #XXX: see https://letsencrypt.github.io/acme-spec/ (probably based on https://ietf-wg-acme.github.io/acme/)
 #XXX: see jwk rfc http://www.rfc-editor.org/rfc/rfc7517.txt


@@ -327,7 +324,7 @@ sub directory {
        my $time = time;
 
        # Set directory
        my $time = time;
 
        # Set directory

-       my $dir = $self->{prod} ? ACME_PROD_DIR : ACME_DIR;
+       my $dir = $self->{domain}{prod} ? ACME_PROD_DIR : ACME_DIR;

 
        # Create a request
        my $req = HTTP::Request->new(GET => $dir.'?'.$time);
 
        # Create a request
        my $req = HTTP::Request->new(GET => $dir.'?'.$time);