1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
%% The purpose of this module is to log how the example certs where created,
%% it requires erl_make_certs found in the test directory.
-module(make_certs).
-export([all/0]).
all() ->
LongTime = calendar:gregorian_days_to_date(calendar:date_to_gregorian_days(date())+15*365),
Validity = {date(), LongTime},
Subject = [{email, "[email protected]"},
{city, "Stockholm"},
{country, "SE"},
{org, "erlang"},
{org_unit, "testing dep"}],
RootCa = erl_make_certs:make_cert([{validity, Validity}, {subject, [{name, "erlangCA"}|Subject]}]),
ImedCa = erl_make_certs:make_cert([{issuer, RootCa}, {validity, Validity},
{subject, [{name, "otpCA"}|Subject]}]),
ClientCa = erl_make_certs:make_cert([{issuer, ImedCa}, {validity, Validity},
{subject, [{name, "client"}|Subject]}]),
ServerCa = erl_make_certs:make_cert([{issuer, ImedCa}, {validity, Validity},
{subject, [{name, "server"}|Subject]}]),
Root0 = filename:dirname(filename:dirname((code:which(?MODULE)))),
Root = filename:join([Root0, "etc"]), file:make_dir(Root),
CaPath = filename:join([Root, "erlangCA"]), file:make_dir(CaPath),
IPath = filename:join([Root, "otpCA"]), file:make_dir(IPath),
CPath = filename:join([Root, "client"]), file:make_dir(CPath),
SPath = filename:join([Root, "server"]), file:make_dir(SPath),
erl_make_certs:write_pem(CaPath,"cert", RootCa),
erl_make_certs:write_pem(IPath, "cert", ImedCa),
{ok, CaBin0} = file:read_file(filename:join(CaPath, "cert.pem")),
{ok, CaBin1} = file:read_file(filename:join(IPath, "cert.pem")),
CaBin = <<CaBin0/binary, CaBin1/binary>>,
erl_make_certs:write_pem(CPath, "cert", ClientCa),
ok = file:write_file(filename:join(CPath, "cacerts.pem"), CaBin),
erl_make_certs:write_pem(SPath, "cert", ServerCa),
ok = file:write_file(filename:join(SPath, "cacerts.pem"), CaBin),
file:delete(filename:join(CaPath, "cert_key.pem")),
file:delete(filename:join(IPath, "cert_key.pem")),
file:rename(filename:join(CPath, "cert_key.pem"), filename:join(CPath, "key.pem")),
file:rename(filename:join(SPath, "cert_key.pem"), filename:join(SPath, "key.pem")),
ok.
|
