@Ghazascanner
_2019runbot
Ghazascanner File Manager
server :Linux phosweb012 3.10.0-1160.el7.x86_64 #1 SMP Mon Oct 19 16:18:59 UTC 2020 x86_64
Current Path :
/
usr
/
local
/
lib
/
perl5
/
x86_64-linux
/
Crypt
/
SSLeay
/
Path :
Upload File :
New :
File
Dir
//usr/local/lib/perl5/x86_64-linux/Crypt/SSLeay/X509.pm
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;