package Local::CryptLEComplete; # used by ~/ssl/renew-ssl-certificates.sh to handle le.pl & Crypt::LE "--complete-with" function use Data::Printer; use feature 'say'; our $VERSION = 0.01; sub new { return bless {}, shift } sub complete { } =begin # example sub complete { my $self = shift; my ($data, $params) = @_; # p $data; p $params; # You can use external logger if it has been provided. if ($data->{logger}) { # NB: The list of domains the certificate is issued for is in $data->{domains} (array ref). $data->{logger}->info("Handling process completion for " . join(', ', @{$data->{domains}}) . " with " . __PACKAGE__); } say "Domain Certificate '$data->{certificate_file}': $data->{certificate}"; say "Issuer's Certificate: $data->{issuer}"; say "Key file: '$data->{key_file}'."; return 1; }; =cut 1;