anchor.diff:      UsrRoot = filename:join([Root, User]),
       file:make_dir(UsrRoot),
       CnfFile = filename:join([UsrRoot, "req.cnf"]),
  -    file:write_file(CnfFile, req_cnf(C#config{commonName = User})),
  +    file:write_file(CnfFile, req_cnf(Root, C#config{commonName = User})),
       KeyFile = filename:join([UsrRoot, "key.pem"]), 
       ReqFile =  filename:join([UsrRoot, "req.pem"]), 
       create_req(Root, CnfFile, KeyFile, ReqFile, C),
  
positive.code:     do_append_files(Fs, RF).
  
  rootCA(Root, Name, C) ->
      create_ca_dir(Root, Name, ca_cnf(C#config{commonName = Name})),
      create_self_signed_cert(Root, Name, req_cnf(C#config{commonName = Name}), C),
      file:copy(filename:join([Root, Name, "cert.pem"]), filename:join([Root, Name, "cacerts.pem"])),
      gencrl(Root, Name, C).
  
  intermediateCA(Root, CA, ParentCA, C) ->
      create_ca_dir(Root, CA, ca_cnf(C#config{commonName = CA})),
      CARoot = filename:join([Root, CA]),
      CnfFile = filename:join([CARoot, "req.cnf"]),
      file:write_file(CnfFile, req_cnf(C#config{commonName = CA})),
      KeyFile = filename:join([CARoot, "private", "key.pem"]), 
      ReqFile =  filename:join([CARoot, "req.pem"]), 
      create_req(Root, CnfFile, KeyFile, ReqFile, C),
  
negative.code: %% Contents of configuration files 
  %%
  
  req_cnf(Root, C) ->
      ["# Purpose: Configuration for requests (end users and CAs)."
       "\n"
       "ROOTDIR	        = " ++ Root ++ "\n"
       "\n"
  
       "[req]\n"
  