Reduced the CRL check frequency

CommModule/client.pl

@@ -1118,6 +1118,8 @@ sub HandleGPG()
 
 # Main program loop
 
+my $crlcheck=0;
+
 while(1)
 {
   SysLog("Handling GPG database ...\n");
@@ -1133,7 +1135,8 @@ while(1)
   RevokeCerts(1,0); #org client certs
   RevokeCerts(1,1); #org server certs
 
-  RefreshCRLs();
+  $crlcheck++;
+  RefreshCRLs() if(($crlcheck%100) == 1);
 
   #print "Sign Request X.509, Root0\n";
   #my $reqcontent="";