Add debug and prod parameters properly

[acme] / gencert

diff --git a/gencert b/gencert
index 42af91985485d6f55d7d73d5a50d5f4f747642b9..ff77f241bf467f2da5e922b7b69c7041a83ba42a 100755 (executable)
--- a/gencert
+++ b/gencert
@@ -10,12 +10,15 @@ use acme;
 # Load POSIX
 use POSIX qw(EXIT_SUCCESS EXIT_FAILURE);
 
 # Load POSIX
 use POSIX qw(EXIT_SUCCESS EXIT_FAILURE);
 

-#XXX: debug
-use Data::Dumper;
+# Init debug
+my $debug = 0;

 
 # Init prod
 my $prod = 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;
 
 # Strip and enable prod
 @ARGV = map { if ($_ eq '-p') { $prod = 1; (); } else { $_; } } @ARGV;
 


@@ -26,10 +29,10 @@ if (scalar(@ARGV) < 2) {
 }
 
 # Create new object
 }
 
 # Create new object

-my $acme = acme->new(shift @ARGV, @ARGV);
+my $acme = acme->new(shift @ARGV, $debug, $prod, @ARGV);

 
 # Prepare environement
 
 # Prepare environement

-$acme->prepare($prod);
+$acme->prepare();

 
 # Generate required keys
 $acme->genKeys();
 
 # Generate required keys
 $acme->genKeys();


@@ -38,13 +41,13 @@ $acme->genKeys();
 $acme->genCsr();
 
 # Directory
 $acme->genCsr();
 
 # Directory

-$acme->directory($prod);
+$acme->directory();

 
 # Register
 $acme->register();
 
 # Authorize
 
 # Register
 $acme->register();
 
 # Authorize

-$acme->authorize($prod);
+$acme->authorize();

 
 # Issue
 $acme->issue();
 
 # Issue
 $acme->issue();