e-smith-base/sme7/e-smith-base-4.18.1-dateManip.patch

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
--- e-smith-base-4.18.1/root/etc/e-smith/templates/home/e-smith/ssl.crt 2008-03-26 10:49:00.000000000 -0600
+++ 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
@@ -1,6 +1,6 @@
 {
     use constant KEYLIFEINDAYS => 365;
-    use Date::Manip;
+    use Date::Parse;
     use Cwd;
     my $here = getcwd;
 
@@ -24,9 +24,10 @@
     {
         my $expire = `openssl x509 -enddate -noout -in $crt`;
         $expire =~ s/^notAfter=//;
-        $expire =~ s#(\d{4}) (\w{3})#$2 $1#;
+        $expire = str2time($expire);
+        my $ttl_days = ($expire - time()) / 60 / 60 / 24;
 
-        if ( Date_Cmp('today', ParseDate($expire)) < 0 ) {
+        if ( $ttl_days > 2 ) {
             my $expected_issuer = '/C=--' .
                               '/ST=----';
             $expected_issuer .= '/L=' . ($defaultCity ? $defaultCity : 'Newbury');
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');