view release on metacpan or  search on metacpan

bin/monm_ssl  view on Meta::CPAN

modify it under the same terms as Perl itself.

See L<https://dev.perl.org/licenses/>

=cut

use Getopt::Long;
use Pod::Usage;


use DateTime::Format::x509;
use List::Util qw/ max /;
use CTK::Util qw/ execute trim /;

use App::MonM::Const qw/
        OK DONE ERROR SKIPPED PASSED FAILED UNKNOWN PROBLEM
    /;

use constant {
    DAYS    => 14,
    PORT    => 443,

bin/monm_ssl  view on Meta::CPAN

    print ERROR, "\n";
    exit 1;
}
unless ($exe_out) {
    print STDERR "Incorrect openssl output data\n";
    print ERROR, "\n";
    exit 1;
}

#print $exe_out;
my $f = DateTime::Format::x509->new();

# Parse pool
my @lines = (0);
foreach my $line (split /\n/, $exe_out) {
    chomp($line);
    next unless $line;
    my $l = trim($line);
    next unless $l;
    if ($l =~ /^\w+\=(.+)$/) {
        my $dt = $f->parse_datetime($1);