AutoCRL patch 1.3.0

[Carlos Velasco-4]

Hello,

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

Regards,
Carlos Velasco


[openca-base-1.3.0-autocrlperiod-1.patch]

---

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@...
https://lists.sourceforge.net/lists/listinfo/openca-users