view release on metacpan or  search on metacpan

lib/App/Acmeman.pm  view on Meta::CPAN

    if ($response->is_success) {
	unless ($self->dry_run_option) {
	    open(my $fd, '>', $name)
		or abend(EX_CANTCREAT,
		         "can't open \"$name\" for writing: $!");
	    print $fd $response->decoded_content;
	    close $fd;
	}
    } else {
	error("error downloading certificate from $letsencrypt_root_cert_url");
	abend(EX_NOINPUT, $response->status_line);
    }
}

sub setup {
    my $self = shift;
    
    $self->prep_dir($self->cf->get(qw(core rootdir)).'/file');

    $self->get_root_cert(File::Spec->catfile($acme_dir,
					     $letsencrypt_root_cert_basename));

lib/App/Acmeman/Log.pm  view on Meta::CPAN

package App::Acmeman::Log;
use strict;
use warnings;
use File::Basename;
use parent 'Exporter';

my @exv = qw(
        EX_OK        
	EX_USAGE     
	EX_DATAERR   
	EX_NOINPUT   
	EX_SOFTWARE  
	EX_OSFILE    
	EX_CANTCREAT 
	EX_NOPERM    
	EX_CONFIG
);

my @fnv = qw(error debug abend debug_level);

our @EXPORT_OK = (@fnv, @exv);

lib/App/Acmeman/Log.pm  view on Meta::CPAN

    'all' => [@fnv],
    'sysexits' => [@exv]);

our $progname = basename($0);
our $debug_level = 0;

use constant {
    EX_OK           => 0,
    EX_USAGE        => 64,
    EX_DATAERR      => 65,
    EX_NOINPUT      => 66,
    EX_SOFTWARE     => 70,
    EX_OSFILE       => 72,
    EX_CANTCREAT    => 73,
    EX_NOPERM       => 77,
    EX_CONFIG       => 78
};

sub debug_level {
    my $lev = shift;
    if ($lev) {