Added creation of missing directories

Improved performance

CommModule/client.pl

@@ -715,6 +715,8 @@ sub HandleCerts($$)
 
     #my $crtname = "../crt/$prefix-".$row{'id'}.".crt";
     my $crtname=$csrname; $crtname=~s/^\.\.\/csr/..\/crt/; $crtname=~s/\.csr$/.crt/;
+    my $dirname=$crtname; $dirname=~s/\/[^\/]*\.crt//;
+    mkdir $dirname,0777;
     SysLog("New Layout: $crtname\n");
 
     if($server)
@@ -1065,5 +1067,5 @@ while(1)
   SysLog("NUL Request:\n");
   my $timestamp=strftime("%m%d%H%M%Y.%S",gmtime);
   Request($ver,0,0,0,0,0,0,0,$timestamp,"","");
-  usleep(700000); 
+  usleep(1700000); 
 }