Fix config generation
authorRaphaël Gertz <git@rapsys.eu>
Wed, 5 Apr 2017 17:39:47 +0000 (19:39 +0200)
committerRaphaël Gertz <git@rapsys.eu>
Wed, 5 Apr 2017 17:39:47 +0000 (19:39 +0200)
Packaging ready

Acme.pm [moved from acme.pm with 100% similarity]
letscert
letscron

diff --git a/acme.pm b/Acme.pm
similarity index 100%
rename from acme.pm
rename to Acme.pm
index dbf245e..7c843c6 100755 (executable)
--- a/letscert
+++ b/letscert
@@ -19,8 +19,8 @@
 use strict;
 use warnings;
 
-# Load acme
-use acme;
+# Load Acme
+use Acme;
 
 # Load POSIX
 use POSIX qw(EXIT_SUCCESS EXIT_FAILURE);
index e315a42..9a96355 100755 (executable)
--- a/letscron
+++ b/letscron
@@ -31,7 +31,7 @@ use File::Spec;
 use File::Slurp qw(read_file write_file);
 use JSON qw(decode_json);
 use IPC::System::Simple qw(capturex $EXITVAL);
-use acme qw(CERT_DIR CONFIG DS KEY_DIR SERVER_CRT SERVER_KEY);
+use Acme qw(CERT_DIR CONFIG DS KEY_DIR SERVER_CRT SERVER_KEY);
 
 # Load POSIX
 use POSIX qw(strftime EXIT_SUCCESS EXIT_FAILURE);
@@ -69,7 +69,7 @@ unless (
                ! scalar map {unless(defined($_->{cert}) && defined($_->{key}) && defined($_->{mail}) && defined($_->{domain}) && defined($_->{domains})) {1;} else {();}} @{$config->{certificates}}
        }
 ) {
-       print 'Config file '.CONFIG.' is invalid'."\n";
+       print 'Config file '.CONFIG.' is not readable or invalid'."\n";
        exit EXIT_FAILURE;
 }