blob: 5fd50ca6cb790e70537100cd7dc634b25150e182 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
package Crypt::SSLeay::X509;
use strict;
sub not_before {
my $cert = shift;
not_string2time($cert->get_notBeforeString);
}
sub not_after {
my $cert = shift;
not_string2time($cert->get_notAfterString);
}
sub not_string2time {
my $string = shift;
# $string has the form 021019235959Z
my($year, $month, $day, $hour, $minute, $second, $GMT)=
$string=~m/(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(Z)?/;
$year += 2000;
my $time="$year-$month-$day $hour:$minute:$second";
$time .= " GMT" if $GMT;
$time;
}
1;
|