Hello,

A little patch to  make AutoCRL time period to work fine, against 1.3.0
code.

Regards,
Carlos Velasco

diff -ur a/src/common/lib/cmds/startAutoCRL b/src/common/lib/cmds/startAutoCRL
--- a/src/common/lib/cmds/startAutoCRL	2012-04-08 02:30:42.000000000 +0200
+++ b/src/common/lib/cmds/startAutoCRL	2012-06-16 18:25:12.048507426 +0200
@@ -311,15 +311,23 @@
 			$numLastUpdate = $cryptoShell->getNumericDate ( $lastCRL_lastUpdate );
 			$numToday = $cryptoShell->getNumericDate ( $today );
 
-			my $diff = $numToday - $numLastUpdate;
+			use Time::Local;
+
+			my ($yyyy,$mm,$dd,$HH,$MM,$SS) = ();
+			($yyyy,$mm,$dd,$HH,$MM,$SS) = ( $numLastUpdate =~ m/(\d\d\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)/);
+			my $secnumLastUpdate = timegm($SS,$MM,$HH,$dd,$mm-1,$yyyy-1900);
+			($yyyy,$mm,$dd,$HH,$MM,$SS) = ( $numToday =~ m/(\d\d\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)/);
+			my $secnumToday = timegm($SS,$MM,$HH,$dd,$mm-1,$yyyy-1900);
+
+			my $diff = $secnumToday - $secnumLastUpdate;
 
 			if ($DEBUG) 
 			{
 				print STDERR "On-Line CRL::autoCRLProcess()::CRL last " .
-					"update = " .  $numLastUpdate . " ( " . 
+					"update = " .  $secnumLastUpdate . 's: ' . $numLastUpdate . " ( " . 
 					$lastCRL_lastUpdate . " ) - CRL Serial [$lastCRLSerial]\n";
 
-				print STDERR "On-Line CRL::autoCRLProcess()::Today = $numToday ($today)\n";
+				print STDERR "On-Line CRL::autoCRLProcess()::Today = ${secnumToday}s: $numToday ($today)\n";
 			}
 
 			if ($diff >= $params->{'sec_period'})
------------------------------------------------------------------------------
Live Security Virtual Conference
Exclusive live event will cover all the ways today's security and 
threat landscape has changed and how IT managers can respond. Discussions 
will include endpoint security, mobile security and the latest in malware 
threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
_______________________________________________
Openca-Users mailing list
Openca-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/openca-users

Reply via email to