X-Git-Url: https://git.rapsys.eu/acme/blobdiff_plain/98649bccc6a08c193cfbbbdc61b61a41808bbe13..2143e273c43cb7ef1b311f725f3f80f3fa67728b:/gencert

diff --git a/gencert b/gencert
index 85e6f69..ff77f24 100755
--- a/gencert
+++ b/gencert
@@ -10,8 +10,17 @@ use acme;
 # Load POSIX
 use POSIX qw(EXIT_SUCCESS EXIT_FAILURE);
 
-#XXX: debug
-use Data::Dumper;
+# Init debug
+my $debug = 0;
+
+# Init prod
+my $prod = 0;
+
+# Strip and enable debug
+@ARGV = map { if ($_ eq '-d') { $debug = 1; (); } else { $_; } } @ARGV;
+
+# Strip and enable prod
+@ARGV = map { if ($_ eq '-p') { $prod = 1; (); } else { $_; } } @ARGV;
 
 # Show usage
 if (scalar(@ARGV) < 2) {
@@ -20,7 +29,7 @@ if (scalar(@ARGV) < 2) {
 }
 
 # Create new object
-my $acme = acme->new(shift @ARGV, @ARGV);
+my $acme = acme->new(shift @ARGV, $debug, $prod, @ARGV);
 
 # Prepare environement
 $acme->prepare();