X-Git-Url: https://git.rapsys.eu/acme/blobdiff_plain/f2646c4e2ef1c4e29c170a875b2b60f855629d21..f3840be3ba7f773771001372a57b9fc511ecfc80:/Acme.pm

diff --git a/Acme.pm b/Acme.pm
index e4637d7..2bb0aaf 100644
--- a/Acme.pm
+++ b/Acme.pm
@@ -49,9 +49,6 @@ use Net::Domain::TLD;
 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
@@ -74,7 +71,7 @@ use constant {
 	ACME_PROD_DIR => 'https://acme-v01.api.letsencrypt.org/directory',
 
 	# Version
-	VERSION => 'v0.9',
+	VERSION => '1.3',
 };
 
 # User agent object
@@ -327,7 +324,7 @@ sub 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);
@@ -605,10 +602,10 @@ sub authorize {
 	} @{$self->{domains}};
 
 	# Init max run
-	my $remaining = 10;
+	my $remaining = 300;
 
 	# Poll pending
-	while (--$remaining >= 0 and scalar map { $_->{status} eq 'valid' ? 1 : (); } values %{$self->{challenges}}) {
+	while (--$remaining >= 0 and scalar map { $_->{status} eq 'pending' ? 1 : (); } values %{$self->{challenges}}) {
 		# Sleep
 		sleep(1);
 		# Poll remaining pending