gistfile1.txt

#!/usr/bin/perl -w
#Identifies all SSL certificates on a cpanel server and expiry

use String::ShellQuote;
use strict;

sub fileparse($);

my @files = </home/*/ssl/certs/*.crt>;

unless (@files) {
    print "No certs found";
    exit;
}

foreach my $crtfile (@files) {
    fileparse($crtfile);
}

sub fileparse($) {
    my $crt = shift;
    if (! -s $crt || ! -r $crt) {
        return;
    }

    my @ssl = `/usr/bin/openssl x509 -in $crt -text -noout`;
    my @dns = grep { m/Subject:/ } @ssl;
    my @expires = grep { m/Not After/ } @ssl;
    $dns[0] =~ s/^.*CN=//;
    $dns[0] =~ s/\s*$//;
    $expires[0] =~ s/^\s+Not After ://;
    print "The certificate @dns expires on @expires\n";
}