From 478aa272708ed4ad282ca02bed41a5320330e8af Mon Sep 17 00:00:00 2001 From: Alexej Tessaro Date: Tue, 20 Oct 2015 15:54:28 +0100 Subject: Add make_certs in specific directory --- src/ct_helper.erl | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/src/ct_helper.erl b/src/ct_helper.erl index ff6c3d7..e3c6bec 100644 --- a/src/ct_helper.erl +++ b/src/ct_helper.erl @@ -29,6 +29,7 @@ -export([is_process_down/2]). -export([make_certs/0]). -export([make_certs_in_ets/0]). +-export([make_certs_in_dir/1]). -export([name/0]). -export([start/1]). @@ -200,6 +201,22 @@ make_certs() -> {Cert, {Asn1Type, Der, _}} = erl_make_certs:make_cert([{issuer, CaInfo}]), {CaCert, Cert, {Asn1Type, Der}}. +%% @doc Create a set of certificates and store them in a directory. + +make_certs_in_dir(Dir) -> + {CaCert, Cert, Key} = make_certs(), + CertFile = filename:join(Dir, "cert.pem"), + CaCertsFile = filename:join(Dir, "cacerts.pem"), + KeyFile = filename:join(Dir, "key.pem"), + CertPem = public_key:pem_encode([{'Certificate', Cert, not_encrypted}]), + CaCertsPem = public_key:pem_encode([{'Certificate', CaCert, not_encrypted}]), + {KeyAsn1Type, KeyDer} = Key, + KeyPem = public_key:pem_encode([{KeyAsn1Type, KeyDer, not_encrypted}]), + ok = file:write_file(CertFile, CertPem), + ok = file:write_file(CaCertsFile, CaCertsPem), + ok = file:write_file(KeyFile, KeyPem), + {CaCertsFile, CertFile, KeyFile}. + %% @doc Create a set of certificates and store them in an ets table. %% %% The verify options are there so that: -- cgit v1.2.3