| 1 |
diff -Nur -x '*.orig' -x '*.rej' e-smith-base-4.18.1/root/etc/e-smith/templates/home/e-smith/ssl.crt mezzanine_patched_e-smith-base-4.18.1/root/etc/e-smith/templates/home/e-smith/ssl.crt |
| 2 |
--- e-smith-base-4.18.1/root/etc/e-smith/templates/home/e-smith/ssl.crt 2008-03-26 10:49:00.000000000 -0600 |
| 3 |
+++ mezzanine_patched_e-smith-base-4.18.1/root/etc/e-smith/templates/home/e-smith/ssl.crt 2008-04-22 15:25:43.000000000 -0600 |
| 4 |
@@ -1,6 +1,6 @@ |
| 5 |
{ |
| 6 |
use constant KEYLIFEINDAYS => 365; |
| 7 |
- use Date::Manip; |
| 8 |
+ use Date::Parse; |
| 9 |
use Cwd; |
| 10 |
my $here = getcwd; |
| 11 |
|
| 12 |
@@ -24,9 +24,10 @@ |
| 13 |
{ |
| 14 |
my $expire = `openssl x509 -enddate -noout -in $crt`; |
| 15 |
$expire =~ s/^notAfter=//; |
| 16 |
- $expire =~ s#(\d{4}) (\w{3})#$2 $1#; |
| 17 |
+ $expire = str2time($expire); |
| 18 |
+ my $ttl_days = ($expire - time()) / 60 / 60 / 24; |
| 19 |
|
| 20 |
- if ( Date_Cmp('today', ParseDate($expire)) < 0 ) { |
| 21 |
+ if ( $ttl_days > 2 ) { |
| 22 |
my $expected_issuer = '/C=--' . |
| 23 |
'/ST=----'; |
| 24 |
$expected_issuer .= '/L=' . ($defaultCity ? $defaultCity : 'Newbury'); |
Parent Directory
| 
Revision Log
| 
Revision Graph
