/usr/lib/perl5/Crypt/SSLeay/X509.pm is in libcrypt-ssleay-perl 0.58-1build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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;
|