#!/usr/bin/perl

   ####
    ##
    ##
##  ##  $JOEY
 ####   2011.09.01.

use strict;

################################################
# | DESCRIPTION:
# |     Check the remaining days from ssl-certificate
# | USAGE:
# |     check_ssl_cert(<Cert_Path>);
# | RESULTS:
# |     Remaining days

    sub check_ssl_cert($) {
        my $cert_path = shift;
        my @zero_date = split(' ',`openssl x509 -in $cert_path -text|grep 'Not '|tail -n1`);
        my %months = ('Jan'=>1,'Feb'=>2,'Mar'=>3,'Apr'=>4,'May'=>5,'Jun'=>6,'Jul'=>7,'Aug'=>8,'Sep'=>9,'Oct'=>10,'Nov'=>11,'Dec'=>12);
        my @month_days = (0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365);
        my $zero_day = $zero_date[4];
        my $zero_month = $months{$zero_date[3]};
        my $zero_year = $zero_date[6];
        my $remaining_days = ((($zero_year-((localtime(time))[5]+1900))*$month_days[12]) + ($month_days[$zero_month-1])-($month_days[(localtime(time))[4]]) - ((localtime(time))[3]) + $zero_day) + 1;

        return $remaining_days;
    }

# |
################################################

# e.g.:
# print check_ssl_cert("/usr/local/apache2/ssl/*.crt")."\n";
 

A bejegyzés trackback címe:

Kommentek:

A hozzászólások a vonatkozó jogszabályok  értelmében felhasználói tartalomnak minősülnek, értük a szolgáltatás technikai  üzemeltetője semmilyen felelősséget nem vállal, azokat nem ellenőrzi. Kifogás esetén forduljon a blog szerkesztőjéhez. Részletek a  Felhasználási feltételekben és az adatvédelmi tájékoztatóban.