Mojo-ACME
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Mojolicious/Plugin/ACME/Command/acme/cert/generate.pm view on Meta::CPAN
$acme->new_authz($_) for @new;
my $cert;
Mojo::IOLoop->delay(
sub { $acme->check_all_challenges(shift->begin) },
sub {
my ($delay, $err) = @_;
die Mojo::Util::dumper($err) if $err;
my $bad = c(values %{ $acme->challenges })->grep(sub { $_->{status} ne 'valid' });
die 'The following challenges were not validated ' . Mojo::Util::dumper($bad->to_array) if $bad->size;
#TODO poll for cert when delayed
$cert = $acme->get_cert(@domains);
},
)->catch(sub{ warn "$_[-1]\n" })->wait;
die "No cert was generated\n" unless $cert;
if ($acme->cert_key->generated) {
my $key_path = "$name.key";
say "Writing $key_path";
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.389 second using v1.00-cache-2.02-grep-82fe00e-cpan-24a475fd873 )