Replace encode_json and decode_json with to_json and from_json to avoid

[acme] / letsconf

diff --git a/letsconf b/letsconf
index 869c90b18538e377e7e3f511f94c74b5a9031f6c..72e7a11d873e60cfab5c938384d694bbea8e3720 100755 (executable)
--- a/letsconf
+++ b/letsconf
@@ -48,7 +48,7 @@ my $prod = 0;
 # Strip and enable debug
 for (my $i = 0; $i <= $#ARGV; $i++) {
        # Match redhat types
-       if ($ARGV[$i] =~ /^(?:(\-d|\-\-redhat)(?:=([^-][a-zA-Z0-9_\.,-]+))?)$/) {
+       if ($ARGV[$i] =~ /^(?:(\-r|\-\-redhat)(?:=([^-][a-zA-Z0-9_\.,-]+))?)$/) {
                if (defined($2)) {
                        push(@redhat, split(',', $2));
                # Extract next parameter
@@ -60,7 +60,7 @@ for (my $i = 0; $i <= $#ARGV; $i++) {
                        push(@redhat, ('example.com'));
                }
        # Match debian types
-       } elsif ($ARGV[$i] =~ /^(?:(\-r|\-\-debian)(?:=([^-][a-zA-Z0-9_\.,-]+))?)$/) {
+       } elsif ($ARGV[$i] =~ /^(?:(\-d|\-\-debian)(?:=([^-][a-zA-Z0-9_\.,-]+))?)$/) {
                if (defined($2)) {
                        push(@debian, split(',', $2));
                # Extract next parameter
@@ -76,7 +76,7 @@ for (my $i = 0; $i <= $#ARGV; $i++) {
 
 # Show usage
 if (scalar(@ARGV) < 1) {
-       print "Usage: $0 [(-d|--debian)[=example.com[,...]] [(-r|--redhat)[=example.com[,...]]] [...]\n";
+       print "Usage: $0 [(-d|--debian)[=example.com[,...]] [(-r|--redhat)[=example.com[,...]]] [...] > /etc/acmepl/config\n";
        exit EXIT_FAILURE;
 }