Add last raw file

[acme] / acmecert

diff --git a/acmecert b/acmecert
deleted file mode 100755 (executable)
index f8694cb..0000000
--- a/acmecert
+++ /dev/null
@@ -1,71 +0,0 @@
-#! /usr/bin/perl
-
-# This program is free software: you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation, either version 3 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program.  If not, see <http://www.gnu.org/licenses/>.
-#
-# Copyright (C) 2016 - 2017 Raphaël Gertz <acme@rapsys.eu>
-
-# Best practice
-use strict;
-use warnings;
-
-# Load Acme
-use Acme;
-
-# Load POSIX
-use POSIX qw(EXIT_SUCCESS EXIT_FAILURE);
-
-# 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) {
-       print "Usage: $0 user\@example.com www.example.com [example.com] [...]\n";
-       exit EXIT_FAILURE;
-}
-
-# Create new object
-my $acme = Acme->new(shift @ARGV, $debug, $prod, @ARGV);
-
-# Prepare environement
-$acme->prepare();
-
-# Generate required keys
-$acme->genKeys();
-
-# Generate csr
-$acme->genCsr();
-
-# Directory
-$acme->directory();
-
-# Register
-$acme->register();
-
-# Authorize
-$acme->authorize();
-
-# Issue
-$acme->issue();
-
-# Exit with success
-exit EXIT_SUCCESS;